There exists REXX for PC (Reginald, OOREXX, etc) in the windows environment. I would code a REXX script which would issue an FTP and DIR then check for the files existence. If not exist then FTP put. That is if the Windows initiates FTP.
If z/OS initiates FTP the do reverse with REXX script. On Thu, Mar 31, 2011 at 8:34 AM, McKown, John <john.mck...@healthmarkets.com > wrote: > > -----Original Message----- > > From: IBM Mainframe Discussion List > > [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Bernard Coeytaux > > Sent: Thursday, March 31, 2011 6:57 AM > > To: IBM-MAIN@bama.ua.edu > > Subject: Re: FTP question > > > > We use the followings steps > > > > Del targetfilename.$TMP$ > > > > Put sourcefilename targetfiname.$TMP$ > > > > If the put is RC 0 then the dataset is complete > > > > Ren targetfilename.$TMP$ realtargetname > > > > The rename is atomic, and will fails if the real target > > dataset exist on evry > > platform > > This works and I think it is the only way to do the "noreplace" in a > generic, general, manner. Unfortunately it does not avoid the file upload > entirely and so still takes as long as replacing. Another possible problem > is that the z/OS step will exit with a non-zero RC if the file exists when > using the '(EXIT' parameter, because the "ren" fails. Of course, the "del" > could also fail and, with (EXIT, that would terminate your ftp step > prematurely. > > z/OS really needs a better ftp client. I wish we had one that is scriptable > much like IDCAMS is scriptable. No, don't ask me to write it. If I did, it > would likely be in REXX. And I'd likely get in trouble from my management > for wasting MSUs. We are sensitive to MSU usage. My boss monitors it because > it directly impacts his software budget. And, from what I can tell, upper > management has a visceral desire to eliminate IT spending altogether. Of > course, at their level, they want to eliminate all spending other than their > salaries. Yes, I'm very cynical. > > -- > John McKown > Systems Engineer IV > IT > > Administrative Services Group > > HealthMarkets(r) > > 9151 Boulevard 26 * N. Richland Hills * TX 76010 > (817) 255-3225 phone * > john.mck...@healthmarkets.com * www.HealthMarkets.com > > Confidentiality Notice: This e-mail message may contain confidential or > proprietary information. If you are not the intended recipient, please > contact the sender by reply e-mail and destroy all copies of the original > message. HealthMarkets(r) is the brand name for products underwritten and > issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake > Life Insurance Company(r), Mid-West National Life Insurance Company of > TennesseeSM and The MEGA Life and Health Insurance Company.SM > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > -- "Those who can make you believe religious absurdities, can make you commit atrocities." Voltaire The philosopher has never killed any priests, whereas the priest has killed a great many philosophers. Denis Diderot "Men will never be free until the last king is strangled with the entrails of the last priest." Denis Diderot ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
