98 lines
6.0 KiB
Plaintext
98 lines
6.0 KiB
Plaintext
//DTSRQ591 JOB (UI,4300,3400,T),PROD.BD591.CHRGFA, 00000010
|
|
// CLASS=P,MSGCLASS=X, 00000010
|
|
//*** TYPRUN=SCAN,
|
|
// USER=#DOADTS,
|
|
// NOTIFY=ECNTZL1
|
|
//***
|
|
// SET YRQTR='QTR20251' /* YRQTR IN TO BE PROCESSED
|
|
// SET QTR591='QTR251' /* YRQTR OUT TO BE PROCESSED
|
|
// SET LVLNODE='PROD' /* DEVL/TEST/PROD
|
|
// SET LHOLD='NO' /* YES/NO
|
|
// SET LDEST=U@PRT65 /* ANY VALID DESTINATION
|
|
//****
|
|
//* 05/16/00 - THIS JOB WILL PROCESS ALL FISCAL AGENT DATA LOADED
|
|
//* FOR THE CHARGING FUNCTION FOR A GIVEN QUARTER
|
|
//* AND PRODUCE AN ERROR REPORT FOR EACH FISCAL AGENT.
|
|
//* >>>>> NOTE: CICS REGION MUST BE DOWN TO RUN THIS JOB <<<<<
|
|
//****
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
|
//** BKP ONLY WHEN NEEDED (E.G., NOT 00001700
|
|
//** NEEDED WHEN RUN IMMEDIATELY *AFTER* A DAILY)00001700
|
|
//*TEP0100 EXEC DTSUTVSM,
|
|
//* BKUPGEN='(+1)'
|
|
//**
|
|
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', /* SORT FA-CHG RECORDS 00310099
|
|
// COND=(0,LT) /* ALREADY LOADED IN GDG 00320099
|
|
//SYSOUT DD SYSOUT=* 00330000
|
|
//SORTIN DD DSN=DOESTAX.CONV.CHRG.FISCAGNT.&YRQTR.,DISP=SHR
|
|
//SORTOUT DD DSN=&&FISCAGNT, 00390099
|
|
// DISP=(,PASS,DELETE), 00400000
|
|
// UNIT=SYSDA, 00410000
|
|
// SPACE=(8000,(1000,1000),RLSE), 00420099
|
|
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000) 00430099
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGSREC5),DISP=SHR 00440099
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00450099
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00460099
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00470099
|
|
//** 00480099
|
|
//** PROCESS FISC AGNT(S) CHARGE INFO 00006199
|
|
//STEP0300 EXEC PGM=DTSBD591,
|
|
// COND=(0,LT),
|
|
// REGION=4096K
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//CAIMRPTS DD SYSOUT=*
|
|
//FAFILE DD DSN=&&FISCAGNT, 00390099
|
|
// DISP=(OLD,DELETE,DELETE) 00400000
|
|
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..CHGBR591.FA.&QTR591.,
|
|
//** DISP=SHR, /**>>> FOR RERUN
|
|
// DISP=(,CATLG,DELETE),
|
|
// SPACE=(8192,(100,200),RLSE),
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//**
|
|
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00002400
|
|
// COND=(0,LT) 00002500
|
|
//SYSOUT DD SYSOUT=* 00002600
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..CHGBR591.FA.&QTR591.,DISP=SHR 00003006
|
|
//SORTOUT DD DSN=&&SRTRPT, 00005700
|
|
// DISP=(,PASS,DELETE), 00005800
|
|
// UNIT=SYSDA, 00005900
|
|
// SPACE=(8192,(1000,1000),RLSE), 00006000
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00006100
|
|
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSRREC),DISP=SHR 00006203
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00007000
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00008000
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00009000
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00010000
|
|
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00011000
|
|
//**** 00018000
|
|
//STEP0500 EXEC PGM=DTSBD800, OUTPUT GENERATION 00018100
|
|
// COND=(0,LT) 00018300
|
|
//SYSOUT DD SYSOUT=* 00018400
|
|
//SYSABOUT DD SYSOUT=* 00018500
|
|
//SYSUDUMP DD SYSOUT=* 00018600
|
|
//PARMIN DD DUMMY 00018708
|
|
//ATLSTIN DD DUMMY 00018810
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) 00050000
|
|
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00070008
|
|
// AMP=('BUFNI=5,BUFND=10') 00080000
|
|
//** 00090000
|
|
//** CHG FISCAL AGENT ERROR REPORT(S) 00100008
|
|
//RPT591R1 DD SYSOUT=X,COPIES=2, 00100109
|
|
// HOLD=&LHOLD.,DEST=&LDEST. 00100209
|
|
//** CONTROL REPORT 00100409
|
|
//RPT980R1 DD SYSOUT=Q,COPIES=2, 00100509
|
|
// HOLD=&LHOLD.,DEST=&LDEST. 00100209
|
|
//** 00110000
|
|
//** BKP AFTER IS NEEDED {CHANGE (+1) TO
|
|
//** (+2) IF BACKED-UP IN STEP0100}
|
|
//STEP0600 EXEC DTSUTVSM,
|
|
// BKUPGEN='(+1)'
|
|
//****
|