21 lines
1.6 KiB
Plaintext
21 lines
1.6 KiB
Plaintext
//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
|