//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
//********************************************************************
//*********************************************************************
//* //            CODEPAGE=1252,AUTOENCODE=YES, 
//*
//**
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'                                  
//INPUT    DD *                                                       
10.57.110.147 21                                                         
dutasrc                                                               
Today728rc!                                                           
cd //Dutasrc/intranet/Outbound_intranet                                      
ascii                                                                 
put 'ECNTSUP.DOESTAX.CONV.ESSPX145' +
ECNTSUP.DOESTAX.CONV.ESSPX145  
QUIT                                                                  
//SYSPRINT DD  SYSOUT=*                                               
//OUTOUT   DD  SYSOUT=*                                               
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133                               
//SYSGET   DD  *,DCB=BLKSIZE=80                                       
//*