Vous connaissez tous l'api qcmdexec. Voici une autre solution en utilisant le répertoire
de liage QC2LE.
Dans notre exemple, on peut tester la zone codeErreur qui contiendra le message d'erreur.
Exemple : CPF9801

H BNDDIR('QC2LE')  DFTACTGRP(*NO) ACTGRP('QILE')                
DSYSTEM           PR                  EXTPROC('system')        
D                                 *   value                    
D                                     options(*String)         
Duser             S             10    INZ('PLB')              
Dobjet            S             10    INZ('CLIENTS')           
DcodeErreur       S              7    import('_EXCP_MSGID')    
 /free                                                          
         system('CHKOBJ OBJ(' + objet + ') OBJTYPE(*FILE) ' +   
   'AUT(*USE)');                                               
   dsply codeErreur;                                           
  *inLR = *On;                                                 
 /end-free