Hello Don,
The output is going to device LPS61. To troubleshoot, you might want to try
building some files and directing the output to them to eliminate the
printer/spoolfile aspect of this. It's rudimentary, but double-check to
ensure that the user has SF, and ND capability.
file eq example...
!BUILD FAC201D; REC=-128,,F,ASCII; DISC=100000
!FILE FTN03=FAC201D
and you should get some output in FAC201D from the run.
If you don't, then there is some problem either in the input data or the
program. Write(6,*) var, var is handy to check variables in Fortran.
Gordon Gidluck
Flake-Wilkerson Market Insights
"Harrington, Don" <[log in to unmask]> wrote in message
news:a2rvhj023n9@enews1.newsguy.com...
> 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 *
|