D SndPgmMsg PR ExtPgm('QMHSNDPM')
D MsgId 7 Const
D QualMsfF 20 Const
D MsgData 9999 Const Options(*varsize)
D MsgDataLen 10i 0 Const
D MsgType 10 Const
D ToCSE 10 Const Options(*VarSize)
D ToCSECtr 10i 0 Const
D MsgKey 4
D ErrCode * Const
...
/free
...
Msg = This is a test to cancel the program';
MsgKey = ' ';
sndpgmmsg( 'CPF9898' : 'QCPFMSG QSYS'
: Msg : %Len(Msg)
: '*ESCAPE' : '*'
: 0 : MsgKey
: *Null);
/end-free