31 lines
1.3 KiB
Plaintext
31 lines
1.3 KiB
Plaintext
//DTSDX145 JOB (UI,4300,3400,T),ZZZ,CLASS=A,
|
|
// USER=#DOADTS,
|
|
// NOTIFY=ECNTZL1,
|
|
// MSGCLASS=X,REGION=4M
|
|
//* 00001700
|
|
//*********************************************************************
|
|
//********************************************************************
|
|
//*** COPY ESSSP X145 FILE TO WEB X145 FILE FOR DUPLICATE CHECKING.
|
|
//** 02/09/16 ZL1
|
|
//********************************************************************
|
|
//****************************************************************
|
|
//STEP0010 EXEC PGM=SORT,REGION=1024K
|
|
//SORT.SYSPRINT DD SYSOUT=*
|
|
//SORT.STATOUT DD SYSOUT=*
|
|
//SORT.SYSDBOUT DD SYSOUT=*
|
|
//SORT.SYSUDUMP DD SYSOUT=*
|
|
//SORT.SYSOUT DD SYSOUT=*
|
|
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.ESSPX145,DISP=SHR,
|
|
//* DISP=(,CATLG,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(CYL,(20,10),RLSE),
|
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
|
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
|
//SYSIN DD *
|
|
SORT FIELDS=(1,11,CH,A)
|
|
END
|
|
//********************************************************************
|