25 lines
736 B
Plaintext
25 lines
736 B
Plaintext
//dtseftg1 JOB (TOS00),'GOVONE FTP',CLASS=A,MSGCLASS=X,
|
|
// USER=#DOADTS
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS
|
|
//*
|
|
//*
|
|
//FTPXFER EXEC PGM=FTP,REGION=6M,PARM='(EXIT TIMEOUT 120'
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUTPUT DD SYSOUT=*
|
|
//INPUT DD *
|
|
10.27.12.1
|
|
FTG1DOS1
|
|
DESUSR
|
|
ebcdic
|
|
mode block
|
|
site tr pri=300 sec=200 unit=work
|
|
put 'DOESTAX.HDVL.EFTEXT' DOESTAX.HDVL.EFTEXT
|
|
dir
|
|
quit
|
|
/*
|
|
//*-------------------------------------------------------------------*
|
|
//* A trailer step should be added here to demand the SYADG1P1 job *
|
|
//* at ODC2 *
|
|
//*-------------------------------------------------------------------*
|