Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!utgpu!water!watmath!clyde!rutgers!ames!ucbcad!ucbvax!NRTC.NORTHROP.COM!mcohen
From: mcohen@NRTC.NORTHROP.COM.UUCP
Newsgroups: comp.os.vms
Subject: DEUNA/Ethernet/DECNET monitoring program
Message-ID: <8704180547.AA19413@ucbvax.Berkeley.EDU>
Date: Fri, 17-Apr-87 18:48:39 EST
Article-I.D.: ucbvax.8704180547.AA19413
Posted: Fri Apr 17 18:48:39 1987
Date-Received: Sun, 19-Apr-87 00:48:36 EST
Sender: daemon@ucbvax.BERKELEY.EDU
Distribution: world
Organization: The ARPA Internet
Lines: 20

Well, I transferred the DEUNA/ethernet monitoring program to our
VAX 785 (running VMS 4.1) and tried to compile it. The variable
"RetStatus" was undeclared in AST, so I added it as shown
in the second line following:

Procedure AST (var Character : char);
  var Status (* add this --> *) , RetStatus : integer;

This compiled ok, and it ran ok!!!

However, when a second user tried to run the program, it bombed
in this line (line 277 of the program) with the message 
"Bad Parameter Value" in the call to $STOP:

    if not odd (IOStatus[1]) then $STOP (IOStatus[1]);

Other than these problems, it works fine.

Marty Cohen (mcohen@nrtc.northrop.com)
(213) 544-5373