Hallo Ludger,

wenn Du Dateien in RPG mittels SQL-Verarbeiten willst, musst Du folgende Schritte durchfürhren.
1. Cursor deklarieren
2. Cursor öffnen
3. Daten einlesen
--> erst jetzt wird der SQLCOD gesetzt
4. Cursor schliessen

Statisches SQL:
C/EXEC SQL
C+ Declare $SQLC1 Cursor for
C+ Select ......
C/END-EXEC

C/EXEC SQL
C+ Open $SQLC1
C/END-EXEC

C do *Hival
C/EXEC SQL
C+ Fetch $SQLC1 into SSQL
C/END-EXEC

C if SQLCOD = 100 last Record
C leave
C endif
* C if SQLCOD < 0 Fehler
C eval $Error = 1 Fehler
C leave
C endif

Verarbeitung

C enddo
C/EXEC SQL
C+ Close $SQLC1
C/END-EXEC

B.Hauser