//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..PROCS.BATCH.LIB                       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,                      /* 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,                          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)'
//****