RE: Having problems accessing IFS from RPGIV

Guess, I am confused. 

Code presented is RPG. Just calling a function in a service library. In this
case, it just happens to be written in "C" instead of RPG. 

Point I would make her is this kind of thing needs to hidden in a service
library. The average Joe programmer should not be having to understand how
the file I/O to a Unix file system)IFS) works. 

If you are using Java and you want to do TCP/IP sockets, you just include a
class. How many programmers really care how a TCP/IP sockets works? They
just write to the API. 

To me, this is just our old RPG III mindset. We have to do everything in
every program instead
of building it in one place. 

Bottom line. Hide complexity and reuse whenever possible so that next
programmer won't have to understand how something works. Only that it solves
the problem. 

Sorry that both of my message recently have stated pretty much the same
thing. Thanks.

-----Original Message-----
From: boothm@earth.goddard.edu [mailto:boothm@earth.goddard.edu]
Sent: Thursday, January 13, 2000 10:39 AM
To: RPG400-L@midrange.com
Subject: Re: Having problems accessing IFS from RPGIV


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