Thanks, Clovis.

Regards,
Steve



________________________________
From: The IBM z/VM Operating System [mailto:[email protected]] On Behalf 
Of [email protected]
Sent: Thursday, December 09, 2010 11:13 AM
To: [email protected]
Subject: Re: FTP within REXX EXEC


Hi, Steve.

>> My question is.  What can I do to retrieve the return code if this fails or 
>> is successful?

The answer is: append "(exit" to FTP command.
See this sample (that sends PERFSVM summary files to GDG file at zOS). In this 
case: binary, EBCDIC, variable records...

/********************************************************/
/*  Send  SUMMARY DATA to MVS by FTP                    */
/********************************************************/
    Arg fn ft nfm lrecl .
    fileid = fn||"."||ft||"."||nfm
    queue "quote site recfm=VB lrecl="lrecl "blksize=0"
    queue "quote site STORCLAS=VMBASE"
    queue "cd 'TDS.FROMVM.'"
    queue "passive"
    queue "MODE B"
    queue "TYPE E"
    queue "put" fileid ZVM540||"(+1)"
    queue "quit"
    ftp "10.100.1.220 (exit"
    $rc = rc
Return $rc

Good luck.
______________________________________________
Clovis


From:   Steve Perez <[email protected]>
To:     [email protected]
Date:   08/12/2010 20:05
Subject:        FTP within REXX EXEC
Sent by:        The IBM z/VM Operating System <[email protected]>

________________________________



Hello Listers,

I have written an REXX exec to file transfer monitor data files from our

z/VM Lpar to our z/OS Lpar using FTP.  The following is an excerpt from

that code:

push 'quit'


push put TEST.FILE.A 'my.zos.dsn'
... other ftp commands here ...

'FTP' ftpaddress

My question is.  What can I do to retrieve the return code if this fails

or is successful?  Or any other ideas or suggestions I can use to
determine if the file successfully transferred?

Thanks in advance for any and all replies.

Steve.


******************************************************************************************
 
This message may contain confidential or proprietary information intended only 
for the use of the 
addressee(s) named above or may contain information that is legally privileged. 
If you are 
not the intended addressee, or the person responsible for delivering it to the 
intended addressee, 
you are hereby notified that reading, disseminating, distributing or copying 
this message is strictly 
prohibited. If you have received this message by mistake, please immediately 
notify us by  
replying to the message and delete the original message and any copies 
immediately thereafter. 

Thank you. 
******************************************************************************************
 
CLLD

Reply via email to