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
+---