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