Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re^5: Net::FTP to Mainframe Z/OS

by nimdokk (Vicar)
on Jun 16, 2008 at 13:10 UTC ( #692249=note: print w/ replies, xml ) Need Help??


in reply to Re^4: Net::FTP to Mainframe Z/OS
in thread Net::FTP to Mainframe Z/OS

What I've got is baed on a code snippet that I was given by someone working on the mainframe. I translated it to use in Perl. There are a few things I'm not quite sure about namely PRI and SEC (I think this has to do with disk allocation on the mainframe).

$ftp->site("PRI=<some number>","SEC=<some number>", "TRacks", "RECfm=<record format - either Fixed Block or Variable Bloc +k", "LRecl=<record length number>", "BLocksize=<block size number>", "Unit=<not sure about this one>") or die "Cannot set SITE c +ommand. $!"; $ftp->site("trail") or die "Cannot issue SITE 'trail' command. $!"; $ftp->put("<file-name>","\'Data.Set.Name(+1)\'") or die "Cannot put <f +ile-name> to Data.Set.Name. $!";
Note, the (+1) after the dataset name indicates that the data set is a plus one generation (the generation number is incremented by one each time a file is sent. Block size, record Length, Record Format and whether it is a generational dataset is determined by the mainframe and they would have to tell you (assuming it matters). Also, I have found that the transfer works when surrounded by the single quotes - even if I were doing this on the command-line FTP client. This may not all be necessary for the mainframe Z/OS, but might get you going in the right direction. Good luck.


Comment on Re^5: Net::FTP to Mainframe Z/OS
Download Code
Re^6: Net::FTP to Mainframe Z/OS
by jazzycat (Initiate) on Jun 16, 2008 at 13:51 UTC
    Thanks for your help. The PRI and SEC are Primary and Secondary space allocation parameters btw. I am not creating a new dataset each time, but either creating or replacing a member in a mainframe library, so my parameters will be different, but your code is a starting point at least. Thanks for sharing.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://692249]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (5)
As of 2015-07-03 21:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (56 votes), past polls