RE: SYSTEM prototype?

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

Create the following prototype and field definition.

d system          pr            10i 0 extproc('system')       
d   cmd                           *   value options(*string)
  
d error           s              7    import('_EXCP_MSGID') 

and then call with callp like
c                       callp           system('DSPSYSSTS')
c                       if              error <> *blanks
 ***  error handling here
c                       endif


When you compile or bind you need to specify binding directory QC2LE.  We
have embedded this into a service program for ease of use.

By the way, if you think something has been posted previously try searching
the archive at www.midrange.com , it is usually easier and faster to find a
solution.


Scott Mildenberger


> -----Original Message-----
> From: hartawan reksodiputro [mailto:jeanhartawan@hotmail.com]
> Sent: Monday, January 29, 2001 8:12 AM
> To: RPG400-L@midrange.com
> Subject: SYSTEM prototype?
> 
> 
> Hi all,
> 
> Can anyone gives an example on how to use C function, as an 
> alternate to 
> call system command from RPG-IV?
> I kinda recall that it has been posted here, but I'm still 
> lost, please 
> forgive me and show me the way?
> 
> Thanks,
> Jean
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---