GET DIAGNOSTICS
- Dieses Thema hat 1 Antwort und 1 Teilnehmer, und wurde zuletzt aktualisiert vor 14 Jahre, 11 Monaten von
Anonym.
-
AuthorPosts
-
20. Juni 2007 um 8:13 Uhr #2782
AnonymInaktivWir wollen unser zentrales Fehlerbehandlungsprogramm auf GET DIAGNOSTICS umstellen. Hat jemand bereits ein COBOL-Beispielprogramm, in dem GET DIAGNOSTICS verwendet wird?
Danke. Lutz.
17. Oktober 2008 um 13:45 Uhr #3169
AnonymInaktivmal was ganz einfaches für den Fehlerfall:
EXEC SQL
GET DIAGNOSTICS :ZAEHLER = NUMBER
END-EXECDISPLAY 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-EXECDISPLAY SQLCODE‘ NACH GET DIAG (2); ‚
‚SATZNR ‚ TABIX ‚, RETSTATE: ‚ RETSTATE
‚, RETSQLC: ‚ RETSQLC
‚, RETROWN: ‚ RETROWNEND-PERFORM
-
AuthorPosts
You must be logged in to reply to this topic.