23 lines
1.7 KiB
Plaintext
23 lines
1.7 KiB
Plaintext
//******************************************************************** 00020100
|
|
//* THIS JOB WILL EXTRACT REPORT TYPE 414 TO BE ARCHIVED FROM THE * 00020201
|
|
//* MONTHLY SOA WHEN DTSRQ414 RUNS STANDALONE. THIS JOB IS PART OF * 00020301
|
|
//* THE MONTH END PROCESSING * 00020401
|
|
//******************************************************************** 00020500
|
|
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00031000
|
|
// COND=(0,LT) 00032000
|
|
//SYSOUT DD SYSOUT=(*) 00040000
|
|
//SYSPRINT DD SYSOUT=(*) 00041000
|
|
//SORTIN DD DSN=DOESTAX.PROD.PER.RPT(+1),DISP=SHR 00060007
|
|
//**** 00060100
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..SOAMONTH(+1), 00060605
|
|
// DISP=(,CATLG,DELETE), 00060704
|
|
// SPACE=(CYL,(50,25),RLSE), 00060906
|
|
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00061004
|
|
//**** 00062000
|
|
//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.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR 00160004
|
|
//**** 00180000
|