*c32 %;slink % codbc.obj
identification division.
environment division.
data division.
working-storage section.
77 dstat pic 9(5).
01 name pic x(10).
01 nummer pic 9(5).
01 feld pic x(200).
01 cnt pic 99.
procedure division.
*
* Einloggen in die Datenbank:
* Computer: keine Angabe --> Local Host
* Servicename: sql
* Username: scott
* Passwort: Tiger
*
call setenv using 'CDBNAME' ':sql:scott:tiger'.
*
* Absetzen SQL-Staement mit Fetch.
*
call dbstatf using dstat 'select * from pers' nummer name.
*
* Statusfeld überprüfen
*
if dstat not = 0 go to fehler.
loop.
*
* Daten anzeigen
*
send nummer ' ' name.
*
* nächsten Satz lesen
*
call dbfetch using dstat.
*
* Statusfeld überprüfen
*
if dstat not = 0 go to fehler.
*
* Zähler hochsetzen
*
compute cnt = cnt + 1.
*
* Dieses Programm soll nur 20 Datensätze anzeigen
*
if cnt < 20 go to loop.
*
* Auf eine Tastatur-Eingabe warten
*
call getchar using feld.
stop run.
fehler.
*
* Ein Statusfehler ist aufgetreten bzw. das Ende der Tabelle
* wurde erreicht.
*
SEND USING '24:1"Status "S#' dstat.
*
* Original Fehlermeldung holen
*
call dberr using feld.
*
* Messagebox mit Fehlertext anzeigen
*
CALL MBOX USING NAME 2 'Error' FELD.
Home
