FMYIMPH IF E K DISK ALIAS
DIMPH DS LIKEREC(IMPH_00001)
D NULLIND(IMPHNULL)
DIMPHNULL DS LIKEREC(IMPH_00001:*NULL)
IMPHNULL is containing an serie of qualified, named indicator-fields, where *Off is notNull and *On is Null....DIMPH DS LIKEREC(IMPH_00001)
D NULLIND(iNull)
DiNull Ds LIKEREC(IMPH_00001:*Null)
DoNull S 5I 0 dim(100)
clear oNull;
For idx = 1 to %len(iNull);
If %subst(iNull:idx:1) = '1';
oNull(idx) = -1;
endif;
endfor;
array oNull can be used on the SQL insert :-)
I figured that out allready, but then I need to make an insert statment with 100 fields and 100 values (+ nullind),
that will become unreadable and unmaintainable
What if I read the file using RPG with ALWNULL(*USRCTL)
(until now I avoid using null capability, because of this problems)