embedded SQL: View mit NULL-Werten verarbeiten

[Fuerchau]

Da du in eine DS fetchst, estelle eine 2. DS mit NULL-Flags:

D NULLDS DS
D NULLFLG I5 dim(50)

FETCH NEXT FROM crsr1 INTO : WEB01VIEW : NULLDS;

[mgraskamp]

Code durch
dcl-ds nullds;
nullflg int(5) dim(50);
END-DS;
ergänzt. Und die FETCH-Anweisung durch :NULLDS ergänzt. Jetzt kann ich das Programm nicht umwandeln, weil NULLDS nicht definiert oder verwendbar ist. Habe ich Deine D-Bestimmungen falsch in FREE umgesetzt? Was passiert, wenn es mehr als 50 Sätze werden? Warum überhaupt DIM(50)?

[Fuerchau]

Also: je Feld ist ggf. ein NULL-Flag erforderlich, bei Kannfeldern kann man NULL-Flags verwenden.
Da dein Fetch in eine DS geht, so ist ein Flag-Array erforderlich.
Insoweit war mein SQL ein wenig falsch, da ich nicht das Array sondern die DS angegeben habe.
Der Link zu dem Thema betrifft einen Multi-Row-Fetch, wo je Zeile ein Flag-Array erforderlich ist und in dem Fall benötigt man dann ein 2-dimensionales Array (1.Dim=Zeile, 2.Dim=Spalte).

Korrigiere deinen SQL in dem du nicht die NULLDS sondern NULLFLG als Array angibst.