RE: system() -- MIDRANGE-L

Where's that, Ron?  I'm from Mn too (ND originally) and I don't have a
nickname.  Oh wait, I had a few growing up...

Stoner, Stoney, Stan, Stanley, Bones...

haha..

Brad

> -----Original Message-----
> From: Klein Ron [mailto:ron.klein@brctsg.com]
> Sent: Tuesday, September 26, 2000 3:41 PM
> To: 'MIDRANGE-L@midrange.com'
> Subject: RE: system()
> 
> 
> Sorry Barbara,
> I come from a part of Minnesota where everyone has a 
> nickname, even the old
> men have names like Billy Early, Lloydy.  I meant no offense. 
>  Thank you for
> the clarification on the (e) extender.  I guess it just went 
> right over my
> head when I read your response.
> Ron
> 
>       -----Original Message-----
>       From:   bmorris@ca.ibm.com [SMTP:bmorris@ca.ibm.com]
>       Sent:   Tuesday, September 26, 2000 2:17 PM
>       To:     MIDRANGE-L@midrange.com
>       Subject:        RE: system()
> 
> 
>       >Date: Tue, 26 Sep 2000 08:47:35 -0500
>       >From: Klein Ron <ron.klein@brctsg.com>
>       >
>       >>Ron, use an error indicator on CALL, or (E) extender 
> on CALL or
>       >>CALLP.
>       >>   C            callp(e)    qcmdexc (command : len)
>       >>   C            if          %error
>       >>   ... an error occurred
>       >>   C            endif
>       >
>       >    Barb, now that I know there is an error, is there a way to
> monitor
>       >it from within RPGLE, the same way a MONMSG works in 
> CL. Something
> that
>       >will not kill my program but continue processing.
> 
>       Ron, I don't understand your question.  The (e) or 
> error indicator
>       IS the monitor.  Because of the (e) or error indicator, 
> your program
>       continues after the call to QCMDEXC.  If you leave out 
> the (e) or
>       error indicator, your program will crash (or go to the *PSSR).
> 
>       These are basically the same:
> 
>         CL:  CRTLIB XXX
>              MONMSG EXEC(DO)
>                    ... do something to handle the error ...
>              ENDDO
> 
>         RPG: C        callp(e)     qcmdexc ('CRTLIB XXX' : 10)
>              C        if           %error
>              C          ... do something to handle the error ...
>              C        endif
> 
> 
>       Barbara Morris
> 
>       By the way, it's "Barbara", not "Barb".  "Barb": ewwwww.  (For
>       me that is - for someone else, I'm sure "Barb" is a fine name.)
> 
>       "Surely you jest."
>       "Please don't call me Shirley."
> 
> 
>       +---
>       | 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
> +---
> 
+---
| 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
+---