6 23 3 Psuedocode Example

LANSA Open Guide

6.23.3 Psuedocode Example

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