Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

     strEdit = spaces(FIELD_EDIT_

...

LENGTH +

...

 1)

...

     strFlag = ""
 

...

     IF NOT LceGetFieldEdit(iSession,

...

 "SURNAME",

...

 strEdit,

...

 strFlag)
         / return error /
ENDIF

...

     IF strFlag = "E"
         / field edit is code /
ELSE

...

              IF strFlag = "W"
                  / field edit is word /
         ELSE
                 / no field edits /
ENDIF