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