QRPGSRC in RPG verarbeiten

[holly]

Hi,
vorher :
OVRDBF QRPGSRC MYLIB/QRPGSRC MBR(MYMEMBER)
Gruß Holger

[Fuerchau]

Definiere die Datei als extern beschriebene Datei mit USROPN (oder UC).
Mach den OVRDBF (wie oben beschrieben, bzw. den hast du ja wohl sowieso) und öffne die Datei.
Natürlich bist du auf die fixe Satzlänge beschränkt.

[RobertMack]

Hallo Peter,

Falls Du bei interner Beschreibung bleiben willst:

FSRC IF F 92 DISK UC

ISRC KF
I 1 6 2 SRCSEQ
I 7 12 0 SRCDAT
I 13 92 SRCDTA

C OPEN SRC
C READ SRC
C CLOSE SRC

Falls Du die Quelle verändern willst (z.B. Codezeilen einfügen), sollte die Datei (CRTSRCPF) mit ACCPTH(*KEYED) erstellt sein,

Gruß

Robert

[peter.kinne]

Vielen Dank erst einmal für die schnellen Tipps.

Peter

[Fuerchau]

SRCPF's haben keinen Schlüssel ! Was soll also *KEYED ?

Einfügen von Sätzen geht nur (wie beim SEU) über eine Kopie der Teildatei mit Löschen der Alten und umbenennen der Neuen in die Alte.

[RobertMack]

DSPFD-Befehlseingabe
Datei . . . . . . . . . . . . . . . . . . . : FILE QKEYSRC
Bibliothek . . . . . . . . . . . . . . . : RMA
Art der Information . . . . . . . . . . . . : TYPE *ALL
Dateiattribute . . . . . . . . . . . . . . : FILEATR *ALL
System . . . . . . . . . . . . . . . . . . : SYSTEM *LCL
Kopfzeile der Dateibeschreibung
Datei . . . . . . . . . . . . . . . . . . . : FILE QKEYSRC
Bibliothek . . . . . . . . . . . . . . . . : RMA
Dateiart . . . . . . . . . . . . . . . . . : Physisch
Dateiart . . . . . . . . . . . . . . . . . : FILETYPE *SRC

u.s.w.

Anzahl der Schlüsselfelder . . . . . . . . : 1
Satzformat . . . . . . . . . . . . . . . . : QKEYSRC
Schlüsselfelder . . . . . . . . . . . . . : SRCSEQ
Reihenfolge . . . . . . . . . . . . . . : Aufsteigend
Vorzeichen angegeben . . . . . . . . . : UNSIGNED
Zone/Ziffer angegeben . . . . . . . . . : *NONE
Alternative Sortierfolge . . . . . . . : Nein

u.s.w.