20 lines
792 B
Plaintext
20 lines
792 B
Plaintext
//****
|
|
//DTSRS459 PROC
|
|
//****
|
|
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT BE459 CLEAN FILE
|
|
// COND=(0,LT),
|
|
// REGION=0K
|
|
//SYSOUT DD SYSOUT=*
|
|
//SORTIN DD DSN=&&BE459,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=ECNTSUP.DOESTAX.PROD.FTP.BE459,
|
|
// DISP=(OLD,KEEP,KEEP),
|
|
//* DISP=(,CATLG,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(CYL,(20,10),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=386,BLKSIZE=27792)
|
|
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSR459),DISP=SHR
|
|
//****
|