28 lines
1.1 KiB
Plaintext
28 lines
1.1 KiB
Plaintext
//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.PROCS.BATCH.LIB 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
|
|
//**
|