QRPGSRC in RPG verarbeiten

[peter.kinne]

Hallo zusammen,

ich habe etwas aus der "Steinzeit".

Ich muß die Quellendatei QRPGSRC für ein bestimmtes Member lesen und dann was machen (nix dolles).

Ich habe die Datei inter im RPG-Programm mit einer sartzlänge von 112 Byte beschrieben. Nun lese ich, bekomme aber nich in den Buffer.

Für die datei habe ich auch noch "I"-karten mit dne Feldern.

Aber ich kriege nix zu sehen.

Oder gibt es eine bessere Möglichkeit vatriabel Teildateien in RPG zu verarzten.

Hat jemand einen Tipp,

Peter

[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.

[BenderD]

Hallo Peter,

wenn Dir ein Beispiel hilft, da gibt es ein paar kleine Generatoren auf meiner Freeware und Open Source Page www.bender-dv.de ...

mfg

Dieter Bender

PS: in Frankreich war es schöner als hier und der vin rouge war auch besser...

Hallo zusammen,

ich habe etwas aus der "Steinzeit".

Ich muß die Quellendatei QRPGSRC für ein bestimmtes Member lesen und dann was machen (nix dolles).

Ich habe die Datei inter im RPG-Programm mit einer sartzlänge von 112 Byte beschrieben. Nun lese ich, bekomme aber nich in den Buffer.

Für die datei habe ich auch noch "I"-karten mit dne Feldern.

Aber ich kriege nix zu sehen.

Oder gibt es eine bessere Möglichkeit vatriabel Teildateien in RPG zu verarzten.

Hat jemand einen Tipp,

Peter

[Peter Kosel]

@Dieter Bender,

Hallo Dieter weil hier nun so ein bescheidenes Wetter ist, werde ich genau dort hin fahren - morgen...
;-))

Ich konnte mir diesen Kommentar einfach nicht verkneifen...