QCMDEXC & OVRPRTV

[muadeep]

Habe folgendes Problem:

H Option(*SrcStmt : *NoDebugIO) Datedit(*DMY) DatFmt(*ISO) Indent('| ')
H DftActGrp(*No)
 *
FMontAuPR  O    E             Printer UsrOpn
 *
DPgmSDS          SDS
D User                  254    263
 *
D QCmdExc         PR                  ExtPgm('QCMDEXC')      
D   Command                   3000A   const options(*varsize)
D   Length                      15P 5 const
 *
C                   Select                    
C                   When      (User = 'MXX1')
 *
C                   CallP     QCMDEXC('OVRPRTF FILE(MONTAUPR) ' +    
C                                              'DEV(PRTCM4200)' : 37)
C                   Open      MontAuPR                               
C                   Write     LabelE                                 
C                   Close     MontAuPR                               
C                   CallP     QCMDEXC('DLTOVR FILE(MONTAUPR)' : 21)
C                   Other
                     :
                     :
C                   EndSl
 *
C                   Eval      *InLR = *on 

Wenn der User "MXX1" ist wird das Statement mit "CallP QCMDEXC('..." ausgeführt und es gibt auch keinen Programmabruch aber die Überschreibung (OVRPRTF ... ) ist dann leider auch nicht vorhanden bzw. es wird auf dem Standartdrucker gedruckt!

Kann mir jemand sagen, was ich da falsch mache?