//DTSDX145 JOB (UI,4300,3400,T),RUNRQ460,CLASS=S,MSGCLASS=X,
//         USER=#DOADTS,
//         NOTIFY=ECNTZL1,
//****     TYPRUN=SCAN,
//****     TYPRUN=HOLD,
//         REGION=0M
//**
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
//**
//**
//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB
//******************************************************************** 
//***  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                                                            
/*
//
//*
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//*                       NO BACKUP NEEDED BEFORE THIS REPORT
//**
//STEP0010 EXEC PGM=SORT            SORT REPORT RECORDS
//SYSOUT DD SYSOUT=(*)
//SYSPRINT DD SYSOUT=(*)
//SORTIN  DD  DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR
//        DD  DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR,DISP=SHR
//SORTOUT DD  DSN=ECNTSUP.DOESTAX.CONV.TAXPFL.BE459,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SYSIN DD *
  SORT FIELDS=(24,9,CH,A)
  OMIT COND(24,9,CH,EQ,C'060726487')
//**
//STEP0100 EXEC PGM=DTSZXPFL,
//             COND=(0,LT),
//             REGION=4096K
//SYSOUT   DD   SYSOUT=*
//SYSABOUT DD   SYSOUT=*
//SYSABEND DD   SYSOUT=*
//CAIMRPTS DD   SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF  DD   DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//TAXFILE1 DD  DSN=ECNTSUP.DOESTAX.CONV.TAXPFL.BE459,DISP=SHR
//*
//*FLFILE1 DD  DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR,DISP=SHR
//PFLFILE1 DD  DUMMY
//*
//TAXFILE2 DD  DSN=ECNTSUP.DOESTAX.PROD.CMB.BE459,DISP=SHR
//*
//*******************************************************************
//STEP0200 EXEC PGM=SORT
//SORTIN  DD  DSN=ECNTSUP.DOESTAX.PROD.CMB.BE459,DISP=SHR
//SORTOUT DD  DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
//SYSIN    DD *
  SORT FIELDS=(1,386,CH,A)
  OMIT COND(24,9,CH,EQ,C'060726487')
//*
//*******************************************************************
//*STEP0300 EXEC PGM=FTP,REGION=2M
//*YSFTPD  DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMFTS9)
//***SYSFTPD  DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
//*SYSIN    DD *
//**FWFRIENDLY TRUE
//*SYSPRINT DD SYSOUT=*,HOLD=YES
//*INPUT    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX459),DISP=SHR
//*
//*******************************************************************
//STEP0400 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD01   DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR
//OUTDD01  DD DSN=DOESTAX.PROD.CLENHAND.BE459(+1),
//             DISP=(,CATLG,DELETE),
//             UNIT=SYSDA,
//             SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=386,BLKSIZE=27792)
//SYSIN    DD *
  REPRO INFILE(INDD01) OUTFILE(OUTDD01)
/*