DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
20
Procs/DTSRQ450
Normal file
20
Procs/DTSRQ450
Normal file
@ -0,0 +1,20 @@
|
||||
//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
|
||||
Reference in New Issue
Block a user