RPG IV not up to the task of reading and writing to DB files....

<vent>

I've come to that conclusion after banging my head against the wall of
RPG's (lack of) NULL support.

I'm working on a new from the ground up application system that will
eventually take the place of a poorly designed and written monolithic
system we use right now.

I've tried to do things the "right" way, a DB that uses triggers,
constraints and null-capable fields;  RPG service programs containing
modularized code.

I keep banging my head against the fact that many of my procedures deal
with a variable that ends up in a NULL capable DB column.  At least if
my top level procedures get passed an OMIT'd variable, I can without
trouble pass that along to lower level procedures.  At the lowest level,
when I go to write to the database, I can check the parameter and if it
is OMIT'd I can set the DB null indicator.

Even with the above, the programs calling those top level procedures
have to jump through hoops to either OMIT or no OMIT the param.  At
least I don't have to code the multiple calls procedure each using a
different combination parameters to be OMIT'd.  Scott Klement and other
helped with way around that requirement by playing games with basing
pointers and local variables.  The games are not pretty, but they are
better looking than the alternative.

Still, I have procedures that really need some way to return or set a
reference variable to a NULL value.  Can't be done, there's no such
thing as a standalone null capable variable in RPG.

Sure I can include my own null indicator, and I'm going to have to, but
the resulting code is not pretty.

For crying out loud if the DB supports NULLs shouldn't the primary
programming language? 

This would be ideal:

D myVar           s             10a   ALWNULL
 /free
    myVar = DoSomething(var1:var2:var3);
    DoSomethingElse(var4:myVar);
 /end-free

Nope, instead I've got this crap...
D myVar           s             10a   based(ptrMyVar)
D myVarNULL       s               n   
D memMyVar        s             10a
 /free
    DoSomething(var1:var2:var3:myVar:memMyVarNULL);
    if not myVarNULL;
       ptrMyVar = %addr(memMyVar);
    endif;
    DoSomethingElse(var4:myVar);
 /end-free

Thanks for listening!
</vent>

Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121