By kimot, 21 March, 2023
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;