//DTSGSID2 JOB (UI,4300,3400,T),DTSBX479,                               00000010
//          CLASS=S,MSGCLASS=X,                                         00000010
//          USER=#DOADTS,
//          NOTIFY=ECNTZL1,
//          REGION=0M
//*                                                                     00001700
//   SET LVLNODE='PROD'
//    SET MSTNODE='PROD'
//*                                                                     00001700
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//**     
//*                   RAINCODE TESTED 08/30/25          ZL1
//*                                                               00001700
//*   EXTRACT EMPLOYER DATA (NAME, ADDRESS, CLASS, STATUS) FOR UIBS     00001700
//*   FROM TAX MASTER FILES FOR BENEFITS APPLICATIONS                   00001700
//*                                                                     00001700
//*   RUNS DAILY FOLLOWING TAX UPDATE (DTSPDAY1)                        00001700
//*                                                                     00001700
//*   *** JOB DTSPDAY1 MUST RUN SUCESSFULL             ZL1              00001700
//*                                                                     00001700
//*   READ-ONLY - NO MASTER FILE UPDATES.                               00001700
//*                                                                     00001700
//*   THIS JOB MAY BE RERUN.                                            00001700
//*   IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS.                    00001700
//**                                                                    00001700
//STEP0100 EXEC DTSBX479
//**                                                                    00001700
//STEP0200 EXEC PGM=SORT,
//             COND=(0,LT),
//             REGION=4096K
//SORT.SYSPRINT DD SYSOUT=*
//SYSPRINT      DD SYSOUT=*
//SORT.STATOUT  DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT   DD SYSOUT=*
//SORTIN   DD  DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR
//SORTOUT  DD  DSN=DOESTAX.CONV.UIBS.W2FILE.TEMP,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN    DD *
  SORT FIELDS=(1,9,CH,A,44,5,CH,A,57,6,CH,A)
  INCLUDE COND=(11,2,CH,EQ,C'W2')
//*
//**                                                                    00001700
//STEP0250 EXEC PGM=SORT,
//             COND=(0,LT),
//             REGION=4096K
//SORT.SYSPRINT DD SYSOUT=*
//SYSPRINT      DD SYSOUT=*
//SORT.STATOUT  DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT   DD SYSOUT=*
//SORTIN   DD  DSN=DOESTAX.CONV.UIBS.W2FILE.TEMP,DISP=SHR
//SORTOUT  DD  DSN=DOESTAX.CONV.UIBS.W2FILE,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN    DD *
  SORT FIELDS=(1,9,CH,A,44,5,CH,A,57,6,CH,A)
  SUM FIELDS=NONE
//*
//STEP0300 EXEC PGM=SORT,
//             COND=(0,LT),
//             REGION=4096K
//SORT.SYSPRINT DD SYSOUT=*
//SYSPRINT      DD SYSOUT=*
//SORT.STATOUT  DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT   DD SYSOUT=*
//SORTIN   DD  DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR
//SORTOUT  DD  DSN=DOESTAX.CONV.UIBS.W4FILE.TEMP,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN    DD *
  SORT FIELDS=(1,9,CH,A,44,5,CH,A,57,6,CH,A)
  INCLUDE COND=(11,2,CH,EQ,C'W4')
//*
//**                                                                    00001700
//STEP0350 EXEC PGM=SORT,
//             COND=(0,LT),
//             REGION=4096K
//SORT.SYSPRINT DD SYSOUT=*
//SYSPRINT      DD SYSOUT=*
//SORT.STATOUT  DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT   DD SYSOUT=*
//SORTIN   DD  DSN=DOESTAX.CONV.UIBS.W4FILE.TEMP,DISP=SHR
//SORTOUT  DD  DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN    DD *
  SORT FIELDS=(1,9,CH,A,44,5,CH,A,57,6,CH,A)
  SUM FIELDS=NONE
//*
//**                                                                    00001700
//**  PUT DUTAS DAILY UPDATES ON UAT SERVER FOR GSI  TO PICKUP          00001700
//**                                                                    00001700
//**                                                                    00001700
//*STEP0200 EXEC PGM=FTP,
//*             COND=(0,LT)
//*SYSPRINT DD  SYSOUT=*
//*OUTOUT   DD  SYSOUT=*
//*SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
//*SYSGET   DD  *,DCB=BLKSIZE=80
//*INPUT    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(PUTGSI02),DISP=SHR
//*
//STEP0100 EXEC PGM=DTSBX478,
//             COND=(0,LT),
//             REGION=4096K
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//CAIMRPTS DD  SYSOUT=*
//*
//DTSFW2   DD  DSN=DOESTAX.CONV.UIBS.W2FILE,DISP=SHR
//*
//DTSFW4   DD  DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR
//*
//DTSFUIBS DD  DSN=DOESTAX.CONV.UIBS.WZFILE,
//              CODEPAGE=1252,AUTOENCODE=YES,DISP=SHR
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//**
//STEP0400 EXEC PGM=IEBGENER,COND=(0,LT),REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1     OUTPUT DEST=U1003,
//  USERDATA=('TO:JASHIM.UDDIN@DC.GOV',
//         'CC:ZARATH.LALPUTAN@DC.GOV',
//         'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
//         'CC:SEAN.JOSIAH@DC.GOV',
//         'CC:RAJINI.JUJJAVARAPU@DC.GOV',
//         'CC:JARONE.ROBINSON@DC.GOV',
//         'CC:RAMBABU.PEETLA@DC.GOV',
//         'SUBJECT: DUTAS DAILY WAGE COUNTS PASSED TO UIBS   ',
//         'FILEDESC: DAILY WAGES COUNT FROM DUTAS            ',
//         'FILENAME:DAILY-DUTAS-WAGES.TXT'),
//         MAILFROM=DUTAS@DC.GOV
//SYSUT1   DD DSN=DOESTAX.CONV.UIBS.WZFILE,
//         CODEPAGE=1252,AUTOENCODE=YES,DISP=SHR
//SYSUT2   DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//*******************************************************************