Um, does this mean I've discovered a bug in our wonderful MPEiX operating
system? Bummer....
My AIF routines will AIFFILEGPUT and AIFFILEGGET the lockword ok
but my Cobol app that calls the MPEiX intrinsic "FOPEN" fails every time
with an error code of 397 (A COMPONENT IN THE PATHNAME IS NOT A DIRECTORY
(FSERR 397) so my app can't even open the file anymore.
My file name construct for my FOPEN includes the lockword (if one exists)
The construct would be --
/SYS/PUB/SNTINL006 (no lockword) -- this file FOPEN's ok
/SYS/PUB/SNTINL005/ZTOGDPKZ -- with lockword the FOPEN fails
with the 397 error code....
Brian.
On Tue, 10 Jun 2008 22:50:02 -0400, Brian Donaldson <[log in to unmask]> wrote:
>I used the AIF procedure AIFFILEGPUT to put a random lockword on the
>HFS directory file.
>
>So I used the AIF procedure AIFFILEGGET to get the lockword and it
>gave me the lockword ok.
>
>However, I cannot purge the file as you can see.....
>
>
>xeq sh.hpbin.sys -L
>########################################################################
>
> MPE/iX Shell and Utilities (A.50.02)
> COPYRIGHT (c) Hewlett-Packard Company 1992, All Rights Reserved.
>
>########################################################################
>
>
>shell/iX> rm /SYS/PUB/SNTINL005/ZTOGDPKZ
>rm: cannot unlink entry "/SYS/PUB/SNTINL005/ZTOGDPKZ": Not a directory
>shell/iX>
>
>
>So, then I tried --
>
>file x=/SYS/PUB/SNTINL005/ZTOGDPKZ
>:purge *x
>A COMPONENT IN THE PATHNAME IS NOT A DIRECTORY (FSERR 397)
>Unable to purge file "*X". (CIERR 384)
>
>
>
>Ho hum,
>Brian.
>
>
>On Wed, 11 Jun 2008 00:19:48 +0000, Fairchild, Craig D
><[log in to unmask]> wrote:
>
>>Hi Brian,
>>
>>First, I'd be really interested to find out how you got a lockword on an
>HFS syntax file name. I can't find a way to do that. It's not supposed to be
>allowed.
>>
>>Assuming you managed to get a lockword on a file in the HFS namespace (I
>used debug creatively to make it happen), I found the following command
>sequence would allow such a file to be purged (from the CI prompt):
>>
>>:FILE X=/SYS/PUB/SNTINL005
>>:PURGE *X/LOCKWORD <-- fill in your lockword of course
>>:LISTFILE ./SYS/PUB/SNTINL005
>>
>>Take Care,
>>Craig
>>
>>> -----Original Message-----
>>> From: HP-3000 Systems Discussion
>>> [mailto:[log in to unmask]] On Behalf Of Brian Donaldson
>>> Sent: Tuesday, June 10, 2008 3:41 PM
>>> To: [log in to unmask]
>>> Subject: [HP3000-L] Lockwords On HFS Directory Files
>>>
>>> I built a file in the HFS directory in a Cobol program with
>>> the COMMAND intrinsic. No problem, worked ok.
>>>
>>> Then I tried to put a lockword on the file. Afterwards it
>>> became quite obvious that lockwording is a "no-no" with HFS files.
>>>
>>> I tried to purge the file at the colon prompt and also inside MPEX.
>>> No can do. Cannot purge the file!
>>>
>>> Anyone know how to purge this file from the HFS directory?
>>>
>>> TIA,
>>> Brian.
>>>
>>>
>>>
>>>
>>> :LISTFILE /SYS/PUB/SNTINL005,-3
>>> ********************
>>> FILE: /SYS/PUB/SNTINL005
>>>
>>> FILE CODE : 0 FOPTIONS: ASCII,FIXED,NOCCTL,STD
>>> BLK FACTOR: 1 OWNER : MANAGER.SYS
>>> REC SIZE: 2252(BYTES) GROUP ID: SYS
>>> BLK SIZE: 2252(BYTES) SECURITY--READ : ANY
>>> EXT SIZE: 0(SECT) WRITE : ANY
>>> NUM REC: 2 APPEND : ANY
>>> NUM SEC: 256 LOCK : ANY
>>> NUM EXT: 1 EXECUTE : ANY
>>> MAX REC: 50000 **SECURITY IS ON
>>> FLAGS : NO ACCESSORS
>>> NUM LABELS: 0 CREATED : TUE, JUN 10, 2008, 2:23 PM
>>> MAX LABELS: 0 MODIFIED: TUE, JUN 10, 2008, 3:11 PM
>>> DISC DEV #: 1 ACCESSED: TUE, JUN 10, 2008, 3:11 PM
>>> SEC OFFSET: 0 LABEL ADDR: $00000013.$00588C20
>>> VOLCLASS : MPEXL_SYSTEM_VOLUME_SET:DISC
>>>
>>>
>>> :MPEX
>>>
>>> MPEX/3000 29N00420 (c) VESOFT Inc, 1980 6.5 03:04918 For
>>> help type 'HELP'
>>>
>>> Hint: Balance the load on your discs -- move files around
>>> with %ALTFILE ;DEV=.
>>>
>>> %PURGE /SYS/PUB/SNTINL005
>>> -----Will purge /SYS/PUB/SNTINL005 (code "", type FA, EOF 2,
>>> 256 sectors)
>>> 256 sectors will be saved
>>> OK to purge 1 file (y/N)? Y
>>> -----Purging /SYS/PUB/SNTINL005 (256 sectors)
>>> Error: Doing Fopen of /SYS/PUB/SNTINL005.
>>> Lockword on file being referenced cannot be specified.
>>> File System message 340
>>> %
>>>
>>> * 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 *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
