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