Descriptor`s Uniqueness

, , ,
1

Hi guys,
We have a quite large (~180M records) Adabas file with some super-descriptors on it.
My question: is there any way - without making any changes on the file - to know that a specific super-descriptor contains only unique values (something like
ADAINV INVERT FILES SUPDE=super-field,UQ, TEST
(and RC = 0 if this is true
or ABEND if this verification fails). I suspect it is NOT possible, but I am NOT an expert in this area.

Many thanks in advance.

2

RESET #ANSWER
HISTOGRAM FILE-OR-VIEW-NAME SUPER-NAME
IF NUMBER GT 1 / NON UNIQUE VALUE
MOVE ‘NOT-U’ TO #ANSWER
ESCAPE BOTTOM
END-IF
END-HISTOGRAM
IF #ANSWER = ’ ’
WRITE 'SUPER HAS ALL UNIQUE VALUES
END-IF

3

Thank you very much, Steve
(although I expected some rather “utilitarian” solution to such a problem) :slight_smile:
It looks like you just confirmed my negative assumption…