it sounds to me that you have Vesoft/MPEX on your system?
If so, it's easy to change the file code of any file to a negative number; (%altfile fn;intcode=-400)
this technique is one method of preventing a file from being purged.
If you have MPEX, change the file code to a zero (0) and take a look at it, via the print command or your favorite editor.
I use to do this when I was an operator, at a site in Phoenix, just to confuse the heck out of the system manager. He knew I was the creator of the file but I never told him how I did it. He never did figure it out :)
-----Original Message-----
From: Denis St-Amand [mailto:[log in to unmask]]
Sent: Monday, June 16, 2003 8:02 AM
To: [log in to unmask]
Subject: Re: [HP3000-L] How do I purge a file with FCODE=-400?
Gibson,
Don't know if you got an answer yet but following may do it:
:FILE T=$NULL
:STORE ABC001BD.PUB.DBAS;*T;SHOW;PURGE
MPEX will also PURGE it if you have it.
However, as far as I remember, filecode -400 is for Image database root file
which should normally not be longer than 6 characters, if my memory serves
me well. So, I can't figure why system would have a root file with a 8
chars name ? Maybe a previous rename ?
--
=========================================
Denis (Remove "removeit." from email address)
=========================================
"Gibson Nichols" <[log in to unmask]> wrote in message
news:bccpd2$ste1@eccws12.dearborn.ford.com...
> How do I purge a file with FCODE=-400?
>
> #listf ABC001@,3
>
> ********************
>
> FILE: ABC001BD.PUB.DBAS
>
> FILE CODE : -400 FOPTIONS: BINARY,FIXED,NOCCTL,STD
>
> BLK FACTOR: 1 CREATOR : **
>
> REC SIZE: 256(BYTES) LOCKWORD: **
>
> BLK SIZE: 256(BYTES) SECURITY--READ : ANY
>
> EXT SIZE: 117(SECT) WRITE : ANY
>
> NUM REC: 78 APPEND : ANY
>
> NUM SEC: 128 LOCK : ANY
>
> NUM EXT: 1 EXECUTE : ANY
>
> MAX REC: 78 **SECURITY IS ON
>
> MAX EXT: 1 FLAGS : NO ACCESSORS
>
> NUM LABELS: 38 CREATED : WED, JUL 31, 1996, 9:42 AM
>
> MAX LABELS: 38 MODIFIED: TUE, MAR 26, 2002, 3:18 AM
>
> DISC DEV #: 1 ACCESSED: TUE, MAR 26, 2002, 3:18 AM
>
> SEC OFFSET: 9728 LABEL ADDR: **
>
> VOLCLASS : MPEXL_SYSTEM_VOLUME_SET:DISC
>
>
>
* 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 *
|