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 *