//ODC1ODC2 JOB (UI,4300,3400,T),CREATE-FTP-FILE,CLASS=P,
//*            TYPRUN=SCAN,
//             MSGCLASS=X,
//*            USER=OPCSUB,
//             NOTIFY=TOPFM0,
//             REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCS.BATCH.LIB    BY Z/OS
//*
//*-------------------------------------------------------------------*
//* FTP STEP TO TRANSFER FILE FROM ODC1 TO ODC2 FOR DOES PROCESSING   *
//* FOR APR/CHECKWRITE                                                *
//*-------------------------------------------------------------------*
//*
//STEP0300 EXEC PGM=FTP,REGION=8M,PARM='(EXIT TIMEOUT 120'
//SYSPRINT DD  SYSOUT=*
//OUTPUT   DD  SYSOUT=*
//INPUT    DD  DISP=SHR,DSN=DOESTAX.PROD.JOBLIB(OD1TOOD2)
//*