Posted by Grant Foraker on October 05, 2004 at 08:06:26:
Comet 2004.339, CometServe32 4.07, "S" directories.
Using the following the P60 file is renamed and then created anew.
LET NEWNAME$ = 'P60-' + SUB(STR(DDSEQ),2,4)
RENAME 'P60', DIR = ZDIR1$, NEWNAME$, DIR = ZDIR1$
CREATE 'P60', 100, K, 13, DIR = ZDIR1$
However, the new P60 file retains it's old create date which gets passed along to all the subsequent P60- files.
10/05/04 07:59:36 503/503 DIRECTORY CATALOG VSN: 04.05
DIRCAT COPYRIGHT SIGNATURE SYSTEMS 1987 - 2003 C2K4.339
FILE TYPE RECORD KEY CREATE UPDATE TIME SIZE DIR: DSK
P60-0040 KEY 100 13 01-17-04 06-08-04 10:47 20868
P60-0041 KEY 100 13 01-17-04 06-15-04 13:50 19444
P60-0042 KEY 100 13 01-17-04 06-22-04 12:22 19644
P60-0043 KEY 100 13 01-17-04 06-29-04 15:10 19544
P60-0044 KEY 100 13 01-17-04 07-06-04 15:03 19644
P60-0045 KEY 100 13 01-17-04 07-13-04 10:50 19844
P60-0046 KEY 100 13 01-17-04 07-20-04 13:09 19644
P60-0047 KEY 100 13 01-17-04 07-27-04 12:59 19544
P60-0048 KEY 100 13 01-17-04 08-03-04 12:52 19444
P60-0049 KEY 100 13 01-17-04 08-10-04 10:50 19044
P60-0050 KEY 100 13 01-17-04 08-17-04 15:12 17520
P60-0051 KEY 100 13 01-17-04 08-24-04 10:28 17520
P60-0052 KEY 100 13 01-17-04 08-31-04 14:11 17720
P60-0053 KEY 100 13 01-17-04 09-07-04 15:32 19044
P60-0054 KEY 100 13 01-17-04 09-14-04 12:17 19344
P60-0055 KEY 100 13 01-17-04 09-21-04 09:55 19644
P60-0056 KEY 100 13 01-17-04 09-28-04 12:16 19644
57 FILES 1,022,636 PRESS TAB: