//DTSRQ450 PROC PARMLIB='DOESTAX.PROD.APPL.PARMLIB'                     00021099
//********************************************************************  00391099
//*         COPY WAGE FILE FROM TDEC TO TEMP DATASET                 *  00392099
//********************************************************************  00393099
//STEP0100 EXEC PGM=IDCAMS                                              00394099
//**                                                                    00395599
//INDD01  DD DSN=DOESTAX.CONV.W4TRAN.SRT(+0),DISP=SHR                   00396099
//**                                                                    00471099
//********************************************************************  00472099
//***  NEXT DATASET IS IN THE DOCS SYSTEM FOR UPDATING THE WAGE FILE    00480099
//***  THIS FILE IS DELETED AFTER EVERY DAILY DOCS SYSTEM UPDATE        00490099
//********************************************************************  00491099
//**                                                                    00500099
//OUTDD01 DD DSN=UI.DWAGE.MAGNETIC,DISP=(NEW,CATLG,DELETE),             00587799
//           UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),                        00587999
//           DCB=(RECFM=VBS,BLKSIZE=19069)                              00588099
//SYSPRINT DD SYSOUT=(*)                                                00588199
//SYSIN DD DSN=&PARMLIB(DTSRONE),DISP=SHR                               00588299
//*                                                                     00588399
//********************************************************************  00620099