20 lines
1.2 KiB
Plaintext
20 lines
1.2 KiB
Plaintext
//ECNT800Z JOB (UI,4300,3400,T),'CHGBD100',CLASS=A,MSGCLASS=X,
|
|
// NOTIFY=ECNTZL1,REGION=0M
|
|
//****
|
|
//STEP0100 EXEC PGM=SORT, SORT REPORT RECORDS
|
|
// COND=(4,LT)
|
|
//SYSOUT DD SYSOUT=(*)
|
|
//SYSPRINT DD SYSOUT=(*)
|
|
//SORTIN DD DSN=DOESTAX.PROD.SRTDAILY.RPT(+0),DISP=SHR
|
|
//****
|
|
//SORTOUT DD DSN=&&SRTOUT,
|
|
// DISP=(,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(8192,(1000,1000),RLSE),
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=0)
|
|
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSRREC),DISP=SHR
|
|
//****
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) |