1.如果是rpg程序，那么我们可以没处理一笔数据就write msg 这样用户就可以看到处理的过程，不会感觉在沉闷的等待，这个比较简单
2.如果是CL程序，那么我们可以通过如下方式
在cl程序中定义一个79长度的msg变量
每次都chgvar该变量，把我们要输出的内容填入
然后sngpgmmsg
sample:
CHGVAR VAR(&MSG) VALUE('Updating program ' *CAT +
&HEAD *CAT '.....................')
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&MSG) +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
如果需要在发送结束之后清除发送的信息，那么
只需要在pgmend之前，
/* CLEAR MESSAGE */
SNDPGMMSG MSGID(CPF9801) MSGF(QCPFMSG) TOPGMQ(*EXT) +
MSGTYPE(*STATUS)