From: MERC::"uunet!CRVAX.SRI.COM!RELAY-INFO-VAX" 13-JUL-1992 12:24:34.88 To: INFO-VAX CC: Subj: Re: Request for program to "rewind" file versions To reset all version numbers to their lowest possible value, the following will work for a single directory: $rename *.*;* [somewhere_else]*.*; ! NB No star on the second path $rename [somewhere_else]*.*;* []*.*; ! NB No star on the second path For example: $dir/dat test.tmp Directory DISK$CISD:[GPE.WORKSPACE] TEST.TMP;5 13-JUL-1992 14:21:25.03 TEST.TMP;4 13-JUL-1992 14:21:19.41 TEST.TMP;3 13-JUL-1992 14:21:13.85 Total of 3 files. $cre/dir [.cleanup_versions] $ RENAME/LOG test.tmp;* [.cleanup_versions]*.*; %RENAME-I-RENAMED, DISK$CISD:[GPE.WORKSPACE]TEST.TMP;5 renamed to DISK$CISD:[GPE.WORKSPACE.CLEANUP_VERSIONS]TEST.TMP;1 %RENAME-I-RENAMED, DISK$CISD:[GPE.WORKSPACE]TEST.TMP;4 renamed to DISK$CISD:[GPE.WORKSPACE.CLEANUP_VERSIONS]TEST.TMP;2 %RENAME-I-RENAMED, DISK$CISD:[GPE.WORKSPACE]TEST.TMP;3 renamed to DISK$CISD:[GPE.WORKSPACE.CLEANUP_VERSIONS]TEST.TMP;3 $ RENAME/LOG [.cleanup_versions]*.*;* []*.*; %RENAME-I-RENAMED, DISK$CISD:[GPE.WORKSPACE.CLEANUP_VERSIONS]TEST.TMP;3 renamed to DISK$CISD:[GPE.WORKSPACE]TEST.TMP;1 %RENAME-I-RENAMED, DISK$CISD:[GPE.WORKSPACE.CLEANUP_VERSIONS]TEST.TMP;2 renamed to DISK$CISD:[GPE.WORKSPACE]TEST.TMP;2 %RENAME-I-RENAMED, DISK$CISD:[GPE.WORKSPACE.CLEANUP_VERSIONS]TEST.TMP;1 renamed to DISK$CISD:[GPE.WORKSPACE]TEST.TMP;3 $dir/dat test.tmp Directory DISK$CISD:[GPE.WORKSPACE] TEST.TMP;3 13-JUL-1992 14:21:25.03 TEST.TMP;2 13-JUL-1992 14:21:19.41 TEST.TMP;1 13-JUL-1992 14:21:13.85 Total of 3 files. $set file/prot=o:d cleanup_versions.dir $delete cleanup_versions.dir;1 Note that the test case deliberately overlaps the input range (versions three to five) with the output range (one to three). Regards Graham Graham Evans GPE%hermes.mod.uk@relay.mod.uk or GPE@hermes.mod.uk (INTERNET) GPE@uk.mod.hermes (JANET)