>How do I check if a field has an index?
>
>I would like to know if my REPNUM field has an index but I can't find a way of doing this.
>
>I have been trying TAG(), TAGNO(), TAGCOUNT(), CDX() and other functions but no answer yet.
>

The easiest way would be to spin through the atgs and examine the index expression using SYS(14):

USE <i>JRandomTable</i>
LOCAL nCtr, nTagCount
nTagCount = TAGCOUNT()
FOR nCtr = 1 TO nTagCount
   IF UPPER(SYS(14,nCtr)) == 'REPNUM'
      EXIT
   ENDIF
ENDFOR
*  If nCtr <= nTagCount, there's a tag, and it's number is nCtr
*  You can now get the name of the Tag with TAG(nCtr)
*  This won't work unless the index expression matches the field with
*  no functions or extended expressions;  if this were a character
*  field and a tag with that field was used as a part of a concatenated
*  key, or you used the UPPER() function, it won't match

>Thank you in advance.