HP3000-L Archives

June 2008, Week 3

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:
FOPEN on KSAMXL file in HFS Directory Problem
From:
Brian Donaldson <[log in to unmask]>
Reply To:
Brian Donaldson <[log in to unmask]>
Date:
Mon, 16 Jun 2008 22:49:07 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (57 lines) 
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 *

ATOM RSS1 RSS2