RE: C runtime Exception Errors

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

Not for the example given.  I was in the process of modifying the service
program and the procedure shown such that two different procedures needed to
be able to access the error field so I had moved it into the global area.

> -----Original Message-----
> From: Joe Teff [SMTP:joeteff@earthlink.net]
> Sent: Saturday, February 12, 2000 5:40 PM
> To:   MIDRANGE-L@midrange.com
> Subject:      Re: C runtime Exception Errors
> 
> Was there any particular reason that you defined error as global vs
> inside the procedure?
> 
> -----Original Message-----
> From: Scott Mildenberger <Smildenber@Washcorp.com>
> To: 'MIDRANGE-L@midrange.com' <MIDRANGE-L@midrange.com>
> Date: Monday, January 31, 2000 12:14 PM
> Subject: RE: C runtime Exception Errors
> 
> 
> >Here is an excerpt from my service program.  The value imported below
> will
> >contain the 7 character message id when an error occurs.  Feel free to
> >e-mail me if you have any other questions.
> >
> >d error           s              7    import('_EXCP_MSGID')    
> >
> >p syscall         b                   export                 
> >d syscall         pi             7                           
> >d   cmd                           *   value options(*string) 
> >                                                             
> >d system          pr            10i 0 extproc('system')      
> >d   cmd                           *   value options(*string) 
> >                                                             
> >c                   if        system(cmd) <> 0               
> >c                   return    error                          
> >c                   else                                     
> >c                   return    *blanks                        
> >c                   endif                                    
> >                                                             
> >p syscall         e                                          
> 
+---
| 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
+---