//PRUX445Q PROC                                                         00010001
//*
//*****************************************************************
//*****   EDIT ICESA 275 BYTE WAGE DATA AND BUILD W4          *****
//*****   TRANSACTIONS                                        *****
//*****************************************************************
//*
//STEP0100  EXEC PGM=BCP0430G,PARM='&LOGNO.&ZEROEMP.'                   00080006
//ICESA    DD  DSN=DOESTAX.CONV.&LASTNODE.,
//         DISP=SHR
//*
//W4FILE  DD DSN=DOESTAX.CONV.&W4FILE,
//           DISP=(MOD,KEEP,KEEP),
//           UNIT=SYSDA,
//           SPACE=(CYL,(5,5)),
//           DCB=(RECFM=FB,LRECL=90,BLKSIZE=9000)
//*
//DTSFVRO1 DD  DSN=DOESTAX.CONV.&EMFILE,
//             DISP=(MOD,KEEP,KEEP),
//             UNIT=SYSDA,
//             SPACE=(8192,(1000,1000),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//ESP600F1  DD  DSN=UI.PROD.DOCS.ESP600F1,DISP=SHR
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//PRINT    DD  SYSOUT=(*)
//LISTOUT  DD  SYSOUT=(*)
//SYSABOUT DD  SYSOUT=(*)
//SYSPRINT DD  SYSOUT=(*)
//SYSUDUMP DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//*