there is a way to directly send individual loadlib members but to send a whole
loadlib you really should dump it first using the ADDRSSU utility.
this is jcl that i use.
the userid and password are in the FTPLPA xcics.ftp.cardd file.
//DELLPA EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE XCICS.SDFHLPA.UNLOAD NONVSAM PURGE
SET MAXCC=0
/*
//DUMPLPA EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//SYSPRIN1 DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//TAPE1 DD DISP=(NEW,CATLG,DELETE),
// DSN=XCICS.SDFHLPA.UNLOAD,SPACE=(CYL,(10,8),RLSE)
//SYSIN DD *
DUMP OUTDD(TAPE1) -
DATASET(INCLUDE(XCICS.KX640T2.SDFHLPA)) -
ALLDATA(*)
/*
//FTPLPA EXEC PGM=FTP,PARM=('ip.address')
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DSN=XCICS.FTP.CARDD,DISP=SHR
// DD *
DELETE 'XCICS.SDFHLPA.UNLOAD'
EBCDIC
BLOCK
SITE BLKSIZE=27998
SITE RECFM=U
SITE LRECL=0
SITE TRACKS
SITE PRIMARY=90
SITE SECONDARY=60
SITE VOL=MISTG3
STAT
PUT 'XCICS.SDFHLPA.UNLOAD'
QUIT
Then to reload the file on the remote system:
//RESTLPA EXEC PGM=ADRDSSU COND=((0,NE),(0,EQ))
//*EST EXEC PGM=ADRDSSU,PARM='TYPRUN=NORUN'
//SYSPRINT DD SYSOUT=*
//IN DD DSN=XCICS.SDFHLPA.UNLOAD,DISP=SHR
//OUT DD VOL=SER=MISTG2,DISP=SHR,UNIT=SYSDA
//*ENUNC(XCICS.*.*,POCWSS1.*.*) REPLACE
//SYSIN DD *
RESTORE INDD(IN) OUTDD(OUT) DATASET(INCLUDE(XCICS.KX640T2.SDFHLPA)) -
REPLACE
,/*
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of
Kurt Eastwood
Sent: Monday, April 27, 2009 11:32 AM
To: [email protected]
Subject: Using FTP to send loadlib
Hello,
I have been digging through the OS/390 TCP/IP OE: User's Guide and have not
been able to get this to work.
Is it possible to send a loadlib from 1 mainframe to another mainframe using
FTP, either batch or interactive?
If so, would anyone be willing to share some batch jcl with me?
Thanks,
Kurt
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
