Code: Select all
//VSAMCR JOB
//DEFINE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER (NAME(PJVSAM00.00000000) -
CYLINDERS(1) VOLUMES(LZ0000) -
INDEXED KEYS(10 179) -
RECORDSIZE(240 240) -
) -
DATA (NAME(PJVSAM00.00000000.DATA)) -
INDEX (NAME(PJVSAM00.00000000.INDEX))
/*