HP3000-L Archives

January 2002, Week 4

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: FORTRAN 77 OPEN/CLOSE Issue
From:
"Harrington, Don" <[log in to unmask]>
Reply To:
Harrington, Don
Date:
Fri, 25 Jan 2002 13:17:28 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (171 lines) 
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 *
> >
>

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

ATOM RSS1 RSS2