* $$ JOB JNM=VSAM,CLASS=A,DISP=D,USER=MFICP
// JOB CLIVE 'ACCOUNT TEST'
// EXEC PGM=IDCAMS
       DELETE (TEST.KSDS) -
              CLUSTER
       SET    MAXCC=0
       DEFINE CLUSTER ( -
           NAME(TEST.KSDS) -
              UNIQUE -
              RECORDSIZE(80 80    ) -
              KEYS(10,0) -
              CYL(0200 0050) -
              VOLUMES(VCSD0Y ))
       REPRO INDATASET('TEST.SEQL') OUTDATASET('TEST.KSDS')
/*
// DLBL VFILE,'TEST.KSDS'
// ASSGN SYS040,001
* $$ LST LST=SYS040,FNO=FIC0,DISP=K
// EXEC PGM=TEST3
//
