I had considered that and in fact that is exactly how I am testing the accuracy of my hash-calculating logic. I just didn't want the overhead of the UniVerse RECORD command which, in addition to reporting the group number, does a lookup of the record and reports whether or not it is on file.
Thanks. -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Richard Sammartino Sent: Wednesday, February 13, 2008 3:02 PM To: [email protected] Subject: RE: [U2][UV] Type 18 File Hashing Algorithm Perry, in Unidata there is the RECORD command which will return the group number to which a record will hash. Unidata does not support type 18 files so I don't know what you will have access to in Universe. If the command exists, you could create and empty file with the appropriate modulo and then execute the RECORD command against this file with whatever aid you choose to use. I can't speak for the overhead in executing this command repeatedly. Rich Sammartino Richard Sammartino Systems Analyst School District of Philadelphia 440 N Broad Street Philadelphia, Pa 19130 Phone: (215) 400-5086 Fax: (215) 400-4411 -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Perry Taylor Sent: Wednesday, February 13, 2008 9:00 AM To: [email protected] Subject: [U2][UV] Type 18 File Hashing Algorithm I need to come up with an equivalent in BASIC to UniVerse's type 18 file hashing algorithm. I understand that IBM treats this as proprietary but I was hoping someone could shed some light on how I might pull this off in BASIC. The following code works fine until the length of the ID exceeds eight characters .... GROUP = 0 LEN.ID = LEN(ID) FOR NC = 1 TO LEN.ID GROUP = GROUP * 10 + SEQ(ID[NC, 1]) NEXT NC IF GROUP THEN GROUP = MOD(GROUP, FILE.MODULUS) + 1 Thanks. Perry Taylor Zirmed, Inc. CONFIDENTIALITY NOTICE: This e-mail message, including any attachments, is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. ZirMed, Inc. has strict policies regarding the content of e-mail communications, specifically Protected Health Information, any communications containing such material will be returned to the originating party with such advisement noted. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/
