Prefix für SQLCODE ?

[DEVJO]

Gibts sowas?
Hab halt mehrere Dateien in den Programmen und will so peau a peau umstellen auf SQL wäre schön wenn ich sowas "ähnliches" hätte das ich sagen könnten If SQLCode_A = 100; oder sowas in der Art......

[Fuerchau]

Das ist nicht möglich und eigentlich nicht erforderlich.
Möchtest du dir den SQLCODE retten, musst du das selber machen.
Allerdings gehört SQLCODE zu einer Struktur SQLCA, die man auch nicht mit LIKEDS kopieren kann (mangels qualified).

Wenn du dir die Auflösung im Spool ansiehst, siehst du, dass für jeden SQL die SQLCA angegeben wird.

[BenderD]

... der SQLCODE ist im Modul global und wird bei jeder SQL Operation neu gesetzt, man muss also unmittelbar nach der Operation abfragen.

D*B

Gibts sowas?
Hab halt mehrere Dateien in den Programmen und will so peau a peau umstellen auf SQL wäre schön wenn ich sowas "ähnliches" hätte das ich sagen könnten If SQLCode_A = 100; oder sowas in der Art......

[B.Hauser]

... allerdings ist es seit Release 6.1 möglich Variablen zu definieren, in denen auf Felder in der SQLCA referenziert werden. Zuvor musste man die Felddefinitionen wissen und für Hilfs-Felder hart angeben. (Kann sein, dass diese Funktion via PTF schon für frühere Releases aktiviert werden kann).

Retten muss man seine Daten allerdings selber, da wie Dieter sagt die SQLCA mit jedem SQL-Statement aktualisiert wird

D SQLCODx          S                           Like(SQLCOD)
D SQLERMx          S                           Like(SQLERM)
 /Free
     DoW SQLCODx <> 100 and SQLCODx >= *Zeros;
            Exec SQL Fetch .....;
            SQLCODx = SQLCOD;
            SQLERMx = SQLERM;
      EndDo;
 /End-Free 

Birgitta