6 14 1 VB Example

6.14.1 VB Example

' print report on Active Jobs in the IBM i

strComm = "SNDMSG MSG('Hello') TOUSR(QSYSOPR)"

IF NOT LceExecute400(iSession, strComm)

         /* return error */