Wow, he's smart!!!!!!!!!!!!!!!!!
-----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Brian Leach Sent: Thursday, January 03, 2008 12:37 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] date on a pick item Doug Since it's only a single file you're looking at (VOC), here's a low impact way you could timestamp. This will log all changes to an index file, which you will need to clear down periodically <grin>: 1. Create a subroutine that will return a timestamp AND a checksum when listed, e.g. TSIndex 0001 SUBROUTINE TSIndex(Ans) 0002 * Generate a timestamp index 0003 Ans = (Date() * 86400) + Time() 0005 Ans := "*":CheckSum(@RECORD): "*" : @ID 0006 RETURN 2. Create and compile a dictionary item in DICT VOC called TIMESTAMP to call this: DICT VOC TIMESTAMP 0001: I 0002: SUBR("TSIndex") 0003: 0004: Timestamp 0005: 15L 0006: S 3. Create a secondary index on the timestamp item: CREATE.INDEX VOC TIMESTAMP 4. Create a file pointer to the secondary index: ED VOC TIMESTAMPS 0001: F 0002: I_VOC/INDEX.000 0003: D_VOC The index file created will contain index entries keyed by the timestamp * checksum * id You need the checksum to ensure that any changes result in changed index entries for the before and after image. 5. Enable and build the index and any changes written to the VOC will write a new entry in the index with the current date and time. ENABLE.INDEX VOC BUILD.INDEX VOC TIMESTAMP ED VOC BRIAN I 0001=Hello World FI LIST TIMESTAMPS LIKE ...BRIAN 06:32:44pm 03 Jan 2008 PAGE 1 NAME.......... TYPE DESC.......................... 1262629930.186 B BRIAN *39210*BRIAN 1 records listed. Regards Brian ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/