//DTSRQ460 JOB (UI,4300,3400,T),RUNRQ460,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                                 *
//****** JOB NO LONGER NEEDED REPLACED BY RQ459 (DAILY) 01/14/21 ZL1*
//*******************************************************************
//*
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//*                       NO BACKUP NEEDED BEFORE THIS REPORT
//**
//STEP0200 EXEC DTSUX460
//*            RUNTYPE='OR'
//*
//STEP0100.EXTPARM DD *
460
/*
//***                     SORT BE460 FIRST 13 BYTES
//STEP0300 EXEC DTSRS460
//***
//STEP0400 EXEC PGM=FTP,REGION=2M
//SYSFTPD  DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMFTS9)
//SYSIN    DD *
FWFRIENDLY TRUE
//SYSPRINT DD SYSOUT=*,HOLD=YES
//INPUT    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT460),DISP=SHR
/*
//*