Very good.  Well done.  You should post the answer on HP3000-L.

 

Denys

  _____  

From: [log in to unmask] [mailto:[log in to unmask]] 
Sent: Tuesday, November 01, 2005 1:04 PM
To: [log in to unmask]; [log in to unmask]
Cc: [log in to unmask]
Subject: FOPENing PRIVMODE files Problem

 

  

Success at last! I was kinda leaning towards the foptions/aoptions combo as
being what was causing me the fopen problem.

 

Finally, I tried zeroes in the foptions and %300 in the aoptions and
ouila(!) -- success, the file opened successfully!

 

Kudos to everyone who assisted me yet again (Jeff and Denys).

 

Brian Donaldson.

 

<<snip>> 

Yep, as you can see:

 

I use FLABELINFO up front to get the file code prior to the FOPEN call :

 

     CALL INTRINSIC "FLABELINFO"  USING WS-FILE-NAME,
                                        WS-MODE,
                                        WS-ERROR-CODE,
                                        WS-ITEM-NUM-ARRAY,
                                        WS-ITEM-ARRAY,
                                        WS-ITEM-ERROR-ARRAY
     END-CALL.

     CALL INTRINSIC "GETPRIVMODE".
     CALL INTRINSIC "FOPEN" USING WS-FILE-NAME,
                                  WS-IA-FOPTIONS,
                                  WS-AOPTIONS,
                                  WS-REC-SIZE
                                  \\ \\ \\ \\
                                  \\ \\ \\ \\
                                  WS-IA-FILE-CODE
                           GIVING WS-FILE-NUM-IN
     END-CALL.

Works fine on Image files as you can see from the example below:

 

 FILE: DONORS.DATABASE.DEV

 

 FILE CODE : -400                FOPTIONS: Perm,Binary,Formal,Fixed,No
CCTL,No 
 BLK FACTOR: 1                   CREATOR : MGR.DEV

 REC SIZE: 256                   LOCKWORD:

                                 GROUP ID: DEV

 BLK SIZE: 256                   SECURITY--READ    : ANY

 EXT SIZE: 26                              WRITE   : ANY

 NUM REC: 16                               LOCK    : ANY

 NUM SEC: 32                               EXECUTE : ANY

 NUM EXT: 1                                APPEND  : ANY

 MAX REC: 16                             **SECURITY IS ON

 MAX EXT: 1                      FLAGS   : 2 ACCESSORS,SHARED, 2 R, 2 W

 NUM LABELS: 9                   CREATED : FRI, AUG 26, 2005,  7:43 PM

 MAX LABELS: 9                   MODIFIED: TUE, NOV 01, 2005,  9:00 AM

 DISC DEV #: 3                   ACCESSED: TUE, NOV 01, 2005,  8:59 AM

                                 RESTORED: FRI, AUG 26, 2005,  7:43 PM

                                 STATE   : TUE, NOV 01, 2005,  9:00 AM

 SEC OFFSET: 2304                LABEL ADDR:

 UFID      : $05670002 $504D0786 $001BC3D2 $770428A0 $043BB9D1

 VOLCLASS  : MPEXL_SYSTEM_VOLUME_SET:DISC

 ********************

 File Accessors --

   Job/Sess Ldev ---- User Logon Info ----- Logon Date/Time Info

                 Pin   CI Pin  JSMAIN Pin        Program Name

   -------- ---- -------------------------- --------------------

   #S3         9 BRIAN,MGR.DEV,PUB          11/01/2005  8:47 AM

                   84     76        73      DONRVPLS.NMPRG.DEV

   #S3         9 BRIAN,MGR.DEV,PUB          11/01/2005  8:47 AM

                   84     76        73      DONRVPLS.NMPRG.DEV

 

   but these input spoolfiles can't be opened. I noticed they are being 

accessed and so I thought maybe my foptions and aoptions are incorrect?

                                                                            

Brian.

 


* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *