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