6 78 3 Psuedocode Example

LANSA Open Guide

6.78.3 Psuedocode Example

strSys = "SYSTEM1"

iSession = LceGetSessionId()

IF NOT LceUseSystem(iSession, strSys)

         /* return error */

ENDIF