strHead1 = ""
     strHead2 = ""
     strHead3 = ""
     IF NOT LceGetFieldHeading(iSession, "SURNAME", 1, strHead1)
              / return error /
     ENDIF
     IF NOT LceGetFieldHeading(iSession, "SURNAME", 2, strHead2)
              / return error /
     ENDIF
     IF NOT LceGetFieldHeading(iSession, "SURNAME", 3, strHead3)
              / return error /
     ENDIF