QCMDEXC & OVRPRTV

[hebichel]

Hallo.

Der OVRPRTF funktioniert z.B.:

DoCmdString = 'OVRPRTF'
+ ' FILE(JLD205P) DEVTYPE(*AFPDS)'
+ ' PAGESIZE(93 180) LPI(8) CPI(12) OVRFLW(93)'
+ ' OVRSCOPE(*JOB)';
DoCmdmsg = DoCmd(DoCmdString);
.
.
.
Open JLD205P;
DoCmdString = 'DLTOVR FILE(JLD205P) LVL(*JOB)';
DoCmdMsg = DoCmd(DoCmdString);
close(e) JLD205P;


DoCmd procedure und DoCmdSring, DoCmdMsg felder sind programintern definiert:

d DoCmd           pr             7                   
d  DoCmdString               32767    const varying  
                                                     
d DoCmdMsg        s              7                   
d DoCmdString     s          32767    varying        

p DoCmd           b                                                     
d                 pi             7                                      
d  pDoCmdString              32767    const varying                     
                                                                        
d wReturnMsg      s              7                                      
                                                                        
d QCmdExc         pr                  extpgm('QCMDEXC')                 
d                            32767    const                             
d                               15p 5 const                             
                                                                        
c                   clear                   wReturnMsg                  
c                   callp(e)  QCmdExc(pDoCmdString:%len(DoCmdString))   
c                   if        %error                                    
c                   eval      wReturnMsg = zPgmErrMsgId  
c                   endif                                
c                   return    wReturnMsg                 
                                                         
p                 e 

Gruss
Helge Bichel
Copenhagen