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:
From:
Gordon Gidluck <[log in to unmask]>
Reply To:
Gordon Gidluck <[log in to unmask]>
Date:
Fri, 25 Jan 2002 11:47:47 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (96 lines)
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 *

ATOM RSS1 RSS2