20 lines
1.5 KiB
Plaintext
20 lines
1.5 KiB
Plaintext
//******************************************************************** 00020100
|
|
//* THIS JOB WILL EXTRACT THE REPORT TYPES TO BE ARCHIVED FROM THE * 00020200
|
|
//* WEEKLY RUN DTSPDAY7. (RPT433R1 SI 2ND LETTER) * 00020301
|
|
//* * 00020400
|
|
//******************************************************************** 00020500
|
|
//STEP0100 EXEC PGM=SORT, SORT REPORT RECORDS 00031000
|
|
// COND=(0,LT) 00032000
|
|
//SYSOUT DD SYSOUT=(*) 00040000
|
|
//SYSPRINT DD SYSOUT=(*) 00041000
|
|
//SORTIN DD DSN=DOESTAX.PROD.SRTDAY07.RPT(+1),DISP=SHR 00060001
|
|
//**** 00060100
|
|
//SORTOUT DD DSN=DOESTAX.PROD.ARCHIVE.&ACHYEAR,DISP=MOD 00060500
|
|
//**** 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(DTSACHW1),DISP=SHR 00150001
|
|
//**** 00180000
|