//TSTBX479 JOB (UI,4300,3400,T),DTSBX479,                               00000010
//          CLASS=S,MSGCLASS=X,                                         00000010
//          USER=#DOADTS,
//          NOTIFY=ECNTZL1,
//          REGION=0M
//*                                                                     00001700
//   SET LVLNODE='DEVL'
//    SET MSTNODE='PROD'
//*                                                                     00001700
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//**                                                                    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=SYNCSORT,
//             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,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)
  INCLUDE COND=(11,2,CH,EQ,C'W2')
//*
//STEP0300 EXEC PGM=SYNCSORT,
//             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,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)
  INCLUDE COND=(11,2,CH,EQ,C'W4')
//*
//**                                                                    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..PARMLIB(UIBCHGOB),DISP=SHR
//
//*******************************************************************