//DTSPGOV1 JOB (TP),GOVONE,MSGCLASS=X,CLASS=A,MSGLEVEL=(1,1), 00010011 // NOTIFY=TOPFF0,USER=#DOADTS,REGION=4M 00010011 /*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE //PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS //********************************************************************** //* START OF GOV1 FILE TRANSFER PROCESS BETWEEN ODC1 ODC2 & GOV1 * //* RUNS ON DOES CA/7 * //* FTP'S JOB DTSPODC2 TO OS12 TO START GET PROCESS FROM GOV1 * //********************************************************************** //JS010 EXEC PGM=FTP,REGION=2M,PARM='(EXIT TIMEOUT 120' //SYSPRINT DD SYSOUT=* //OUTPUT DD SYSOUT=* //FTPJOB DD DISP=SHR,DSN=DOESTAX.PROD.JOBLIB(DTSPODC2) //INPUT DD * 10.27.12.1 FTG1DOS1 DESUSR SITE FILETYPE=JES PUT 'DOESTAX.PROD.JOBLIB(DTSPODC2)' QUIT /*