HI Brian,
> MOVE +38 TO WS-ITEM-NUM-4
> MOVE +2 TO WS-ITEM-4
You don't want item 38 but you do want item 29 instead.
Item 38 is the privilege level of a NEW file and is only valid at file
creation time. Item 29 indicates the minimum priv level of any processes
that opens the file. Since PRINTSPF uses 29, it would be good to try that.
As Guenter pointed out, try using HPFOPEN items 3,9 and 29 (and the
filename).
Thanks,
Gary Robillard
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf
Of Brian Donaldson
Sent: Monday, August 04, 2008 2:56 PM
To: [log in to unmask]
Subject: Re: [HP3000-L] Trying To Read Input Spoolfiles Problem
I did this according to Stan's posting way back in 2005 but no such luck for
me
Processing File:=>I1.IN.HPSPOOL <
HPFOPEN: CANNOT FOPEN FILE=>-0109>+000000000>-0109>I1.IN.HPSPOOL
<
UNDEFINED FILE SYSTEM ERROR
**** PROGRAM QUIT; PARAM = -109
ABORT: STRMFIND.NMPRG.DEV
NM SYS a.010071ec dbg_abort_trace+$28
NM PROG 4a4.0000caf8 strmfind+$38b0
Program terminated in an error state. (CIERR 976)
-109 is the error code returned by HPFOPEN
+000000000 is the file number returned by HPFOPEN
My code is:
MOVE +2 TO WS-ITEM-NUM-1
MOVE WS-ORIG-FILE-NAME TO WS-ITEM-1
MOVE +3 TO WS-ITEM-NUM-2
MOVE +1 TO WS-ITEM-2
MOVE +13 TO WS-ITEM-NUM-3
MOVE +3 TO WS-ITEM-3
MOVE +38 TO WS-ITEM-NUM-4
MOVE +2 TO WS-ITEM-4
MOVE ZEROES TO WS-ITEM-NUM-5
WS-FILE-NUM-2
INITIALIZE WS-ERROR-CODE-DOUBLE
CALL INTRINSIC "GETPRIVMODE"
CALL INTRINSIC "HPFOPEN" USING WS-FILE-NUM-2
WS-ERROR-CODE-DOUBLE
WS-ITEM-NUM-1
WS-ITEM-1
WS-ITEM-NUM-2
WS-ITEM-2
WS-ITEM-NUM-3
WS-ITEM-3
WS-ITEM-NUM-4
WS-ITEM-4
WS-ITEM-NUM-5
WS-ITEM-5
IF WS-ECD-1 <> ZEROES THEN
MOVE WS-ECD-1 TO WS-ERROR-CODE
DISPLAY "HPFOPEN: CANNOT FOPEN FILE=>" WS-ECD-1 ">"
WS-FILE-NUM-2 ">"
WS-ERROR-CODE ">"
WS-ORIG-FILE-NAME
"<"
PERFORM B104-BLOW-AWAY
THRU B104-EXIT
END-IF
On Mon, 4 Aug 2008 11:53:50 -0400, Edward Berner
<[log in to unmask]> wrote:
>On Mon, 4 Aug 2008 11:42:27 EDT, Brian Donaldson <[log in to unmask]>
wrote:
>
>>
>>In a message dated 8/3/2008 11:15:40 P.M. Pacific Daylight Time,
>>[log in to unmask] writes:
>>
>>use HPFopen to open input spoolfiles with the following options:
>>
>>2: Formal File Designator %Innn.IN.HPSPOOL%
>>3: Domain: 1 (permanent)
>>9: Dissallow file: 1
>>29: Priv-Level: 2
>>
>>works perfectly since many years. If you work with input spoolfile
>>
>>
>>
>>Nice try but it won't work for me. My problem isn't the FOPEN, it's the
>>FREAD that isn't reading the
>>records... The file is being FOPENed ok but the FREAD is failing.
>>
>>However, as my program is riddled with calls to FOPEN, mixing and matching
>>is a *big* no-no. Why?
>>Because, as I discovered many eons ago, FOPEN and HPFOPEN can return the
>>SAME file number on
>>different files!! OUCH!
>>
>>I don't know if HP ever fixed this problem, but I doubt it and if it
hasn't
>>been fixed, then I doubt they ever will
>>fix it now.........
>>
>>Life in the fast lane......
>>
>>Brian.
>>
>
>This rang a bit of a bell so I searched the archives. According to the
>following messages, HPFOPEN is required to read input spool files.
>
>http://raven.utc.edu/cgi-bin/WA.EXE?A2=ind0511A&L=HP3000-L&T=0&F=&S=&P=9238
>http://raven.utc.edu/cgi-bin/WA.EXE?A2=ind0511A&L=HP3000-L&T=0&F=&S=&P=1025
0
>
>(Or, on Google:
>http://groups.google.com/group/comp.sys.hp.mpe/browse_thread/thread/542b792
34ef85765/a517fe8a24ed4f3b
>)
>
>
>Edward Berner
>
>* 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 *
|
