//DTSTP590 JOB (UI,4300,3400,T),PROD.UC30.BR590,                        00000159
//         CLASS=P,MSGCLASS=X,                                          00000227
//****     TYPRUN=SCAN,                                                 00000317
//         NOTIFY=ECNTSUP,REGION=0K                                     00000417
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//**                                                                    00000510
//  SET LVLNODE='PROD'                             /* TEST/PROD         00000617
//  SET QTR='QTR20062'                             /* QTRCCYYQ          00000761
//  SET FA='DTSFAADP'                 /* FAADP/CER/PB/PC/ADA            00000861
//  SET LVOLSER='033403'                                                00001361
//  SET DTSX590='DTSP590C'                         /* C=CART/T=TAPE     00001446
//  SET LDEST=U@PRT65                                                   00001516
//  SET LHOLD='YES'                                                     00001643
//*                                                                     00001712
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB                       00001812
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001912
//****                                                                  00002010
//STEP0100 EXEC PGM=SORT,                           /* SRT RPT RECORDS   00002410
//             COND=(0,LT)                                              00002500
//SYSOUT   DD  SYSOUT=*                                                 00002600
//SORTIN   DD  DSN=DOESTAX.&LVLNODE..UC30.BR590.&QTR.,                  00004010
//*ORTIN   DD  DSN=DOESTAX.&LVLNODE..UC30.BR590.GB320061,               00004010
//             DISP=SHR                                                 00005010
//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.&LVLNODE..APPL.PARMLIB(&FA),DISP=SHR         00006219
//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
//STEP0200 EXEC PGM=DTSBD800,            /* CREATE CART/TAPE & RPTS     00018110
//             COND=(0,LT)                                              00018300
//PARMIN   DD  DUMMY                                                    00018415
//ATLSTIN  DD  DUMMY                                                    00018515
//SYSOUT   DD  SYSOUT=*                                                 00018615
//SYSABOUT DD  SYSOUT=*                                                 00018715
//SYSUDUMP DD  SYSOUT=*                                                 00018815
//**                                                                    00019000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFVRI1 DD  DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE)                    00050000
//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,                 00070010
//             AMP=('BUFNI=5,BUFND=10')                                 00080000
//**                                                                    00090012
//**                 SUCCESSFUL HITS (REFLECTS THE RPT590R2 OUTPUT)     00100020
//RPT590R1 DD  SYSOUT=Z,COPIES=2,                                       00100121
//             DEST=&LDEST.,HOLD=&LHOLD.                                00100220
//**                                                                    00100311
//***RPT590R2 DD  SYSOUT=*                         /* FOR TESTING       00100420
//DTSFIO   INCLUDE MEMBER=&DTSX590.             /* FOR PROD             00100520
//**                                                                    00100613
//**                                  UNSUCCESSFUL HITS (ERROR RPT)     00100720
//RPT590R3 DD  SYSOUT=Z,COPIES=2,                                       00100821
//             DEST=&LDEST.,HOLD=&LHOLD.                                00100920
//**                                                                    00101020
//**                               SUCCESSFUL HITS (USING FEIN ONLY)    00101137
//**                                     (SUBSET OF RPT590R1)           00101237
//RPT590R4 DD  SYSOUT=Z,COPIES=2,                                       00101337
//             DEST=&LDEST.,HOLD=&LHOLD.                                00101437
//**                                                                    00101537
//**                                        CONTROL REPORT              00101637
//RPT980R1 DD  SYSOUT=Q,COPIES=2,                                       00101737
//             DEST=&LDEST.,HOLD=&LHOLD.                                00102018
//**                                                                    00110000