create.index entity.gps 

CREATE.INDEX ENTITY.GPS &INDEX&.CAT NO.NULLS

DICT.IMG.XREF.KEYWORDS



 FOR I = 1 TO DCOUNT(ENT.CAT,VM)
          ROOT = ENT.CAT<1,I>
          BSCAN REC.ID,REC.VAL FROM PRDGFILE,ROOT USING '&INDEX&' ELSE NULL
          ERR = STATUS()
          BEGIN CASE
  CASE ERR = 0
    MSG = "Exhausted leaf node contents."
  CASE ERR = 3
    MSG = "No active indices, or file is not type 25."
  CASE ERR = 4
    MSG = "Index name does not exist."
  CASE ERR = 5
    MSG =  "Invalid BY clause value."
  CASE ERR = 6
    MSG =  "Index must be built."
  CASE ERR = 10
    MSG =  "Internal error detected."
  END CASE

          NEXT I