Mailing List Archive: RE: [perl #7873] [RESOLVED] Accessing remote file on OpenVMS with perl 5.6.1 fails

Hello Brad and others;

We are now using Perl 5.8.6 and the same problem exists. Here's my specifics:

On OpenVMS MEG2::

open(FH,'>ITN3::A.A') or die "Failed to open file\n";
print "Got here\n";
print FH "test";
close FH;

Fatal VMS error (status=2312) at P_ROOT:[000000]VMS.C;2, line 6706 at a.pl line 1.
Fatal VMS error (status=2312) at P_ROOT:[000000]VMS.C;2, line 6706.
%SYSTEM-W-NOSUCHDEV, no such device available

Changed script to use DECnet to itself:

open(FH,'>MEG2::A.A') or die "Failed to open file\n";
print "Got here\n";
print FH "test";
close FH;

Works successfully.

Moved script to ITN3::

open(FH,'>MEG2::A.A') or die "Failed to open file\n";
print "Got here\n";
print FH "test";
close FH;

Fatal VMS error (status=2312) at P_ROOT:[000000]VMS.C;2, line 6706 at a.pl line 1.
Fatal VMS error (status=2312) at P_ROOT:[000000]VMS.C;2, line 6706.
%SYSTEM-W-NOSUCHDEV, no such device available

Changed script to use DECnet to itself:

open(FH,'>ITN3::A.A') or die "Failed to open file\n";
print "Got here\n";
print FH "test";
close FH;

Works successfully.

So it seems predictable that it will fail when it tries to connect to a remote server via DECnet, but works fine when connecting over DECnet to itself. There is a noticeable delay when the script is trying to open a file on its own server over DECnet, so it does seem that it is in fact connecting over DECnet instead of being smart and skipping the DECnet connection when it sees that the local server and the remote server are the same.

I'm not overly concerned about this issue. I initially opened this ticket coming up to 11 years ago and we have always worked around this issue. Now we're moving off OpenVMS to Linux, so it will definitely be a non-issue there. However, if you want to pursue it, I'd be happy to do what I can here on my OpenVMS servers.

Regards,

Doug Woronuk
Senior Software Analyst
Communications Protocols
MegaSys Computer Technologies

Doug.Woronuk@megasys.com
403.295.0511

-----Original Message-----
From: Father Chrysostomos via RT [mailto:perlbug-followup@perl.org]
Sent: Monday, May 07, 2012 3:50 PM
To: Doug Woronuk
Subject: [perl #7873] [RESOLVED] Accessing remote file on OpenVMS with perl 5.6.1 fails

According to our records, your request regarding
"Accessing remote file on OpenVMS with perl 5.6.1 fails"
has been resolved.

If you have any further questions or concerns, please respond to this message.

For other topics, please create a new ticket.

<URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=7873 >

On Mon, May 7, 2012 at 5:15 PM, Doug Woronuk <doug.woronuk@megasys.com> wrote:
> Hello Brad and others;
>
> We are now using Perl 5.8.6 and the same problem exists. Here's my
> specifics:
>
> On OpenVMS MEG2::
>
> open(FH,'>ITN3::A.A') or die "Failed to open file\n";
> print "Got here\n";
> print FH "test";
> close FH;
>
> Fatal VMS error (status=2312) at P_ROOT:[000000]VMS.C;2, line 6706 at a.pl
> line 1.
> Fatal VMS error (status=2312) at P_ROOT:[000000]VMS.C;2, line 6706.
> %SYSTEM-W-NOSUCHDEV, no such device available

Thanks for the reply, Doug. Have you confirmed this works outside of
Perl, i.e.,

$ open/write remote itn3::a.a
$ write remote "something something"
$ close remote
$ type remote itn3::a.a

?

If it's only reproducible with Perl, then it would need to be verified
with a current version of Perl, i.e., 5.12.x or later. I haven't used
DECnet in a long time and I don't think I have anything set up to do
that verification myself.