//RACF     JOB 'REPRO',
//*        TYPRUN=SCAN,
//         NOTIFY=&SYSUID,
//         CLASS=A,
//         MSGCLASS=X,
//         MSGLEVEL=(1,1),
//         REGION=6000K,
//         COND=(4,LT)
//*
//****************************************************
//*        COPY VSAM TO SEQ
//****************************************************
//DELDEF   EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
   DELETE  HLQ.RACF.FLATFILE.SEQ
   SET MAXCC = 0
/*
//****************************************************
//REPROE   EXEC PGM=IDCAMS
//SYSUT1   DD DSN=SYS1.RACF.OS390.BACKUP,DISP=SHR
//SYSUT2   DD DSN=HLQ.RACF.FLATFILE.SEQ,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(70,10),RLSE),
//            DCB=(RECFM=FB,LRECL=4096,BLKSIZE=0)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
  REPRO INFILE(SYSUT1) OUTFILE(SYSUT2)
/*