' print report on Active Jobs in the IBM i
strComm = "SNDMSG MSG('Hello') TOUSR(QSYSOPR)"
IF NOT LceExecute400(iSession, strComm)
         / return error /