Below is an EXEC I wrote to check whether the 32-bit CRC is really unique. As it does a SORT UNIQUE, there are limits to the size of files that can be checked.
I'd appreciate it if you'd run this EXEC on a cross section of your files, particularly files you might wish to compare for differences. If you find synonyms, I'd very much like to know what they are. Thanks, j. /* Test for crc being unique */ /* John Hartmann 16 Feb 2011 12:42:27 */ /*%test: ckcrc qsam testout */ Signal on novalue numeric digits 12 Address COMMAND 'PIPE (end \ name CKCRC)', '\<' arg(1) , '|sort unique', '|cnt: count lines', '|c: crc each', '|sort count', '|i1: if pick 9.2 == / 1/', '|count lines', '|insert / unique crcs/ after', '|i1:', '|spec /Synonym:/ 1 11.4 c2x nw /occurs/ nw 1.10 strip nw', '|i1:', '|i:fanin', '|cons', '\cnt:', '|insert / unique lines/ after', '|i:' Exit RC
