Actually, the files I am interested in are the ones that start with 'FAC'.
These are spool files. The same setup works great in a similar program that
is still in FORTRAN 66 (less the OPENs and CLOSEs).
TIA,
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.
-----Original Message-----
From: Tracy Pierce [mailto:[log in to unmask]]
Sent: Friday, January 25, 2002 9:47 AM
To: 'Harrington, Don'; [log in to unmask]
Subject: RE: FORTRAN 77 OPEN/CLOSE Issue
Not a Fortran expert, but probably either or both of
1) you didn't run the program? ;-)
2) the output files are temporary; you need to save what you want saved.
Tracy Pierce
> -----Original Message-----
> From: Harrington, Don [mailto:[log in to unmask]]
> Sent: Friday, January 25, 2002 7:55 AM
> To: [log in to unmask]
> Subject: FORTRAN 77 OPEN/CLOSE Issue
>
>
> Gang;
>
> Boy, this conversion stuff is really kicking my butt. I have
> the following
> file equations in a job stream:
>
> !FILE FTN01=HDR,OLD
> !FILE FTN02=EDATA1,OLD
> !FILE FTN03=FAC201D;DEV=LPS61 ,8,1;CCTL
> !FILE FTN07=FAC201K;DEV=LPS61,8,1;CCTL
> !FILE FTN08=SUSP201F,OLD
> !FILE FTN10=FAC201S;DEV=LPS61 ,8,1;CCTL
> !FILE FTN13=TEMP13,NEW;TEMP;REC=-30,,F,ASCII;DISC=500
> !FILE FTN14=TEMP14,NEW;TEMP;REC=-30,,F,ASCII;DISC=500
> !FILE FTN15=FAC201F;DEV=LPS61 ,8,1;CCTL
> !FILE FTN16=FAC201E;DEV=LPS61 ,8,1;CCTL
> !FILE FTN17=FAC201R;DEV=LPS61 ,8,1;CCTL
> !FILE FTN18=FAC201P;DEV=LPS61 ,8,1;CCTL
>
> The OPENs look like this:
>
> OPEN (1,FILE="HDR",STATUS="OLD")
> OPEN (2,FILE="EDATA1",STATUS="OLD")
> OPEN (3) ! FAC201D
> OPEN (7) ! FAC201K
> OPEN (8,FILE="SUSP201F",STATUS="OLD")
> OPEN (10) ! FAC201S
> OPEN (11,FILE="DELENG1",STATUS="OLD")
> OPEN (12) ! FAC201A
> OPEN (13) ! TEMP SORT FILE
> OPEN (14) ! SORT OUTPUT FILE OF
> TEMP FILE
> OPEN (15) ! FAC201F
> OPEN (16) ! FAC201E
> OPEN (17) ! FAC201R
> OPEN (18) ! FAC201P
>
> The CLOSEs look like this:
>
> CLOSE (1)
> CLOSE (2)
> CLOSE (3) ! FAC201D
> CLOSE (7) ! FAC201K
> CLOSE (8)
> CLOSE (10) ! FAC201S
> CLOSE (11)
> CLOSE (12) ! FAC201A
> CLOSE (13) ! TEMP SORT FILE
> CLOSE (14) ! SORT OUTPUT FILE
> OF TEMP FILE
> CLOSE (15) ! FAC201F
> CLOSE (16) ! FAC201E
> CLOSE (17) ! FAC201R
> CLOSE (18) ! FAC201P
>
> My question is: Why don't the output files get generated?
>
> Thanks,
> 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 *
>
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
