QCMDEXC

[philsturm]

Auch folgendes bringt leider keinen Erfolg.

DQCMDEXC          PR                  extpgm('QCMDEXC')
D CMD                          255A   const            
D CMDLEN                        15  5 const

[camouflage]

Anstelle von QCMDEXC kannst Du auch mit system arbeiten

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