CHGJOB     STSMSG(*NORMAL)                                         
    /*( 作業進行中メッセージの表示 )*/                                          
             SNDPGMMSG  MSGID(PNL0003) MSGF(MYLIB/PNLMSG) +                     
                          TOPGMQ(*EXT) MSGTYPE(*STATUS)