24 lines
898 B
Plaintext
24 lines
898 B
Plaintext
//****
|
|
//**** PROCESS ERROR REPORT FOR ESSP DATA
|
|
//****
|
|
//****
|
|
//****
|
|
//DTSRSESP PROC RPTNODE=&RPTNODE.,
|
|
// RPTGEN='(+0)' /* ASSUMES USE WITHIN THE JOB
|
|
//****
|
|
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS
|
|
// COND=(4,LT),
|
|
// REGION=0K
|
|
//SYSOUT DD SYSOUT=*
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..&RPTNODE.&RPTGEN,DISP=SHR
|
|
//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.CONV.USER.PARMLIB(DTSSRREC),DISP=SHR
|
|
//****
|