6 65 1 VB Example

LANSA Open Guide

6.65.1 VB Example

' Set Numeric padding

If iRet = LceTrue Then iRet = LceSetSessionOption(iSession,   _

         LCE_OPT_NUMERIC_DATA, "STRIP")

' set alphanumeric padding

If iRet = LceTrue Then iRet = LceSetSessionOption(iSession,  _

         LCE_OPT_ALPHA_DATA, "PAD")

' set edit characters retrieved with data

If iRet = LceTrue Then iRet = LceSetSessionOption(iSession,  _

         LCE_OPT_EDIT_DATA, "Y")

' set open files only on demand

If iRet = LceTrue Then iRet = LceSetSessionOption(iSession,  _

         LCE_OPT_OPEN_FILE_ON_DEMAND, "Y")