Anstatt das Programm "QCMDEXC" rufst Du das nachfolgende Programm 'CMD' auf. Wenn der Befehl
nicht ausgeführt werden konnte, dann bekommst Du im zweiten Parameter die
Nachrichten-Id. zurück.

PHP-Code:
h DftActGrp(*NO) ActGrp(*CALLER) BndDir('QC2LE')                                              
 *                                                                                            
 *-------------------------------------------------------------------------------------------*
 *                                                                                            
 * Prozedurenprototyp für Prozedur 'CMD'                                                      
 *                                                                                            
dCMD              PR                                                                          
d                             1024A   Const                                --> Befehl         
d                                7A                                        <-- Nachrichten-Id.
 *                                                                                            
 * Prozedurenschnittstelle für Prozedur 'CMD'                                                 
 *                                                                                            
dCMD              PI                                                                          
d PICmd                       1024A   Const                                --> Befehl         
d PIMsgId                        7A                                        <-- Nachrichten-Id.
 *                                                                                            
 *-------------------------------------------------------------------------------------------*
 *                                                                                            
 * Prozedurenprototyp für Prozedur 'system'                                                   
 *                                                                                            
dsystem           PR            10I 0 EXTPROC('system')                                       
d                                 *   Value Options(*String)                                  
 *                                                                                            
 * Nachrichten-Id.                                                                            
 *                                                                                            
dMsgId            S              7A   Import('_EXCP_MSGID')                                   
 *                                                                                            
 *-------------------------------------------------------------------------------------------*
 *                                                                                            
 * Befehl ausführen                                                                           
c                   If        system(PICmd) > 0                                               
 * Fehler aufgetreten                                                                         
c                   Eval      PIMsgId = MsgId                                                 
c                   Else                                                                      
 * Kein Fehler aufgetreten                                                                    
c                   Eval      PIMsgId = *Blanks                                               
c                   EndIf                                                                     
 * Programmende                                                                               
c                   Eval      *INLR = *On