Gang;

Not surprisingly, this works:

      OPEN (1,FILE="HDR",STATUS="OLD")
      OPEN (2,FILE="EDATA1",STATUS="OLD")
      OPEN (3,FILE="*FTN03")                          ! FAC201D
      OPEN (7,FILE="*FTN07")                          ! FAC201K
      OPEN (8,FILE="SUSP201F",STATUS="OLD")
      OPEN (10,FILE="*FTN10")                         ! FAC201S
      OPEN (11,FILE="DELENG1",STATUS="OLD")
      OPEN (12,FILE="*FTN12")                         ! FAC201A
      OPEN (13,FILE="*TEMP13")                         ! TEMP SORT FILE
      OPEN (14,FILE="*TEMP14")                         ! SORT OUTPUT FILE OF
TEMP FILE
      OPEN (15,FILE="*FTN15")                         ! FAC201F
      OPEN (16,FILE="*FTN16")                         ! FAC201E
      OPEN (17,FILE="*FTN17")                         ! FAC201R
      OPEN (18,FILE="*FTN18")                         ! FAC201P

Thanks to all who steered my in the right direction.

Later,
Don Harrington
Sr. Systems Analyst
Facilities Applications Support
Shared Services Group
The Boeing Company
P.O. Box 3707 M/C 6C-AK
Seattle, WA  98124-2207
(v) 425-234-1145 (f) 425-234-0464 (p) 206-797-6360

The opinions expressed in this e-mail reflect those of the sender.  They do
not necessarily reflect the opinions of The Boeing Company unless
specifically stated otherwise.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *