//TR$I01R2 JOB 'TRAIN-RIGHT',MSGCLASS=H,CLASS=S, 00010000 // NOTIFY=&SYSUID 00020000 //* 00030000 //**********************************************************************00040000 //* *00050000 //* D E F I N E R E X X A V S A M F I L E S *00060000 //* *00070000 //* CHANGE ALL '@' TO A DISK VOLUME NAME WHERE THE VSAM DATASET ARE *00080000 //* TO RESIDE. *00090000 //* CHANGE ALL '#' TO THE CLUSTER NAME OF THE FIRST VSAM DATASET. *00100000 //* CHANGE ALL '!' TO THE CLUSTER NAME OF THE SECOND VSAM DATASET. *00110000 //* CHANGE ALL '$' TO THE CLUSTER NAME OF THE THIRD VSAM DATASET. *00120000 //* *00130000 //* SET THE SYMBOLIC VARIABLES TO THE FOLLOWING VALUES: *00140000 //* REXXLIB - DATASET NAME OF THE ADVANCED REXX LIBRARY. *00150000 //* *00160000 //**********************************************************************00170000 //* 00180000 //SETVARS SET REXXLIB=TR$I01.REXXA.EXEC 00190000 //* 00200000 //DEFINE1 EXEC PGM=IDCAMS 00210000 //SYSPRINT DD SYSOUT=* 00220000 //SYSIN DD * 00230000 DELETE TR$I01.REXXA.KSDS 00240000 SET MAXCC = 0 00250000 DEFINE CLUSTER - 00260000 (NAME(TR$I01.REXXA.KSDS) - 00270000 INDEXED - 00280000 VOLUMES(VPMVSC) - 00290000 BUFFERSPACE(52224) - 00300000 REUSE - 00310000 SHAREOPTIONS(1 4)) - 00320000 DATA - 00330000 (NAME(TR$I01.REXXA.KSDS.DATA) - 00340000 CYLINDERS(1 1) - 00350000 RECORDSIZE(80 80) - 00360000 KEYS(6 0) - 00370000 CONTROLINTERVALSIZE(16384) - 00380000 FREESPACE(77 0) - 00390000 SPEED) - 00400000 INDEX - 00410000 (NAME(TR$I01.REXXA.KSDS.INDEX) - 00420000 CONTROLINTERVALSIZE(1024)) 00430000 /* 00440000 //* 00450000 //REXX1 EXEC PGM=IKJEFT01, 00460000 // COND=(0,NE,DEFINE1) 00470000 //SYSEXEC DD DSN=&REXXLIB,DISP=SHR 00480000 //SYSTSPRT DD SYSOUT=* 00490000 //SYSTSIN DD * 00500000 PROFILE NOPREFIX 00510000 %VSAMADD TR$I01.REXXA.KSDS 00520000 %VSAMADD TR$I01.REXXA.KSDS XXXX 00530000 %VSAMADD TR$I01.REXXA.KSDS TRXX 00540000 %VSAMADD TR$I01.REXXA.KSDS TR00 X 00550000 %VSAMADD TR$I01.REXXA.KSDS TR00 XX 00560000 %VSAMADD TR$I01.REXXA.KSDS TR00 01 00570000 %VSAMADD TR$I01.REXXA.KSDS TR00 01 XXXXXXXXX 00580000 %VSAMADD TR$I01.REXXA.KSDS TR00 01 FINS 00590000 %VSAMADD TR$I01.REXXA.KSDS TR00 02 MASK 00600000 %VSAMADD TR$I01.REXXA.KSDS TR00 03 WETSUIT 00610000 %VSAMADD TR$I01.REXXA.KSDS TR00 04 SNORKEL 00620000 %VSAMADD TR$I01.REXXA.KSDS TR00 05 WEIGHTS 00630000 %VSAMADD TR$I01.REXXA.KSDS TR00 06 GAUGES 00640000 %VSAMADD TR$I01.REXXA.KSDS TR00 07 STRAPS 00650000 %VSAMADD TR$I01.REXXA.KSDS TR00 08 GLOVES 00660000 %VSAMADD TR$I01.REXXA.KSDS TR00 09 BOOTIES 00670000 %VSAMADD TR$I01.REXXA.KSDS TR99 01 FINS 00680000 %VSAMADD TR$I01.REXXA.KSDS TR99 02 MASK 00690000 %VSAMADD TR$I01.REXXA.KSDS TR99 02 MASK 00700000 %VSAMDIR TR$I01.REXXA.KSDS 00710000 %VSAMDIR TR$I01.REXXA.KSDS TR00 00720000 %VSAMDIR TR$I01.REXXA.KSDS TR99 00730000 %VSAMDIR TR$I01.REXXA.KSDS TR99 00 00740000 %VSAMDIR TR$I01.REXXA.KSDS TR99 01 00750000 %VSAMDIR TR$I01.REXXA.KSDS TR99 99 00760000 %MYVSAMD TR$I01.REXXA.KSDS TR98 00 GTEQ 00770000 %VSAMUPD TR$I01.REXXA.KSDS TR99 01 00780000 %VSAMUPD TR$I01.REXXA.KSDS TR98 01 UPDATED 00790000 %VSAMUPD TR$I01.REXXA.KSDS TR99 01 UPDATED 00800000 %VSAMSEQ TR$I01.REXXA.KSDS 00810000 %VSAMSKIP TR$I01.REXXA.KSDS 00820000 %VSAMSKIP TR$I01.REXXA.KSDS TR99 00830000 %VSAMSKIP TR$I01.REXXA.KSDS TR98 00840000 %LISTVS TR$I01.REXXA.KSDS 00850000 %MYLISTV TR$I01.REXXA.KSDS HISTORY 00860000 /* 00870000 //* 00880000 //DEFINE2 EXEC PGM=IDCAMS 00890000 //SYSPRINT DD SYSOUT=* 00900000 //SYSIN DD * 00910000 DELETE TR$I01.REXXA.KSDSLOAD 00920000 SET MAXCC = 0 00930000 DEFINE CLUSTER - 00940000 (NAME(TR$I01.REXXA.KSDSLOAD) - 00950000 INDEXED - 00960000 VOLUMES(VPMVSC) - 00970000 BUFFERSPACE(52224) - 00980000 REUSE - 00990000 SHAREOPTIONS(1 4)) - 01000000 DATA - 01010000 (NAME(TR$I01.REXXA.KSDSLOAD.DATA) - 01020000 CYLINDERS(1 1) - 01030000 RECORDSIZE(80 80) - 01040000 KEYS(6 0) - 01050000 CONTROLINTERVALSIZE(16384) - 01060000 FREESPACE(77 0) - 01070000 SPEED) - 01080000 INDEX - 01090000 (NAME(TR$I01.REXXA.KSDSLOAD.INDEX) - 01100000 CONTROLINTERVALSIZE(1024)) 01110000 /* 01120000 //REXX2 EXEC PGM=IKJEFT01, 01130000 // COND=(0,NE,DEFINE2) 01140000 //SYSEXEC DD DSN=&REXXLIB,DISP=SHR 01150000 //SYSTSPRT DD SYSOUT=* 01160000 //SYSTSIN DD * 01170000 PROFILE NOPREFIX 01180000 %VSAMSEQ TR$I01.REXXA.KSDSLOAD 01190000 %MYVSAMQ TR$I01.REXXA.KSDSLOAD 01200000 %LISTVS TR$I01.REXXA.KSDSLOAD 01210000 %MYLISTV TR$I01.REXXA.KSDSLOAD HISTORY 01220000 /* 01230000 //* 01240000 //DEFINE3 EXEC PGM=IDCAMS 01250000 //SYSPRINT DD SYSOUT=* 01260000 //SYSIN DD * 01270000 DELETE TR$I01.REXXA.KSDSZERO 01280000 SET MAXCC = 0 01290000 DEFINE CLUSTER - 01300000 (NAME(TR$I01.REXXA.KSDSZERO) - 01310000 INDEXED - 01320000 VOLUMES(VPMVSC) - 01330000 BUFFERSPACE(52224) - 01340000 REUSE - 01350000 SHAREOPTIONS(1 4)) - 01360000 DATA - 01370000 (NAME(TR$I01.REXXA.KSDSZERO.DATA) - 01380000 CYLINDERS(1 1) - 01390000 RECORDSIZE(80 80) - 01400000 KEYS(6 0) - 01410000 CONTROLINTERVALSIZE(16384) - 01420000 FREESPACE(77 0) - 01430000 SPEED) - 01440000 INDEX - 01450000 (NAME(TR$I01.REXXA.KSDSZERO.INDEX) - 01460000 CONTROLINTERVALSIZE(1024)) 01470000 /* 01480000 //* 01490000 //REXX3 EXEC PGM=IKJEFT01, 01500000 // COND=(0,NE,DEFINE3) 01510000 //SYSEXEC DD DSN=&REXXLIB,DISP=SHR 01520000 //SYSOUT DD SYSOUT=* 01530000 //SYSTSPRT DD SYSOUT=* 01540000 //SYSTSIN DD * 01550000 PROFILE NOPREFIX 01560000 %VSAMADD TR$I01.REXXA.KSDSZERO TR00 00 DUMMY 01570000 %VSAMDEL TR$I01.REXXA.KSDSZERO TR0000 01580000 %VSAMDEL TR$I01.REXXA.KSDSZERO TR0000 01590000 %VSAMDEL TR$I01.REXXA.KSDSZERO 01600000 %VSAMDEL TR$I01.REXXA.KSDSZERO X 01610000 %VSAMSEQ TR$I01.REXXA.KSDSZERO 01620000 %LISTVS TR$I01.REXXA.KSDSZERO 01630000 %MYLISTV TR$I01.REXXA.KSDSZERO HISTORY 01640000 /* 01650000 // 01660000