//DTSBX432 JOB (UI,4300,3400,T),DTSBX432,                               00000010
//          CLASS=S,MSGCLASS=X,                                         00000010
//*         TYPRUN=SCAN,
//          USER=#DOADTS,
//**        NOTIFY=ECNTSUP,
//          NOTIFY=ECNTZL1,RESTART=STEPFTP,
//          REGION=0M
//*                                                                     00001700
//   SET LVLNODE='DEVL'
//   SET MSTNODE='PROD'
//   SET PRGNODE='PROD'
//*                                                                     00001700
//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//**                                                                    00001700
//*   EXTRACT EMPLOYER DATA FROM MAINFRAME FOR DOWNLOAD                 00001700
//*   TO ESSP WEB DATABASE                                              00001700
//*                                                                     00001700
//*   RUNS DAILY FOLLOWING TAX UPDATE (DTSPDAY1)                        00001700
//*                                                                     00001700
//*   READ-ONLY - NO MASTER FILE UPDATES.                               00001700
//*                                                                     00001700
//*   OUTPUT FILE:   PRODUCE DAILY UPDATES FROM DUTAS                   00001700
//*                                                                     00001700
//*                                                                     00001700
//*   THIS JOB MAY BE RERUN.                                            00001700
//*   IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS.                    00001700
//**                                                                    00001700
//STEP0100 EXEC DTSBX432
//*
//STEP0200 EXEC DTSBX441
//*
//STEP0300 EXEC DTSBX433
//** 
//* //            CODEPAGE=1252,AUTOENCODE=YES, 
//*
//**
//STEPFTP EXEC PGM=FTP,PARM='(EXIT'                                  
//INPUT    DD *                                                       
10.57.110.147 21                                                         
dutasrc                                                               
Today728rc!                                                           
cd //Dutasrc/essp/outbound_essp                                      
ascii                                                                 
put 'DOESTAX.CONV.ESSP.DAILY.FTP.X104' +
DOESTAX.CONV.ESSP.DAILY.FTP.X104
put 'DOESTAX.CONV.ESSP.DAILY.FTP.X141' +
DOESTAX.CONV.ESSP.DAILY.FTP.X141
QUIT                                                                  
//SYSPRINT DD  SYSOUT=*                                               
//OUTOUT   DD  SYSOUT=*                                               
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133                               
//SYSGET   DD  *,DCB=BLKSIZE=80                                       
//                                             
//*                                                                   00001700