//DESBD427 JOB (UI,4300,3400,T),ZZ,CLASS=A,MSGLEVEL=(1,1),              00010001
//       USER=#DOADTS,                                                  00020011
//       MSGCLASS=X,NOTIFY=ECNTZL1,REGION=4096K                         00020111
//*                                                                     00020208
//***************************************************                   00020308
//***** LOAD ESSP SSN AND NAMES INTO DUTAS NAME FILE                    00020408
//***************************************************                   00020508
//*  LOAD DUTAS WAGE NAME FILE WITH SSN AND NAMES FROM ESSP DAILY       00020608
//*  WAGE FILE. NAMES WILL BE MERGED WITH SSN ON OHTER JOBS.   02/10/18 00020708
//***************************************************                   00020808
//*                                                                     00020908
//   SET LVLNODE='DEVL'                                                 00021008
//   SET MSTNODE='PROD'                                                 00021108
//*                                                                     00021608
//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB                            00021708
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00021808
//*LOADLIBS INCLUDE MEMBER=DTSIPJLB                                     00021908
//*                                                                     00022008
//********************************************************************  00029800
//*  SORT OUT UNIQUE SSN(S) RECORDS FROM ESSP X144 QUARTERLY WAGE       00029903
//*  FILE.                                                       ZL1    00030000
//*  FILE.                                                       ZL1    00030112
//*  CHANGED SYNCSORT TO SORT PER OCTO, SYNCSORT ENDED 10/01/22  ZL1    00030212
//*****************************************************************     00030312
//*                                                                     00030412
//STEP0200 EXEC PGM=SORT                                                00031012
//SYSOUT DD SYSOUT=(*)                                                  00040000
//SYSPRINT DD SYSOUT=(*)                                                00041000
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR             00050007
//SORTOUT  DD DSN=&&ESSPSSN,                                            00050106
//      DISP=(NEW,PASS,DELETE),                                         00050206
//      UNIT=SYSDA,SPACE=(CYL,(20,15),RLSE),                            00050306
//      DCB=(SYS3.MODEL,RECFM=FB,LRECL=120,BLKSIZE=1200)                00050406
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                       00110000
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                       00120000
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                       00130000
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                       00140000
//SYSIN DD *                                                            00150000
  SORT FIELDS=(28,9,CH,A)                                               00160002
  SUM FIELDS=NONE                                                       00170000
  END                                                                   00180000
//*                                                                     00201006
//********************************************************************  00202000
//*  READ WAGE NAME FILE IF SSN FOUND CHECK NAME, IF DIFFERENT UPDATE   00203000
//*  IF SSN NOT FOUND ADD TO DATABASE                             ZL1   00204000
//*****************************************************************     00205000
//*                                                                     00206000
//******************************************************************    00210000
//STEP0300 EXEC PGM=DESBD427,                                           00220001
//             COND=(0,LT),                                             00230000
//             REGION=0M                                                00240000
//SYSOUT   DD  SYSOUT=*                                                 00250000
//SYSABOUT DD  SYSOUT=*                                                 00260000
//SYSABEND DD  SYSOUT=*                                                 00270000
//SYSUDUMP DD  SYSOUT=*                                                 00280000
//*                                                                     00290000
//DTSFNAME DD  DSN=DOESTAX.DEVL.VSAM.WAGENAME,DISP=SHR,                 00300006
//             AMP=('BUFNI=5,BUFND=10')                                 00310000
//*                                                                     00320000
//DTSFX144 DD  DSN=&&ESSPSSN,DISP=(OLD,PASS,DELETE)                     00330006
//*TSFX144 DD  DSN=DOESTAX.CONV.ESSP.QTRWAGE.SSNONLY.Q20181,DISP=SHR    00331006
//*                                                                     00340000
//*TSFX146 DD  DSN=ECNTSUP.DOESTAX.CONV.TAXWEB.ESSPX146,DISP=SHR        00350013
//DTSFX146 DD  DSN=DOESTAX.PROD.WAGE.NAME.EXP,DISP=SHR                  00351013
//*                                                                     00360000
//********************************************************************* 00370000
//***  COPY ESSP DAILY WAGES TO ARCHIVE BACKUP  FILE.                   00390007
//**                                                                    00400007
//********************************************************************  00410007
//**                                                                    00420007
//COPYESSP EXEC PGM=IDCAMS,COND=(0,LT)                                  00430007
//IFILE DD DSN=&&ESSPSSN,DISP=(OLD,PASS,DELETE)                         00440007
//**                                                                    00450007
//OFILE DD DSN=DOESTAX.CONV.ESSP.QTRWAGE.SSNONLY.Q20213,DISP=MOD        00460011
//SYSPRINT DD SYSOUT=(*)                                                00500007
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR         00510007
//**                                                                    00520007