We have a DECNET object, let's call it STAT_LOGGER, on a VMS 7.1 box,
which let's call NODEA. It's a FORTRAN program that opens a file for
shared append access, reads SYS$NET, writes that to the file, and closes
the file. Other nodes have a logical defined
$ show logical/full stat_logger
"STAT_LOGGER" [exec] = "NODEA::"0=STAT_LOGGER"" (LNM$SYSTEM_TABLE)
and can open STAT_LOGGER with append access, write to it, and close it.
Pretty standard DECNET stuff. The following script:
#! perl -w
open F, ">>stat_logger" or die "error [$!][$^E]";
print F <<END;
! this is some
! comment text
END
close F;
__END__
works fine on all our VMS 7.1 boxes, but on a VMS 7.2-1 box the
open dies with
%RMS-F-IOP, operation invalid for file organization or device
This is perl 5.005_03 built on both 7.1 and 7.2 with DEC C V5.7-004.
The following FORTRAN works on both VMS versions with no problem:
open (2, file='stat_logger', access='append')
write (2,'(''! some text'')')
close (2)
end
as does simple DCL:
$ open/append x stat_logger
$ write x "! from DCL"
$ close x
If someone wants to give me a C equivalent to the above I'll try it.
So, anyone have any ideas?
