Re: Accessing TCPIP.DATA from Perl on os390

--001a113cc0442d77d50552dce1e7
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable

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
empty.

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) <[email protected]=
>
wrote:

>
> Yes, but OS390::Stdio is broken in many places,  it=E2=80=99s not been ma=
intained
> since 2002.  I had fixed many of the issues (except the SVC99 then lost a=
ll
> the files) and while I agree it=E2=80=99s 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
>
>

--001a113cc0442d77d50552dce1e7
Content-Type: text/html; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable

<div dir=3D"ltr"><br>The solution adopted (ab)uses cat to extend Perl&#39;s=
 standard open to reach MVS datasets:<br><div><br>=C2=A0=C2=A0=C2=A0 =C2=A0=
=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 local *FILE;=C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=
=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 # &quot;cat&quot; able to read=
 MVS dataset<br>=C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 =C2=A0=C2=A0=C2=A0 op=
en( FILE, qq[cat &quot;$dataset&quot; 2&gt;/dev/null |] );<br><br></div><di=
v>Error reporting is far from ideal, either spilling out on STDERR or silen=
ced by redirecting to /dev/null.<br><br></div><div>There does not seem to b=
e any way of capturing a failure to open a dataset other than by attempting=
 to read it and discovering that it appears to be empty.<br><br></div><div>=
Net::DNS 1.11 has just been released on CPAN.<br><br></div><div>Thanks for =
helping to make this happen. <br></div><div><br><div class=3D"gmail_extra">=
<br clear=3D"all"><div><div class=3D"m_-7641336413354903455gmail-m_-2040210=
901399745696gmail_signature"><div dir=3D"ltr">Dick Franks<br><span><font co=
lor=3D"#888888">________________________<br>
</font></span><br></div></div></div>
<br><div class=3D"gmail_quote">On 12 May 2017 at 11:46, Carroll, Sandra E (=
Sandra) <span dir=3D"ltr">&lt;<a href=3D"mailto:[email protected]" tar=
get=3D"_blank">[email protected]</a>&gt;</span> wrote:<br><blockquote =
style=3D"margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);pa=
dding-left:1ex" class=3D"gmail_quote">





<div lang=3D"EN-US">
<br><div class=3D"m_-7641336413354903455gmail-m_-2040210901399745696m_-3998=
735729198725431WordSection1">
<p class=3D"MsoNormal"><span style=3D"font-size:11pt;font-family:&quot;Cali=
bri&quot;,sans-serif">Yes, but
</span>OS390::Stdio is broken in many places,=C2=A0 it=E2=80=99s not been m=
aintained since 2002.=C2=A0 I had fixed many of the issues (except the SVC9=
9 then lost all the files) and while I agree it=E2=80=99s the most likely s=
olution as you cannot use perls open for a dataset and was
 my recent recommendation also.=C2=A0 I do have concerns about support for =
it.=C2=A0 2002 is a long time to have gone unmaintained and having known bu=
gs</p>
<p class=3D"MsoNormal">=C2=A0</p>
<p class=3D"MsoNormal"><span style=3D"font-size:11pt;font-family:&quot;Cali=
bri&quot;,sans-serif">Sandra</span></p><span><p class=3D"MsoNormal"></p></s=
pan></div></div></blockquote></div></div></div></div>

--001a113cc0442d77d50552dce1e7--