Re: Having problems accessing IFS from RPGIV

[boothm@xxxxxxxxxxxxxxxxx]

I know, I know, we gotta keep up, we can't be old-fashioned, we gotta get 
with the program...  but gee whizzzzz... 

where's there any RPG at all in this mystifying piece of RPGized-C++ code? 
 I'd bet that there are not 5 out of 100 qualified RPG programmers that 
can even begin to understand what is happening here.

If someone asked me to do the same function in real RPG code I would be 
absolutely stuck. 

_______________________
Booth Martin
boothm@earth.goddard.edu
http://www.spy.net/~booth
_______________________




MSievers@promega.com
Sent by: owner-rpg400-l@midrange.com
01/13/2000 11:11 AM
Please respond to RPG400-L

 
        To:     RPG400-L@midrange.com
        cc: 
        Subject:        Having problems accessing IFS from RPGIV


D errnoP          S               * 
D errno           S             10I 0 BASED(errnoP)

C                   Eval      FileHandle=open(%addr(FilePath):oflag)
C                   EVAL      errnoP = errnoF 


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