//DTSBX629 JOB (UI,4300,3400,P),'TDEC-ESSP',CLASS=A,MSGLEVEL=(1,1),     00010012
//    MSGCLASS=X,REGION=2048K,USER=#DOADTS,NOTIFY=ECNTZL1               00020012
//**                                                                    00050300
//**  CROSS CHECK TDEC DAILY WAGE FILE WITH ESSP X140 FILE FOR MISSING  00051001
//**  TDEC REPORTS.                                      07/12/18  ZL1  00053010
//**                                                                    00054010
//**                                                                    00055000
//    SET PRGNODE='DEVL'                                                00056000
//    SET LVLNODE='CONV'                                                00056100
//    SET MSTNODE='PROD'                                                00056210
//    SET IMPNODE='CONV'                                                00056300
//    SET UINODE='PROD'                                                 00057000
//**                                                                    00057100
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB                        00058000
//JOBLIB   DD  DSN=DOESTAX.PROD.BATCH.USER.LOADLIB,DISP=SHR             00060012
//         DD  DSN=DOESTAX.PROD.BATCH.LOADLIB,DISP=SHR                  00060112
//         DD  DSN=DOESTAX.DEVL.BATCH.LOADLIB,DISP=SHR                  00060212
//*        DD  DSN=UI.&UINODE..DOCS.LOADLIB,DISP=SHR                    00061019
//         DD  DSN=SYS1.SORTLIB,DISP=SHR                                00070000
//*                                                                     00080000
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0',   SORT TRANSACTIONS           00090000
//            COND=(0,LT)                                               00100000
//SYSOUT DD SYSOUT=*                                                    00110000
//*                                                                     00120000
//SORTIN   DD  DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.WAGES(+0),DISP=SHR     00130010
//         DD  DSN=DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES,DISP=SHR        00131013
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)                      00140000
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)                      00150000
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)                      00160000
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)                      00170000
//SORTOUT  DD  DSN=&&TDECANN,                                           00180000
//             DISP=(NEW,PASS,DELETE),                                  00190000
//*            DISP=SHR                                                 00200000
//             UNIT=SYSDA,                                              00210000
//             SPACE=(30720,(2000,2000),RLSE),                          00211000
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)                    00212002
//*SYSIN    DD  DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX629),DISP=SHR        00213002
//SYSIN    DD *                                                         00213102
  SORT FIELDS=(62,6,CH,A,86,5,CH,A)                                     00213202
  SUM FIELDS=NONE                                                       00213302
  END                                                                   00213402
//*                                                                     00213502
//*                                                                     00214000
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0',   SORT TRANSACTIONS           00216000
//            COND=(0,LT)                                               00217000
//SYSOUT DD SYSOUT=*                                                    00218000
//*                                                                     00219000
//SORTIN   DD  DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR          00230010
//*ORTIN   DD  DSN=ECNTSUP.DOESTAX.CONV.ESSPX140.DD071018,DISP=SHR      00231010
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)                      00240000
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)                      00250000
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)                      00260000
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)                      00270000
//SORTOUT  DD  DSN=&&TDECMISS,                                          00280000
//             DISP=(NEW,PASS,DELETE),                                  00300000
//*            DISP=SHR                                                 00310000
//             UNIT=SYSDA,                                              00320000
//             SPACE=(30720,(2000,2000),RLSE),                          00330000
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)                   00340000
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..PARMLIB(DTSBX629),DISP=SHR         00350001
//*                                                                     00360000
//**************************************************************        01210000
//*  CREATE REPORT FOR STAFF TO REVIEW TDEC MISSING REPORTS. MISSING    01220012
//*  WAGES MAY BE REJECTED BY ESSP.                                     01221012
//*****************************************************************     01230000
//STP0300 EXEC PGM=DTSBX629                                             01240001
//SYSPRINT DD  SYSOUT=*                                                 01250000
//SYSDBOUT DD  SYSOUT=*                                                 01260000
//SYSCOUNT DD  DUMMY                                                    01270000
//SYSUDUMP DD  DUMMY                                                    01280000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR                                      01290014
//DTSFX140 DD  DSN=&&TDECMISS,DISP=(OLD,PASS,DELETE)                    01290202
//DTSFI144 DD  DSN=&&TDECANN,DISP=(OLD,PASS,DELETE)                     01291013
//DTSFO144 DD  DSN=DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES,DISP=SHR        01292013
//RPT627R1 DD  DSN=DOESTAX.CONV.ESSP.RPT629.TXT,DISP=SHR                01307006
//SYSOUT   DD  SYSOUT=*                                                 01308000
//*                                                                     01360006
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT),                               01361000
//         REGION=4M                                                    01362000
//SYSPRINT DD SYSOUT=*                                                  01363000
//OUT1     OUTPUT DEST=U1003,                                           01364000
//  USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',                              01365000
//         'CC:MARGARET.HERNANDEZ@DC.GOV',                              01367017
//         'CC:RAJINI.JUJJAVARAPU@DC.GOV',                              01368010
//         'CC:SRUJANI.CHANDRAGIRI@DC.GOV',                             01368118
//         'CC:TIM.PERLOW@DC.GOV',                                      01369016
//         'CC:ESAYAS.LEMMA@DC.GOV',                                    01369110
//         'SUBJECT: TDEC-ESSP REPORTS SENT/RECEIVED',                  01369212
//         'FILENAME:ESSP_TDEC_WAGES.TXT',                              01369411
//         'FILEDESC: TDEC REPORTS RECEIVED FROM ESSP          '),      01369515
//         MAILFROM=DUTAS@DC.GOV                                        01369615
//SYSUT1   DD DSN=DOESTAX.CONV.ESSP.RPT629.TXT,DISP=SHR                 01369706
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1                                    01369800
//SYSIN    DD DUMMY                                                     01369900
//SYSUDUMP DD SYSOUT=(*,,DUMP)                                          01370000
//**********************************************************************01380000