Re: OVRPRTF within RPGILE

[rob@xxxxxxxxx]

I, too, dabbled with QCAPCMD for awhile.  I would use it for command
verification and whatnot but not for plain execution.

          Is the following informative enough?

          The imported variable ErrorCPF will contain the Error code.
          Accepts:  An extremely large string composing an AS/400 command.
          Returns:  A numeric error flag.
               Also check the imported variable ErrorCPF for the message
          code.
          Sample:
          H Bnddir('QC2LE')
          C                   Eval      ErrorCPF=Blanks
          C
          C                   Eval      ErrorFlag=system(cmd)
          C                   If        ErrorFlag<>0
          C                   Select
          C                   When      ErrorCPF='CPF1111'
          C*                  ...
          C                   When      ErrorCPF='CPF2222'
          C*                  ...
          C                   Other
          C*                  ...
          C                   EndSL
          C                   EndIf


          Rob Berendt

          ==================
          A smart person learns from their mistakes,
          but a wise person learns from OTHER peoples mistakes.


                                                                                
                                         
                    Jeff Crosby                                                 
                                         
                    <jlcrosby@fwi.com>         To:     MIDRANGE-L@midrange.com  
                                         
                    Sent by:                   cc:                              
                                         
                    owner-midrange-l@mi        Subject:     Re: OVRPRTF within 
RPGILE                                    
                    drange.com                                                  
                                         
                                                                                
                                         
                                                                                
                                         
                    05/29/01 12:34 PM                                           
                                         
                    Please respond to                                           
                                         
                    MIDRANGE-L                                                  
                                         
                                                                                
                                         
                                                                                
                                         




rob@dekko.com wrote:

> One of the reasons I've dropped QCMDEXC like a hot potato and use system
()
> exclusively.

Where can I find out more about this system() you're talking about?  Is
it something that already exists and I use it like my own procedures?

BTW, my ExecCmd procedure calls QCAPCMD to execute a system command.

--
-Jeff
The opinions expressed are my own and not necessarily
the opinion of my company.  Unless I say so.
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---




+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---