DEF VAR lhBuffer AS HANDLE NO-UNDO.
DEF VAR lvCount AS INT NO-UNDO INIT 1.
DEF VAR lvField AS INT NO-UNDO.
DEF VAR lvIndex AS CHAR NO-UNDO.
CREATE BUFFER lhBuffer FOR TABLE "customer":U NO-ERROR.
IF VALID-HANDLE(lhBuffer)
THEN DO:
GetIndices:
REPEAT:
lvIndex = lhBuffer:INDEX-INFORMATION(lvCount) NO-ERROR.
IF lvIndex EQ ?
THEN LEAVE GetIndices.
IF ENTRY(3,lvIndex) EQ "1":U
THEN DO:
MESSAGE "Index:":L ENTRY(1,lvIndex) "Unique:":L ENTRY(2,lvIndex) "Word:":L ENTRY(4,lvIndex).
DO lvField = 5 TO NUM-ENTRIES(lvIndex) BY 2:
MESSAGE "Index Field:":L ENTRY(lvField,lvIndex) "Descending:":L ENTRY(lvField + 1,lvIndex).
END.
LEAVE GetIndices.
END.
lvCount = lvCount + 1.
END.
DELETE OBJECT lhBuffer.
END.