Figure 22. Sample JCL for Creating TP Profile VSAM Data Set

Figure 22. Sample JCL for Creating TP Profile VSAM Data Set

//APPC001  JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
/*JOBPARM LINES=9999,TIME=1440
//TPSAMPLE EXEC PGM=IDCAMS
//VOL1     DD   DISP=OLD,UNIT=3380,VOL=SER=VOL
//SYSPRINT DD   SYSOUT=*
//SYSABEND DD   SYSOUT=*
//AMSDUMP  DD   SYSOUT=*
//SYSIN    DD   *
        DEFINE CLUSTER (NAME(TPFILE) -
            VOLUMES(VOL1) -
            INDEXED REUSE -
            SHAREOPTIONS(3 3) -
            RECORDSIZE(3824 7024) -
            KEYS(112 0) -
            RECORDS(300 150)) -
          DATA -
            (NAME(TPFILE.DATA)) -
          INDEX -
            (NAME(TPFILE.INDEX))
/*