//DTSRQ459 JOB (UI,4300,3400,T),RUNRQ459,CLASS=S,MSGCLASS=X,
//         NOTIFY=ECNTSUP,
//**       RESTART=STEP0400,
//         USER=#DOADTS,
//****     TYPRUN=SCAN,
//****     TYPRUN=HOLD,
//    REGION=0M
//**
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
//**
//**
//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB
//*
//*******************************************************************
//*    CITYWIDE CLEAN HANDS EXTRACT  - DAILY EXTRACT                *
//*    RQ460 WILL CONTINUE TO RUN AS A WEEKLY EXTRACT      ZL1      *
//*******************************************************************
//*
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//*                       NO BACKUP NEEDED BEFORE THIS REPORT
//**
//STEP0200 EXEC DTSUX459
//*            RUNTYPE='OR'
//*
//STEP0100.EXTPARM DD *
459
/*
//***                     SORT BE460 FIRST 13 BYTES
//STEP0300 EXEC DTSRS459
//*
//*STEP0400 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
//*
//*
//********************************************************************
//*                                                                |
//* JOB       : SAVE A COPY OF THE FTP CLEAN HANDS FILE
//*                                                                |
//********************************************************************
//STEP0250 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),
//             CODEPAGE=1252,AUTOENCODE=YES,
//             DCB=(RECFM=LSEQ,LRECL=386,BLKSIZE=27792)
//SYSIN    DD *
  REPRO INFILE(INDD01) OUTFILE(OUTDD01)
/*
//