Schräg: MKDir mit QCMDEXC und interaktiv

[camouflage]

Ich prüfe mit MKDIR ob ein Verzeichnis schon vorhanden ist.

siehe hier:

 Cmd = 'MKDIR DIR(''' + %trim(Path) + ''')';  
 monitor ;                                    
   QCmdExc(Cmd:%len(Cmd)) ;                   
   on-error ;                                 
     if (PgmDS.ErrCde = 'CPFA0A9') ;

Der CPFA0A9 soll mir dann einen QSH mkdir -p anstossen.

Im Debugger erhalte ich jedoch den CPFA0A0, während dessen der gleiche Command interaktiv den richtigen Fehlercode produziert. (Dir gibt es nicht!)

Ich bin ein bisschen ratlos - kennt das jemand? Oder fahr ich mit einem CL gleich besser?

Danke.