DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
19
Procs/DTSACHD1
Normal file
19
Procs/DTSACHD1
Normal file
@ -0,0 +1,19 @@
|
||||
//******************************************************************* 00020105
|
||||
//* THIS JOB WILL EXTRACT THE REPORT TYPES TO BE ARCHIVED FROM THE * 00020205
|
||||
//* DAILY RUN. * * 00020305
|
||||
//* * 00020405
|
||||
//******************************************************************* 00020805
|
||||
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00031000
|
||||
// COND=(4,LT) 00032011
|
||||
//SYSOUT DD SYSOUT=(*) 00040000
|
||||
//SYSPRINT DD SYSOUT=(*) 00041000
|
||||
//SORTIN DD DSN=DOESTAX.PROD.SRTDAILY.RPT(+1),DISP=SHR 00060005
|
||||
//**** 00060100
|
||||
//SORTOUT DD DSN=DOESTAX.PROD.ARCHIVE.&ACHYEAR.,DISP=MOD 00060513
|
||||
//**** 00060900
|
||||
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00110000
|
||||
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00120000
|
||||
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00130000
|
||||
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00140000
|
||||
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSACHD1),DISP=SHR 00150008
|
||||
//******************************************************************* 00260007
|
||||
Reference in New Issue
Block a user