RE: WRKNETF API?

Hi Paul

Thanks for your example of using the System() function.

Unfortunately, after cutting & pasting your code, I get the following error
after the first system() call (WRKNETF)

                         Additional Message Information

 

 Message ID . . . . . . :   CPD0018

 Date sent  . . . . . . :   08/01/01      Time sent  . . . . . . :
11:09:55   
 

 Message . . . . :   String 'Ø         ' contains a character that is not

   valid.

 

 Cause . . . . . :   The string contains a character that is only valid in a

   quoted string or a comment.

 Recovery  . . . :   Remove the character that is not valid from string

   X'80404040404040404040', or if it is a parameter value, make the string a

   quoted string. More information on valid characters can be found in the
CL   
   Reference manual.

 

                                              
We are running V4.5, cume @ 00294


What am I missing, any help appreciated.

Many thanks

Regards

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

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 reliance on 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.


-----Original Message-----
From: paul cunnane [mailto:paul@cunnane.net]
Sent: 05 January 2001 10:36
To: RPG400-L@midrange.com
Subject: Re: WRKNETF API?


> So I was thinking of doing the whole thing in RPG, and as I'm using
> RPG I would rather use APIs then calling a program using QCMD.

Jim,

I know it's not what you want, but prototype the C runtime system() function
and bind with QC2LE.  It gives a cleaner interface (IMHO) than QCMD, so you
can do the whole thing in RPG:

Fwrknetf   if   e             disk    usropn

 ...

D system          pr            10i 0 extproc('system')
D  command                        *   const options(*string)

 ...

C             callp     system('ovrdbf wrknetf qtemp/wrknetf')
C
C             dou       exitRequested
C             callp     system('wrknetf output(*outfile) +
C                               outfile(qtemp/wrknetf)')
C             open      wrknetf
C
C             read      qnfdntf
C             dow       not %eof(wrknetf)

  ...

C             read      qnfdntf
C             enddo

  ...

C             close     wrknetf
C             enddo

 ...

Caveat: NOT TESTED!!

Oh, and no DOU/DOW wars from the peanut gallery!

--
Paul


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