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

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)