JCL Example

This code segment will create a VSAM dataset named KC03K00.LAB2C.ACCTM2


 
000100 CREATEKS JOB
000400 STEP1 EXEC PGM=IDCAMS
001300 SYSPRINT DD SYSOUT=*
001400 SYSIN DD *
001500 DEFINE CLUSTER (NAME(KC03K00.LAB2C.ACCTM2) -
001600                             RECORDS(15 15) -
001700                             RECORDSIZE(100 100) -
001800                             KEYS(9 60) -
001900                             INDEXED) -
002000                             DATA (NAME(KC03K00.LAB2C.ACCTM2.DAT)) -
002100                             INDEX (NAME(KC03K00.LAB2C.ACCTM2.IDX))
002200 /*
002300 //*