RE: authority question....

This is an easier way - at least for me!!!!

I have users that are based in US & Canada that use the same suite of
programs (in this case, commission statements).  They want to be able to
select the following: either print or hold, number of copies and outq.  The
necessary validation is done in the requestor and parameters are passed
along the line.

FAPRINTER  O    E             PRINTER OFLIND(*IN89)                    
F                                     usropn                           
F* Printfile                                                          
F                                                                      


D* Command Execute to override printer file as per user requests  
d                                                                  
d cmdexc          pr                  extpgm('QCMDEXC')            
d   comman                     256    options(*varsize)            
d                                     const                        
d   cmdlen                      15  5                              
d                                     const               


C* Set up the report as per user instructions                              
C                   eval      comman = *blanks  
C                   eval      #hold = '*YES'                               
C                   if        #prthold = 'Y'                               
C                   eval      #hold = '*NO '                               
C                   endif                                                  
C                   move      #prtcpy       #COPIES                        
C                   move      #prtotq       #OUTQ                          
C                   eval      comman = 'OVRPRTF FILE(APRINTER) +          
C                                       OUTQ(' + #OUTQ +  ') +             
C                                       SAVE(*YES) COPIES(' + #COPIES +    
C                                       ') HOLD(' + #HOLD +  ')'           
C                                                                          
C                   callp     cmdexc(comman:%size(comman))                 
C                                                                          
C                   open      APRINTER







-----Original Message-----
From: Jeff Bull [mailto:Jeff.Bull@xxxxxxxxxxxxxxx]

Hi Rob,

I recall that I built a CL command in a string-variable, then used the CALL
opcode to invoke QCMDEXC -