Schreiben in die Datenbank
1. Erstellen der db-Datei gebiet.db:
Table gebiet
M geb_key 99
geb_ums 9(6)V99
geb_typ 9(5)
geb_text X(50)
2. Anlegen der Tabelle - Eingabeaufforderung
set CDBNAME=:sql:scott:tiger
odefisdb gebiet.db
3. Programm dbgeb ausführen
*c32 %;slink dbgeb codbc.obj
identification division.
environment division.
select fgeb assign 'gebiet.is' access dynamic
record key g-num
organization indexed file status s-geb.
data division.
fd fgeb data record rgeb.
01 rgeb.
02 g-num PIC 99.
02 g-ums PIC 9(6)V99.
02 g-typ PIC 9(5).
02 g-txt PIC X(50).
working-storage section.
01 s-geb pic 9(5).
procedure division.
open i-o fgeb.
if s-geb not = 0 go to fehler.
move 1 to g-num.
move 1 to g-typ.
move 'Test' to g-txt.
write rgeb invalid go to fehler.
close fgeb.
stop run.
fehler.
display 'fehler status ' s-geb.
call getchar using s-geb.
Ergebnis:
Home
