Code:
000100 //GDC041A JOB NANCY,MSGLEVEL=(1,1),NOTIFY=&SYSUID
000161 //DELETE EXEC PGM=IDCAMS
000162 //SYSOUT DD SYSOUT=*
000163 //SYSPRINT DD SYSOUT=*
000165 //SYSIN DD *
000166 DELETE GDC041.VSAMKS01.CLUSTER PURGE
000167 IF MAXCC LE 08 THEN SET MAXCC = 0
000168 /*
000170 //*
000200 //DEFINE EXEC PGM=IDCAMS
000210 //SYSOUT DD SYSOUT=*
000211 //SYSPRINT DD SYSOUT=*
000400 //SYSIN DD *
000410 DEFINE CLUSTER (NAME(GDC041.VSAMKS01.CLUSTER) -
000420 IXD KEYS(06,0) -
000430 RECSZ(80,80) -
000440 SPEED IMBED REPLICATE -
000450 NOREUSE SHAREOPTIONS(3,3) ) -
000460 DATA (NAME(GDC041.VSAMKS01.DATA) -
000470 CONTROLINTERVALSIZE(8000) -
000480 CYL(01,01) ) -
000490 INDEX (NAME(GDC041.VSAMKS01.INDEX) -
000500 CONTROLINTERVALSIZE(512) -
000600 TRACKS(01,01)
000610 /*
000620 //IMPORT EXEC PGM=IDCAMS
000700 //SYSPRINT DD SYSOUT=*
000800 //INPUT DD DSN=GDC041.EX3.INPUT1,DISP=SHR
000900 //OUTPUT DD DSN=GDC041.VSAMKS01.CLUSTER,DISP=SHR
001000 //SYSIN DD *
001100 REPRO INFILE(INPUT) -
001200 OUTFILE(OUTPUT)
001201 PRINT INFILE(OUTPUT) -
001210 CHARACTER
001300 /*
