Edit macro @AMSRCAT Edit macro @AMSRCAT Author: David McRitchie formatted on 1995/04/01 06:54 for assistance contact: D. McRitchie DMcRitchie@hotmail.com -------------------------------------------------------------------------------- Macro name. @AMSRCAT users. Programmers needing to change LIMIT(xx) of GDG definition. type. Edit Macro resides in SYS1.TSOCLIST -------------------------------------------------------------------------------- @AMSRCAT @AMSRCAT AMS delete / re-define GDG - ISREDIT MACRO -------------------------------------------------------------------------------- related LISTCAT command -------------------------------------------------------------------------------- The redefinition of limits for a GDG can be a tedious task. This edit macro is designed to aid in the somewhat arduous task of deleting all of the cataloged entries for a GDG group and the GDG group itself, redefining the GDG group and recataloging all of its entries as they appeared before. The example will help explain what is necessary to accomplish this. The macro will not reset the limit you must do this yourself. -------------------------------------------------------------------------------- ISREDIT @AMSRCAT dsname -------------------------------------------------------------------------------- dsname This is the complete dataset name without the ".GnnnnV00" por- tion and is a required operand. Examples: EDIT ---- xxxx.xxxxx.xxxx(xxxxXXXX) - 01.00 ---------- COLUMNS 001 1 24 COMMAND ===> @AMSRCAT INTERNAL.SMF.IV3Hnnnn SCROLL ===> C SR ****** ************************ TOP OF DATA ************************** ****** *********************** BOTTOM OF DATA ************************ example continues on next page Internal Aspects: 1. The output from ' LISTCAT ENTRY("dsname") ALL' is trapped and read back in line by line. 2. Lists of device types, volumes, and file sequence numbers are created. Device names are converted. 3. Lines are created and device types, and volumes may be split between several lines as necessary. (no provision for FSEQN). 4. Lines added have " , " changed to ", " to better match volume list if length of device names is <= 6. The generated deck might appear as follows: EDIT ---- xxxx.xxxxx.xxxx(xxxxXXXX) - 01.00 ---------- COLUMNS 001 124 COMMAND ===> @AMSRCAT INTERNAL.SMF.IV3nnnn SCROLL ===> CSR ****** ************************ TOP OF DATA ************************** 000001 //* GENERATED BY THE CLIST ==> @AMSRCAT INTERNAL.SMF.IV3Hdddd 000002 // EXEC AMS,SYSOUT=V 000003 DELETE INTERNAL.SMF.IV3Hdddd.G0168V00 NOSCRATCH - 000004 CATALOG(CATALOG.VPRODC1) 000005 DELETE INTERNAL.SMF.IV3Hdddd.G0169V00 NOSCRATCH - 000006 CATALOG(CATALOG.VPRODC1) 000007 DELETE INTERNAL.SMF.IV3Hdddd.G0170V00 NOSCRATCH - 000008 CATALOG(CATALOG.VPRODC1) 000009 DELETE INTERNAL.SMF.IV3Hdddd GDG NOFORCE - 000010 CATALOG(CATALOG.VPRODC1) 000011 //* GENERATED BY THE CLIST ==> @AMSRCAT INTERNAL.SMF.IV3Hdddd 000012 // EXEC AMS,SYSOUT=V 000013 DEFINE GDG - 000014 (NAME(INTERNAL.SMF.IV3Hdddd) - 000015 LIMIT(3) ) - 000016 CATALOG(CATALOG.VPRODC1) 000017 DEFINE NVSAM - 000018 (NAME(INTERNAL.SMF.IV3Hdddd.G0168V00) - 000019 DEVT(3480 ,3480 ,3480 ,3480 ,3480 ,3480 , - 000020 3480 ,3480 ,3480 ,3480 ,3480 ,3480 , - 000021 3480) - 000022 VOL(B09069,B09093,B09094,B09060,B03565,B03568, - 000023 B03723,B03806,B03136,B02388,B02294,B02652, - 000024 B02338) - 000025 FSEQN(1,1,1,1,1,1,1,1,1,1,1,1,1) ) - 000026 CATALOG(CATALOG.VPRODC1) 000027 DEFINE NVSAM - 000028 (NAME(INTERNAL.SMF.IV3Hdddd.G0169V00) - 000029 DEVT(3480 ,3480 ,3480 ,3480 ,3480 ,3480 , - 000030 3480 ,3480 ,3480 ,3480 ,3480 ,3480 , - 000031 3480 ,3480) - 000032 VOL(B08489,B07654,B07818,B07170,B06356,B06467, - 000033 B06259,B05815,B03501,B08395,B04823,B05374, - 000034 B05459,B07706) - 000035 FSEQN(1,1,1,1,1,1,1,1,1,1,1,1,1,1) ) - 000036 CATALOG(CATALOG.VPRODC1) 000037 DEFINE NVSAM - 000038 (NAME(INTERNAL.SMF.IV3Hdddd.G0170V00) - 000039 DEVT(3480 ,3480 ,3480 ,3480 ,3480 ,3480 , - 000040 3480 ,3480 ,3480 ,3480 ,3480 ,3480 , - 000041 3480 ,3480) - 000042 VOL(B08067,B08071,B08101,B07898,B08647,B08723, - 000043 B08451,B08568,B08202,B08632,B07860,B08041, - 000044 B07392,B09009) - 000045 FSEQN(1,1,1,1,1,1,1,1,1,1,1,1,1,1) ) - 000046 CATALOG(CATALOG.VPRODC1) ****** *********************** BOTTOM OF DATA ************************ Internal Aspects: were described on page EDCHEK-1