6 11 1 VB Example

LANSA Open Guide

6.11.1 VB Example

          ' remove any previous select results not read. 

          ' If any exist, the next select will fail. 

iRet = LceDeleteSelect(iSession, "SECTAB")

 

' get the new data 

iRet = LceSetSelectOptions(iSession, "*RECEIVEIMMED")

iRet = LceRequestSelect(iSession, "SKILCODE,SKILDESC", "SKLTAB", _

        "", False)