HP3000-L Archives

November 2005, Week 1

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:
FOPENing PRIVMODE files Problem
From:
Brian Donaldson <[log in to unmask]>
Reply To:
[log in to unmask]
Date:
Tue, 1 Nov 2005 12:02:01 EST
Content-Type:
multipart/mixed
Parts/Attachments:
text/plain (2947 bytes) , text/plain (278 bytes) 
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 *




Brian Donaldson wrote:
> I have a PM program that needs to FOPEN privmode files.

You do know you have to specify the filecode in the fopen, right?

Jeff

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

ATOM RSS1 RSS2