6 10 3 Psuedocode Example

LANSA Open Guide

6.10.3 Psuedocode Example

Check if record can be deleted.

strName = "PSLMST"

strKey  = "EMPNO"

IF NOT LceSetFieldValue(iSession, strKey , "12345")

         return error 

ENDIF

IF LceDelete(iSession, strName, strKey, TRUE)

          delete of the record can be performed 

ELSE

          cannot delete the record 

          display error messages 

ENDIF