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))
    /*