//DTSCHRGI JOB (UI,4300,3400,T),TEST.FACHRGS.IN,
//         CLASS=P,MSGCLASS=X,NOTIFY=ECNTSUP,
//         REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCS.BATCH.LIB    BY Z/OS
//****
//  SET  FAFILE='D9.F13667.W200141'
//  SET TVOLSER='DI0062'
//****
//STEP0100 EXEC PGM=IDCAMS,
//             COND=(0,LT)
//SYSPRINT DD  SYSOUT=*
//INDD01   DD DSN=&FAFILE.,
//          UNIT=CART,
//          VOL=SER=&TVOLSER.,
//          LABEL=(1,SL,EXPDT=98000),
//          DISP=SHR
//**
//OUTDD01 DD  DSN=DOESTAX.CONV.IRS.DARLENE,
//            DISP=(,CATLG,DELETE),
//            SPACE=(31552,(100,200),RLSE),
//            DCB=(SYS3.MODEL,RECFM=FB,LRECL=544,BLKSIZE=31552)
//****
//SYSIN   DD  *
    REPRO  INFILE(INDD01)  OUTFILE(OUTDD01)
/*
//****