20 lines
770 B
Plaintext
20 lines
770 B
Plaintext
//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)
|
|
//*
|