Brian, you might try to build and access the file in the MPE domain to
ensure I don't have a POSIX type problem?

-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
Behalf Of Brian Donaldson
Sent: Monday, June 16, 2008 9:49 PM
To: [log in to unmask]
Subject: [HP3000-L] FOPEN on KSAMXL file in HFS Directory Problem

Cobol program builds a KSAMXL file if it doesn't exist. BUILD command
works
just fine -- 

AFTER BUILDING FILE=>+0000>+0000> (error code and param are both zero)

BUILD /SYS/PUB/SNTINL010042;REC=-0512,,F,ASCII;DISC=50000;KSAMXL;
KEY=(B,3,9;B,12,58,DUP;B,70,42,DUP);ULABEL=2;OPTMBLK;REUSE;FIRSTREC=1<

Brians World:LISTFile /SYS/PUB/SNTINL@,-5
 ********************
 FILE: /SYS/PUB/SNTINL010042

 FILE CODE : 0                   FOPTIONS: ASCII,FIXED,NOCCTL,KSAMXL
 BLK FACTOR: 59                  OWNER   : MGR.DEV             
 REC SIZE: 512(BYTES)            GROUP ID: SYS                 
 BLK SIZE: 30720(BYTES)          SECURITY--READ    : ANY       
 EXT SIZE: 0(SECT)                         WRITE   : ANY       
 NUM REC: 0                                APPEND  : ANY       
 NUM SEC: 192                              LOCK    : ANY       
 NUM EXT: 2                                EXECUTE : ANY       
 MAX REC: 57500                          **SECURITY IS ON      
                                 FLAGS   : NO ACCESSORS        
 NUM LABELS: 0                   CREATED : MON, JUN 16, 2008,  7:34 PM
 MAX LABELS: 2                   MODIFIED: MON, JUN 16, 2008,  7:34 PM
 DISC DEV #: 1                   ACCESSED: MON, JUN 16, 2008,  7:34 PM
 SEC OFFSET: 512                 LABEL ADDR: $00000013.$0013B920 
 VOLCLASS  : MPEXL_SYSTEM_VOLUME_SET:DISC
                                                               
 KEY         KEY TYPE            KEY LOCATION      KEY SIZE   DUP/RDUP
 ---         --------            ------------      --------   --------
   1         BYTE                           3             9   NONE    
   2         BYTE                          12            58   RDUP    
   3         BYTE                          70            42   RDUP    
                                                               
 NUM KSAM KEYS: 3                               FIRST KSAM RECORD: 1
 LANGUAGE     : NATIVE-3000                     REUSE RECORD     : YES
 PRIMARY KEY  : RANDOM                          COMPUTE BLK SIZE :
OPTMBLK
 VERSION      : 2                               DATA BLOCK SIZE  : 30720

Then the program FOPEN's the above file and the FOPEN fails --

FOPEN FAILED=>+0000> (file number = zeroes)

/SYS/PUB/SNTINL010042         

Error code returned by FCHECK = zeroes

Anyone know why the FOPEN is failing?

The user I am running under has SM caps (MGR.DEV).

TIA,
Brian.

* 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 *