If you want to show status message from your freeRPG program.
dcl-pr ShowMSG extpgm('QMHSNDPM');
*n char(7) const;
*n char(20) const;
*n char(32767) const options(*varsize);
*n int(10) const;
*n char(10) const;
*n char(10) const;
*n int(10) const;
*n char(4);
*n char(32767) options(*varsize);
end-pr;
dcl-ds ErrorCode;
BytesProv int(10) inz(0);
BytesAvail int(10) inz(0);
end-ds;
dcl-s Message char(200);
dcl-s MsgKey char(4);
Message = 'Processing started.' ;
ShowMSG('CPF9898' :'QCPFMSG *LIBL': Message: %len(Message) :'*STATUS':'*EXT':0 :MsgKey:ErrorCode);