(菜鸟级)长时间的程序运行，如何发送消息，提升用户体验

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)