6 22 3 Psuedocode Example

LANSA Open Guide

6.22.3 Psuedocode Example

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