Wir wollen unser zentrales Fehlerbehandlungsprogramm auf GET DIAGNOSTICS umstellen. Hat jemand bereits ein COBOL-Beispielprogramm, in dem GET DIAGNOSTICS verwendet wird?
Danke. Lutz.
mal was ganz einfaches für den Fehlerfall:
EXEC SQL
GET DIAGNOSTICS :ZAEHLER = NUMBER
END-EXEC
DISPLAY SQLCODE‘ NACH GET DIAG (1); ZAEHLER = ‚ZAEHLER
PERFORM VARYING TABIX FROM 1 BY 1 UNTIL TABIX > ZAEHLER
EXEC SQL
GET DIAGNOSTICS CONDITION :TABIX
:RETSTATE = RETURNED_SQLSTATE
, :RETSQLC = DB2_RETURNED_SQLCODE
, :RETROWN = DB2_ROW_NUMBER
END-EXEC
DISPLAY SQLCODE‘ NACH GET DIAG (2); ‚
‚SATZNR ‚ TABIX ‚, RETSTATE: ‚ RETSTATE
‚, RETSQLC: ‚ RETSQLC
‚, RETROWN: ‚ RETROWN
END-PERFORM
You must be logged in to reply to this topic.
