[Info-vax] DCL enhancements

[Arne Vajhøj]

On 1/28/2021 2:21 PM, VAXman- at SendSpamHere.ORG wrote:
> In article <ruufbf$6jn$2 at gioia.aioe.org>, =?UTF-8?Q?Arne_Vajh=c3=b8j?= <arne at vajhoej.dk> writes:
>> On 1/28/2021 5:45 AM, VAXman- at SendSpamHere.ORG wrote:
>>> In article <rut0im$1oc6$1 at gioia.aioe.org>, =?UTF-8?Q?Arne_Vajh=c3=b8j?= <arne at vajhoej.dk> writes:
>>>> On 1/27/2021 11:00 AM, VAXman- at SendSpamHere.ORG wrote:
>>>>> In article <388edf53-8ba9-4f66-aa86-00e6c6b1be4bn at googlegroups.com>, Jon Pinkley <jon.pinkley at gmail.com> writes:
>>>>>> And setting the version to one is really an autopurge, it still creates new
>>>>>> version numbers that will eventually get to ;32767 and then possibly cause
>>>>>> problems.  The point is ODS is not NTFS or some unix/linux versionless file
>>>>>> system.  And there are many vms applications that rely on versions.
>>>>>
>>>>> Purge and rename them back to start at ;1.
>>>>
>>>> $ clean :== pipe purge ; rename *.* /excl=*.*.1 *.*.1
>>>
>>> Try that with PURGE/KEEP=n (eg. n = 5)
>>
>> I think it would require a more "programmatic" solution - at least
>> a COM file - to get the rename correct with keeping more than one version.
> 
> ;)

Hoff posted a pointer to a trick in the old FAQ.

And I think it can be combined with my approach:

$ clean2 :== pipe purge/keep=2 ; d = f$getjpi(0, """PID""") ; cre/dir 
[.'d'] ; ren *.*.* /excl='d'.dir [.'d']*.*. ; ren [.'d']*.*.* []*.*. ; 
set prot=(o:rwed) 'd'.dir ; del 'd'.dir.*

I recommend testing well before using on important files.

Arne