I 'get' two files. The first step is IKJEFT01 - it runs the following REXX /* REXX */ QUEUE "Userid" QUEUE "Password" QUEUE "CD /DIROFINTEREST" QUEUE "dir" QUEUE "QUIT" "FTP 123.456.78.9 (EXIT" SAY 'FTP COMPLETE RETURN CODE=' RC /* */ ZISPFRC = RC; ADDRESS ISPEXEC "VPUT ZISPFRC SHARED" EXIT;
The JCL for the first step: //STEP1 EXEC PGM=IKJEFT01,DYNAMNBR=20 //SYSTERM DD SYSOUT=* //SYSTSPRT DD SYSOUT=* //SYSPRINT DD DSN=DIRLIST, // SPACE=(CYL,(1,2)), // UNIT=SYSDA, // DISP=(NEW,CATLG,DELETE), // DCB=(LRECL=121,BLKSIZE=12100,RECFM=FB) //SYSUDUMP DD SYSOUT=* //ISPPROF DD DISP=SHR,DSN=PROFILE //SYSPROC DD DISP=SHR,DSN=REXX //ISPPLIB DD DISP=SHR,DSN=PREPPENU //ISPSLIB DD DISP=SHR,DSN=SISPSENU //ISPMLIB DD DISP=SHR,DSN=SISPMENU //ISPTLIB DD DISP=SHR,DSN=SISPTENU //SYSTSIN DD DISP=SHR,DSN=REXX(DIRLIST) The second step parses the directory list - determines if the file exists The third step 'get's the file . NOTICE: This email message and/or its attachments may contain information that is confidential or restricted. It is intended only for individuals named as recipients in the message. If you are NOT an authorized recipient, you are prohibited from using, delivering, distributing, printing, copying, or disclosing the message or content to others and must delete the message from your computer. If you have received this message in error, please notify the sender by return email. Lucy Arnold <[EMAIL PROTECTED]> Sent by: IBM Mainframe Discussion List <[email protected]> 01/25/2007 03:48 PM Please respond to IBM Mainframe Discussion List To: [email protected] cc: (bcc: Gregory Grimm/DPC/SCC) Subject: Re: Condition code checking for FTP How many files? More than one?? Lucy ---------------------------------------------------------------------- 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
