Versuch mal den hier.

PHP-Code:

h DftActGrp(*NO)                                                                                                        
 *                                                                                                                      
 * Prozedurenprototyp für Prozedur 'QMHSNDPM'                                                                           
 *                                                                                                                      
dQMHSNDPM         PR                  ExtPgm('QMHSNDPM')                                                                
d                                7A   Const                                --> Message identifier                       
d                               20A   Const                                --> Qualified message file name              
d                            32767A   Const Options(*VarSize)              --> Message data                             
d                               10I 0 Const                                --> Length of message data                   
d                               10A   Const                                --> Message type                             
d                              256A   Const                                --> Call stack entry                         
d                               10I 0 Const                                --> Call stack counter                       
d                                4A                                        <-- Message key                              
d                            32767A   Options(*VarSize)                    <-> Error code                               
d                               10I 0 Const Options(*NoPass)               --> Length of call stack entry               
d                               20A   Const Options(*NoPass)               --> Call stack entry qualification           
d                               10I 0 Const Options(*NoPass)               --> Display program messages SWT             
d                               10A   Const Options(*NoPass)               --> Call stack entry data type               
d                               10I 0 Const Options(*NoPass)               --> Coded character set identifier           
 *                                                                                                                      
 * Datenstruktur für Format 'ERRC0100' für Fehlercode                                                                   
 *                                                                                                                      
dERRC0100         DS                                                                                                    
d ERRCBytePrv                   10I 0 Inz(272)                             --> Bytes provided                           
d ERRCByteAvl                   10I 0                                      <-- Bytes available                          
d ERRCExcId                      7A                                        <-- Exeption-Id.                             
d ERRCRsrvd                      1A                                        <-- Reserved                                 
d ERRCExcDta                   256A                                        <-- Exeption data                            
 *                                                                                                                      
 * Sonstige Felddeklarationen                                                                                           
 *                                                                                                                      
dITMsgKey         S              4A                                        Nachrichtenschlüssel                         
 *                                                                                                                      
 * Nachricht in die Programmnachrichtenwarteschlange senden                                                             
 *                                                                                                                      
c                   Reset                   ERRC0100                                                                    
c                   CallP     QMHSNDPM('CPF9897' :                         --> Message identifier                       
c                                      'QCPFMSG   *LIBL' :                 --> Qualified message file name              
c                                      'Hello World' :                     --> Message data                             
c                                      11 :                                --> Length of message data                   
c                                      '*INFO' :                           --> Message type                             
c                                      '*' :                               --> Call stack entry                         
c                                      2 :                                 --> Call stack counter                       
c                                      ITMsgKey :                          <-- Message key                              
c                                      ERRC0100 :                          <-> Error code                               
c                                      1 :                                 --> Length of call stack entry               
c                                      '*NONE     *NONE' :                 --> Call stack entry qualification           
c                                      0)                                                                               
 *                                                                                                                      
 * Programmende                                                                                                         
 *                                                                                                                      
c                   Eval      *INLR = *On