Here is a sample of the generated jcl from my ftpbatch ispf dialog: //FTPSTEP EXEC PGM=FTP,PARM='mvshost.kp.org (EXIT' //SYSPRINT DD SYSOUT=* //NETRC DD DISP=(OLD,DELETE,DELETE), // DSN=SYSLBD.FTP.NETRC.D090427.T1128402 //INPUT DD * type e mode b cd LIONEL.LOAD lcd LIONEL.LOAD Put TESTMOD Close Quit /*
Notice that it just sets TYPE E (ebcdic) and MODE B (Block) and it is able to ftp successful a load module the dialog creates a temp file (NETRC) with the userid and password hope this helps Lionel B. Dyck, Consultant/Specialist ?Never attribute to malice what can be caused by miscommunication.? NOTICE TO RECIPIENT: If you are not the intended recipient of this e-mail, you are prohibited from sharing, copying, or otherwise using or disclosing its contents. If you have received this e-mail in error, please notify the sender immediately by reply e-mail and permanently delete this e-mail and any attachments without reading, forwarding or saving them. Thank you. From: "Barkow, Eileen" <[email protected]> To: [email protected] Date: 04/27/2009 11:16 AM Subject: Re: Using FTP to send loadlib Sent by: IBM Mainframe Discussion List <[email protected]> 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 ---------------------------------------------------------------------- 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
