実行中のメッセージを出さないようにするには?

「XXXXを実行中です。」という状況メッセージを出す方法と
逆に「XXXXをコピー中」などのシステムによる状況メッセージを
出さない方法を紹介する。
_
　

■ 状況メッセージを表示するには

CPF9887 にメッセージ・データを送って *STATUS で表示すれば
状況メッセージを表示することができる。

0550.00              CHGVAR     VAR(&STSMSG) +                                   
0551.00                           VALUE(' お待ちください。リスト定義を作成中 +   
0552.00                            です。 ')                                     
0553.00              SNDPGMMSG  MSGID(CPF9897) MSGF(QSYS/QCPFMSG) +              
0554.00                           MSGDTA(&STSMSG) TOPGMQ(*EXT) MSGTYPE(*STATUS)

■ システムによる状況メッセージをを出さないようにするには

自分自身のジョブの状況メッセージを *NONE に一時変更すれば
状況メッセージは表示されない。
最後に STSMSG(*NORMAL) にして元に戻せばよい

              CHGJOB     JOB(*) STSMSG(*NONE)
              CPYSRCF    FROMFILE(V.PANEL/QPNLSRC) +              
                         TOFILE(QTEMP/QPNLSRC) FROMMBR(DSPTOP) +
                         MBROPT(*REPLACE)                       
　　　　　      　:
              CHGJOB     JOB(*) STSMSG(*NORMAL)