//DTSRX591 JOB (UI,4300,3400,T),PROD.BD591.CHRGFA,                      00000010
//          CLASS=P,MSGCLASS=X,                                         00000010
//***       TYPRUN=SCAN,
//***       USER=#DOADTS,
//***       NOTIFY=ECNTJP2
//          NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//***
//   SET   YRQTR='QTR20024'             /* YRQTR IN  TO BE PROCESSED
//   SET  QTR591='QTR024'               /* YRQTR OUT TO BE PROCESSED
//   SET LVLNODE='PROD'                 /* DEVL/TEST/PROD
//   SET   LHOLD='NO'                   /* YES/NO
//   SET   LDEST=U@PRT65                /* ANY VALID DESTINATION
//****
//* 02/05/03 - THIS JOB WILL REPRODUCE THE FISC.AGNT REPORTS FROM THE
//*            THE DESIRED QTR FOR THE CHARGING RUN.
//****
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//**                                                                    00001700
//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=O,                        //* COPIES=2,           00100109
//             HOLD=&LHOLD.,DEST=&LDEST.                                00100209
//**                                         CONTROL REPORT             00100409
//RPT980R1 DD  SYSOUT=Q,COPIES=2,                                       00100509
//             HOLD=&LHOLD.,DEST=&LDEST.                                00100209
//****