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 *
|