20 lines
793 B
Plaintext
20 lines
793 B
Plaintext
//****
|
|
//DTSRS460 PROC
|
|
//****
|
|
//STEP0100 EXEC PGM=SORT, SORT BE460 CLEAN FILE
|
|
// COND=(0,LT),
|
|
// REGION=0K
|
|
//SYSOUT DD SYSOUT=*
|
|
//SORTIN DD DSN=&&BE460,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.BE460,
|
|
// 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(DTSSR460),DISP=SHR
|
|
//****
|