19 lines
758 B
Plaintext
19 lines
758 B
Plaintext
//****
|
|
//DTSRS602 PROC
|
|
//****
|
|
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS
|
|
// COND=(0,LT),
|
|
// REGION=0K
|
|
//SYSOUT DD SYSOUT=*
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=(OLD,KEEP,KEEP)
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00005199
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00005299
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00005399
|
|
//SORTOUT DD DSN=&&SRTRPT,
|
|
// DISP=(,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(8192,(1000,1000),RLSE),
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR
|
|
//****
|