//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
//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
//********************************************************************