//DTSPGOV2 JOB (TP),GOVONE,MSGCLASS=X,CLASS=A,MSGLEVEL=(1,1), // NOTIFY=TOPFF0,USER=#DOADTS,REGION=4M /*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE //PROCLIB JCLLIB ORDER=PROD.PROCS.BATCH.LIB BY Z/OS //******************************************************************** //* TRIGEERED IN BY DTSRQEXT JOB TO SEND FILE TO GOV1 * //* RUNS ON DOES CA/7 * //* FTP'S JOB DTSPODC5 TO OS12 TO START PUT PROCESS TO 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(DTSPODC5) //INPUT DD * 10.27.12.1 FTG1DOS1 DESUSR SITE FILETYPE=JES PUT 'DOESTAX.PROD.JOBLIB(DTSPODC5)' QUIT /*