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