JCL TO FTP FROM TEST SITE TO PRODUCTION

//STEP0100 EXEC PGM=FTP
//SYSPRINT DD SYSOUT=*
//INPUT DD *
ip addr of prod datacenter
userid
password
LOCSITE LRECL=nnn
LOCSITE BLKSIZE=nnnnn
LOCSITE RECFM=FB
PUT 'your test ftp file' 'your prod ftp file'
//OUTUT DD SYSOUT=*
//*

Here is a simple rexx exec to find the ip address

Code:

/* REXX */
PARSE VALUE SOCKET('INITIALIZE', 'TEST') WITH RC . . SERVER
PARSE VALUE SOCKET('GETHOSTID') WITH RC IP
SAY IP
EXIT