Anstelle von QCMDEXC kannst Du auch mit system arbeiten

Code:
HDFTACTGRp(*no) bnddir('QC2LE')
 
FmyFile    if   E             DISK    usropn
 
 *--- Call Commands                                          
Dsystem           PR            10I 0 EXTPROC('system')      
 * Commandstring                                             
D                                 *   VALUE OPTIONS(*STRING) 
 
C                   callp     system('CLRPFM myFile') 
C                   open      myFile           
 
....       
C                   close     myFile