//REPRO JOB (AMSEXI),'UOASxxx',NOTIFY=UOASxxx,
//    CLASS=A,MSGLEVEL=(1,1)
/*
//STEP0010 EXEC PGM=IDCAMS
//INDATA DD DSN=UOASxxx.TEST.DATA(OLDMAST),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
    DELETE (UOASxxx.VSAM.MASTER) CLUSTER
    DEFINE CLUSTER ( -
        NAME(UOASxxx.VSAM.MASTER) -
        INDEXED -
        RECORDSIZE(80 80) -
        KEYS(9 0) -
        FREESPACE(19 5) -
        VOLUMES (DB1469)-
        RECORDS (50 5)-
        SHAREOPTIONS (2 3) -
        UNIQUE) -
        DATA ( -
            NAME(UOASxxx.VSAM.MASTER.DATA)  -
            CISZ(1024)) -
        INDEX ( -
            NAME(UOASxxx.VSAM.MASTER.INDEX))
    REPRO INFILE(INDATA) -
        OUTDATASET(UOASxxx.VSAM.MASTER)
    IF LASTCC = 0 -
        THEN
            PRINT INDATASET(UOASxxx.VSAM.MASTER) CHARACTER