-
Das sind nun doch 2 verschiedene Paar Schuhe.
Subfile sind normale Read/Write/Rewrite-Befehle, SQL wird per EXEC SQL wie in RPG auch eingeleitet.
Subfile:
read subfile filename Format "Format"
invalid key
:
end-read
write subfile filename Format "Format"
invalid key
:
end-write
rewrite subfile filename Format "Format"
invalid key
:
end-rewrite
read subfile filename next modified Format "Format"
at end
:
end-read
Das Schlüsselwort "subfile" ist hier entscheidend, ansonsten wird die Subfile wie eine Random-Datei mit Relative-Key verarbeitet.
SQL ist wenig komplizierter.
Da in COBOL nicht alle Felder automatisch für SQL zur Verfügung stehen, muss man diese für SQL verfügbar machen:
exec SQL begin declare section
end-exec
77 ...
01 ...
exec SQL end declare section
end-exec
Diese Gruppe von Anweisung darf beliebig oft in der "Working-Storage Section" oder auch "Linkage Section" wiederholt werden.
Ab der "Procedure Division" folgen dann die SQL-Anweisungen:
exec SQL set Option ....
end-exec
exec SQL declare blabla Cursor for select * from myfile where key = : MyKey
end-exec
exec SQL open blabla end-exec
exec SQL fetch blabla into : F1, : F2, ....
end-exec
exec SQL Close blabla end-exec
SQLCA und SQLCODE stehen automatisch zur Verfügung.
Similar Threads
-
By AK1 in forum NEWSboard Programmierung
Antworten: 1
Letzter Beitrag: 02-12-15, 16:54
-
By Creedem in forum NEWSboard Programmierung
Antworten: 2
Letzter Beitrag: 19-05-15, 10:21
-
By AK1 in forum NEWSboard Programmierung
Antworten: 2
Letzter Beitrag: 17-07-14, 09:23
-
By malzusrex in forum NEWSboard Programmierung
Antworten: 2
Letzter Beitrag: 16-07-14, 15:04
-
By brittner in forum NEWSboard Programmierung
Antworten: 4
Letzter Beitrag: 18-11-13, 15:24
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks