//PRUX413Q PROC 00015066 //* 00041123 //******************************************************************** 00051000 //* STEP0100 - VALIDATE WAGE TRANSACTIONS FROM TAPE 00060048 //******************************************************************** 00070000 //STEP0100 EXEC PGM=WAGEDC,PARM='&LOGNO.&ZEROEMP.' 00080065 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(PRUI413Q),DISP=SHR 00120068 //MAGFILE DD DSN=DOESTAX.CONV.&LOGNODE., 00120172 //*AGFILE DD DSN=DOESTAX.CONV.WAGEDC, 00120272 // DISP=SHR 00120369 //ESP600F1 DD DSN=UI.PROD.DOCS.ESP600F1,DISP=SHR 00120471 //* 00120571 //MAGOUT DD DSN=DOESTAX.CONV.&W4FILE, 00120671 // DISP=(MOD,KEEP,KEEP), 00120771 // UNIT=SYSDA, 00120871 // SPACE=(CYL,(5,5)), 00120971 // DCB=(RECFM=FB,LRECL=90,BLKSIZE=9000) 00121071 //* 00160015 //DTSFVRO1 DD DSN=DOESTAX.CONV.&EMFILE, 00172063 // DISP=(MOD,KEEP,KEEP), 00173058 // UNIT=SYSDA, 00173135 // SPACE=(8192,(1000,1000),RLSE), 00174029 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00175037 //* 00180028 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00190047 //***************************************************************** 00320000 //LISTOUT DD SYSOUT=(*) 00330000 //SYSABOUT DD SYSOUT=(*) 00340004 //SYSPRINT DD SYSOUT=(*) 00360004 //SYSUDUMP DD SYSOUT=(*) 00370047 //SYSOUT DD SYSOUT=(*) 00400000 //* 00410029