/FTPRZH01 EXEC PGM=FTP,
// PARM='<server> (EXIT'
//SYSTCPD DD DSN=TCPIPSIS.COMUN.CONFIG(TCPDATA),DISP=SHR
//SYSFTPD DD DSN=TCPIPSIS.COMUN.CONFIG(FTSDATA),DISP=SHR
//SYSPRINT DD SYSOUT=*
//OUTPUT DD *
//INPUT DD DISP=SHR,DSN=ORC.GRISB.JCL.SYSIN(K3FTPRZH)
// DD *
CD
IN
BIN
GET CCDTA1 +
'ORC.DEVT.RZHART.CCDTA1' (REPLACE
CLOSE
QUIT
// PARM='<server> (EXIT'
//SYSTCPD DD DSN=TCPIPSIS.COMUN.CONFIG(TCPDATA),DISP=SHR
//SYSFTPD DD DSN=TCPIPSIS.COMUN.CONFIG(FTSDATA),DISP=SHR
//SYSPRINT DD SYSOUT=*
//OUTPUT DD *
//INPUT DD DISP=SHR,DSN=ORC.GRISB.JCL.SYSIN(K3FTPRZH)
// DD *
CD
IN
BIN
GET CCDTA1 +
'ORC.DEVT.RZHART.CCDTA1' (REPLACE
CLOSE
QUIT