develooper Front page | perl.mvs | Postings from June 2017

Re: Accessing TCPIP.DATA from Perl on os390

Dick Franks
June 26, 2017 13:25
Re: Accessing TCPIP.DATA from Perl on os390
Message ID:
The solution adopted (ab)uses cat to extend Perl's standard open to reach
MVS datasets:

            local *FILE;                # "cat" able to read MVS dataset
            open( FILE, qq[cat "$dataset" 2>/dev/null |] );

Error reporting is far from ideal, either spilling out on STDERR or
silenced by redirecting to /dev/null.

There does not seem to be any way of capturing a failure to open a dataset
other than by attempting to read it and discovering that it appears to be

Net::DNS 1.11 has just been released on CPAN.

Thanks for helping to make this happen.

Dick Franks

On 12 May 2017 at 11:46, Carroll, Sandra E (Sandra) <>

> Yes, but OS390::Stdio is broken in many places,  it’s not been maintained
> since 2002.  I had fixed many of the issues (except the SVC99 then lost all
> the files) and while I agree it’s the most likely solution as you cannot
> use perls open for a dataset and was my recent recommendation also.  I do
> have concerns about support for it.  2002 is a long time to have gone
> unmaintained and having known bugs
> Sandra
> Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About