well, based on other replies posted on-list, I still think I'm on the right
track. did you try either of my suggestions? it sure looks like expanding
your file specs IN the open() will help; I don't see any other way you're
going to get to your files, and it sure works for your input files - or does
even that work?
good luck
Tracy Pierce
> -----Original Message-----
> From: Harrington, Don [mailto:[log in to unmask]]
> Sent: Friday, January 25, 2002 1:17 PM
> To: Tracy Pierce
> Cc: HP3000-L (E-mail)
> Subject: RE: FORTRAN 77 OPEN/CLOSE Issue
>
>
> Tracy;
>
> No TEMP files found. :-(
>
> 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 10:13 AM
> To: 'Harrington, Don'
> Subject: RE: FORTRAN 77 OPEN/CLOSE Issue
>
>
> yes, I got that. when you run the program, are you left with
> a temp file
> FTN03? that would indicate that your file equation is having
> no effect.
>
> > -----Original Message-----
> > From: Harrington, Don [mailto:[log in to unmask]]
> > Sent: Friday, January 25, 2002 10:13 AM
> > To: Tracy Pierce
> > Subject: RE: FORTRAN 77 OPEN/CLOSE Issue
> >
> >
> > Tracy;
> >
> > Maybe; but I think that the '3' in the OPEN already equates
> > to 'FTN03' in
> > the file equation.
> >
> > 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.
> >
> >
> >
> > -----Original Message-----
> > From: Tracy Pierce [mailto:[log in to unmask]]
> > Sent: Friday, January 25, 2002 10:09 AM
> > To: 'Harrington, Don'
> > Cc: HP3000-L (E-mail)
> > Subject: RE: FORTRAN 77 OPEN/CLOSE Issue
> >
> >
> > well, you got what you paid for, sorry. ;-) I'm still no
> > fortran geek, but
> >
> > I notice that some of your input files are qualified a bit,
> > and wonder if
> > maybe you need to do this for your spoofles. Are you getting
> > temp files
> > called FTN03 etc? Could be your file equations are having no
> > effect, which
> > could be why FTN01 has MPE info attached, rather than tacked on as a
> > comment. Why not try qualifying your output files a bit, changing
> > > > OPEN (3) ! FAC201D
> > to, maybe
> > > > OPEN (3,file="*FTN03") ! FAC201D
> > or better
> > > > OPEN (3,file="*FAC201D") ! FAC201D
> > which would require a different file equation but no comment.
> >
> > Tracy
> >
> >
> >
> >
> >
> >
> > either via
> > > > !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 *
> >
>
K Tracy Pierce
Systems Programmer
Golden Gate Bridge, Hwy & Trnsp Dist
P.O.Box 9000, Presidio Station
San Francisco CA 94129-0601
415-923-2266
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
