get table Primary Unique index

DEFINE VARIABLE cTable AS CHARACTER  FORMAT "x(15)" NO-UNDO.

REPEAT:
UPDATE cTable.
    OUTPUT TO VALUE("c:\temp\primIdxRpt.txt":U) .
    FOR EACH _file WHERE _file._file-name = cTable NO-LOCK,
       FIRST _index WHERE RECID(_index) = _file._prime-index NO-LOCK:
        DISPLAY _file._file-name _index._index-name LABEL "Primary idx"
            _index._unique.
        FOR EACH _index-field OF _index:
         FIND _field OF _index-field NO-ERROR.
         IF AVAILABLE (_field) THEN
           PUT "  Campi chiave: " _index-seq " "_field-name SKIP.
      END.
    END.
    OUTPUT CLOSE.
END.