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.
