ODBC Zugriff über Access Null-Values

[B.Hauser]

Kann ich mit RPG3 noch auf eine Datei zugreifen die Nullwerte enthält?

Ja, aber dazu muss beim Compilieren die OPTION ALWNULL auf *YES gesetzt werden. (Unterlassungs-Wert ist *NO)

Gleiches gilt auch bei RPGIV-Programmen.
(Alternativ kann in RPGIV-Programmen das Schlüssel-Wort ALWNULL in den H-Bestimmungen angegeben werden. Damit braucht man sich beim nächsten Compilieren nicht mehr daran zu erinnern, dass die Option gesetzt wurde.)

Mit embedded SQL können NULL-Werte immer verarbeitet werden (unabhängig davon ob RPGIII oder RPGIV verwendet wird). Die NULL-Werte müssen lediglich durch einen Indikator geprüft und gesetzt werden.

Birgitta

[Fuerchau]

Das Problem von ACCESS ist, dass für ein Feld tatsächlich NULL geschrieben werden will, wenn man den Inhalt entfernt.
Wenn die AS/400-DB dies aber nicht hat (z.B. Standard-Anwendung), musst du das Feld aus ACCESS mit Leerzeichen bzw. 0 überschreiben !

[Bernd Wiezroek]

Danke für die schnelle Hilfe.

Ich habe inzwischen die Ratschläge umgesetzt. Wenn ich die Datei Unique definiere und ALWNULL einsetze gibt es bei der Accesverarbeitung keine Probleme mehr.

Das Sytem wollte in den Feldern auch keine Blanks annehmen so musste immer ein Buchstabe als Dummy eingetragen werden sobald das Feld im Access geändert wurde.

Auf der RPG seite klappt der Test noch nicht richtig da kommt immer ein 5029 Fehler sobald ich versuche die Datei zu lesen. Da muß ich nochmal die Konsistez der Daten untersuchen.

[Fuerchau]

NULL-Felder kannst du nur mit RPGLE verarbeiten.
Mit %NULLIND(Variable) kannst du dann den Zustand abfragen bzw. setzen.

[Bernd Wiezroek]

Danke für den Tipp dann werde ich es damit versuchen.

Zur not muß ich halt mit SQL alle Null-Values initialisieren.

[Fuerchau]

Selbst dann klappts nicht mir RPG !
Bei solchen Dateien empfielt sich dann doch wieder besser embedded SQL.
Dann kannst du NULL auch per Indicator-Variable setzen/lesen.

/exec-sql
c+ select fld1, fld2
c+ into : fld1 : flag1, :fld2 : flag2
c+ from myfile
c+ where key=: mykey
c/end exec

Die Flag-Variablen müssen als 2-Byte binär (Type B) definiert sein und enthalten -1 im Falle von NULL.

[Bernd Wiezroek]

Da habe ich jetzt 2 Alternativen.

Die Sql Lösung gefällt mir besser da ich mehr SQL nutze als Free RPG.

Vielen Dank für die Hilfe.