DB2 Embedded SQL in RPGLE

Question

Nehmen wir an, wir haben diese Anfrage:

SELECT T1.*, T2.* INTO :DS1, :DS2 FROM FILE1 AS T1 
LEFT JOIN FILE2 AS T2 ON T1.KEY = T2.KEY 
FETCH FIRST 1 ROW ONLY 

Alles kommt in Ordnung, wenn beide Datensätze gefunden werden. Was passiert jedoch, wenn der Datensatz FILE2 nicht vorhanden ist?

SQLCOD -305 THE NULL VALUE CANNOT BE ASSIGNED TO OUTPUT HOST VARIABLE 

Und selbst wenn der Datensatz von FILE1 gefunden wird, sind beide DS leer! Das ist ein Problem.
Ein Weg, dies zu überwinden, ist COALESCE auf jedem Feld zu verwenden, aber was ist, wenn ich Hunderte von ihnen habe ?!
Eine andere Möglichkeit besteht darin, zwei verschiedene Abfragen zu verwenden. Aber das ist hässlich, wenn ich einen Cursor haben möchte.

Gibt es einen besseren Weg?

Answer 1

Wenn Sie Spalten haben, die NULL sein könnten, müssen Sie eine Integer-Variable übergeben, die als NULL-Indikator verwendet wird. Wenn der Wert für die Ergebnisspalte null ist, setzt SQL in der Indikatorvariablen -1.

Mit einem LINKEN JOIN könnte jede Spalte aus der rechten Tabelle NULL sein.

Die manual hat das folgende Beispiel:

EXEC SQL 
    SELECT COUNT(*), AVG(SALARY) 
    INTO :PLICNT, :PLISAL:INDNULL 
    FROM CORPDATA.EMPLOYEE 
    WHERE EDLEVEL < 18 

Beachten Sie, dass es zwischen der Null-fähiger PLISAL und INDNULL kein Komma ist.

Beim Umgang mit Datenstrukturen können Sie ein Null-Indikator-Array übergeben. So sollten Sie Code so etwas wie sein:

// xx should be the number of columns in T2 
dcl-s indArr int(5) dim(xx); 

exec sql 
    SELECT T1.*, T2.* INTO :DS1, :DS2 :indArr 
    FROM FILE1 AS T1 
    LEFT JOIN FILE2 AS T2 ON T1.KEY = T2.KEY 
    FETCH FIRST 1 ROW ONLY; 

Als FYI: gilt es als eine schlechte Idee SELECT * in Produktionscode zu verwenden. Sie sollten eine explizite Liste von Spalten haben. Auf diese Weise kann jemand später kommen und eine Spalte zu Ihrem Tisch hinzufügen, ohne Ihren Code zu brechen.