21 lines
842 B
Plaintext
21 lines
842 B
Plaintext
//****
|
|
//EFTXSORT PROC
|
|
//**** /* PRODUCING THE SORTIN FILE
|
|
//****
|
|
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS
|
|
// COND=(0,LT),
|
|
// REGION=0K
|
|
//SYSOUT DD SYSOUT=*
|
|
//SORTIN DD DSN=DOESTAX.&MSTNODE..DOESERR,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//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.&MSTNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR
|
|
//****
|