strLab = ""
     IF NOT LceGetFieldLabel(iSession, "SURNAME", strLab)
              / return error /
     ENDIF