RE: SYSTEM prototype?

Jean

This example was posted to the group a while ago.

Hope it helps you.

     H BndDir('QC2LE')

     FWrknetf   If   E             Disk    UsrOpn

     D System          Pr            10i 0 ExtProc('system')
     D  Command                        *   Value Options(*String)

     C                   CallP     System('wrkNetf Output(*Outfile) +
     C                               Outfile(QTemp/Wrknetf)')

     C                   CallP     system('Ovrdbf Wrknetf QTemp/Wrknetf')

     C                   Open      wrknetf
     C
     C                   Read      Qnfdntf
     C                   Dow       not %eof(wrknetf)

     C                   Read      Qnfdntf
     C                   EndDo

     C                   Close     Wrknetf

     C                   Eval      *InLr     =  *On

     C                   Return




Regards 

Andy Youens 
FormaServe Systems Ltd 
T: 01908 319566 
M: 07770 380276 
E: Mailto:Andy@FormaServe.Co.Uk  
W: http://www.FormaServe.Co.Uk  

 



-----Original Message-----
From: hartawan reksodiputro [mailto:jeanhartawan@hotmail.com]
Sent: 29 January 2001 15:12
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
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.

+---
| 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
+---
This message contains confidential information and is intended solely for
the named addressee.
If you are not the named addressee you should not distribute, copy or take
any action in relevance to the contents of this email.
FormaServe Systems does not accept liability for any errors or omissions in
the contents of this message or attached documents or for any damage
suffered by your computer system caused by any errors or viruses contained
in the email or any attached documents.
+---
| 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
+---