By kimot, 24 March, 2023

CPF2465 - Replacement text of message 

CHGMSGD MSGID(CPI6705) MSGF(ADMSYS/QCPFMSG) FMT((*CHAR 17) (*CHAR 10) 
(*CHAR 6) (*CHAR 10) (*UBIN 8) (*CHAR 10) (*CHAR 6) (*CHAR 10) (*DTS) (*DTS) (*ITV))
By kimot, 21 March, 2023

freeRPG - send status message 

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;