//ECNTJRGF JOB (UI,4300,3400,T),TEST.FACHRGS.COPY,
//         CLASS=A,MSGCLASS=X,
//         NOTIFY=ECNTSUP,
//****     TYPRUN=SCAN,
//         REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCLIB    BY Z/OS
//**                                         PRIOR YRQTR
// SET FACPYIN='DOESTAX.CONV.CHRG.FISCAGNT.QTR20003.G0003V00'
// SET FACPYOU='DOESTAX.CONV.CHRG.FISCAGNT.QTR20004(+1)'
//**                                         CURRENT YRQTR
//****
//* 01/01/01 - THIS JOB WILL COPY FISCAL AGENT CHARGE DATA FROM
//*      A PRIOR YRQTR TO A NEW FILE FOR CURRENT YRQTR PROCESSING
//*       (DOUBLE CHECK WHICH F.A. IS IN FILE CALLED FORWARD!!)
//****
//STEP0100 EXEC PGM=IDCAMS,
//             COND=(0,LT)
//SYSPRINT DD  SYSOUT=*
//INDD01   DD  DSN=&FACPYIN.,
//             DISP=SHR
//OUTDD01  DD  DSN=&FACPYOU.,
//             DISP=(,CATLG,DELETE),
//             SPACE=(8192,(100,200),RLSE),
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//**