Inhalt Variable Wert zuweisen

[Fuerchau]

Was versuchst du mir damit zu zeigen ?
Was erreichst du damit, die Datei zu öffnen ?

Mit C-Routinen kannst du eine DSPF natürlich auch verarbeiten, dies hilft jedoch immer noch nicht dem übergeordneten Programm, wenn du keine defiierte Übergabestruktur zwischen den Programmen hast.

Eine Datei (egal wieviele Formate bei DSPF/PRTF) hat intern nur genau einen einzigen Puffer, der je nach gewünschtem Format aufzubauen ist.
Dies leistet RPG automatisch durch den Compiler, da ja (wie gesagt) die Adressen der Variablen im RPG-Programm überhaupt nichts mit der tatsächlichen Pufferposition zu tun haben.

Hinzukommt ja noch, dass bei einer DSPF der Ausgabepuffer eines Satzformates anders aufgebaut ist, als der Eingabepuffer !
Enthält ein Format O-Felder (also reine Ausgabe) so sind diese zwar im Ausgabe- jedoch nicht im Eingabeformat enthalten.

Kodierst du ein WRITE FMT wird durch den Compiler halt der benötigte Code generiert um die Daten zusammenzubauen, kodierst du ein READ FMT, werden die Daten wieder zerpflückt.
Kodierst du ein EXFMT wird der intern in WRITE und READ aufgelöst.

Fazit:
Die Speicheradressen deiner Variablen im Programm haben überhaupt nichts mit der Pufferposition der geöffneten Datei zu tun!

[woodstock99]

Nein wollte nur demonstrieren das es Programme gibt die den Wert eines Buffers auslesen und ausgeben. Aber das hätte ich Dir eigentlich ja nicht zu erzählen brauchen den das weißt du ja sowieso.

Hab mir halt gedacht das ich mir über die beschriebenen Apis der IBM das Ganze realisieren kann.
1:
Api 1
Feldnamen holen.
2:
Api 2 Buffer holen
3:
Serviceprogramm informationen verarbeiten (Buffer überschreiben).

Aber wie du es ja beschrieben hast scheint dies nicht zu funktionieren

[Fuerchau]

Also das mit den API's ist mir persönlich nun mal nicht so ganz unbekannt .

Ich habe mir früher mal die Mühe gemacht, MI-Code zu verstehen (daher biete ich ja auf meiner Seite auch einen MI-Compiler an, der in MI geschrieben ist).

Um zu verstehen, was RPG da so treibt, kannst du ein Programm (nur RPG, nicht ILERPG) mit CRTRPGPGM ... OPTION(*SRCDBG) GENOPT(*LIST) umwandeln.

In der MI-Ausgabe kannst du dann mal nach EXFMT suchen und analysieren, was der Compiler da so treibt.

Zuerst werden da ein paar Hilfsvariablen gefüllt und anschliessend per CALLI (entspricht EXSR) eine Unterroutine gefüllt.
In dieser Unterrouten siehst du dann die einzelnen CPY-Befehle:
CPYBLA .BUFFER(0001:0001),*IN30
CPYBLA .BUFFER(0002:0001),DAFIRM
:

Für die Leseroutine ist das dann analog generiert.

Die Felddefinitionen werden vom Compiler in der Reihenfolge ihrer Verwendung definert. Suche mal in der Liste nach "ZFLDSTRT":

DCL DD DSHENX CHAR (0010) INIT((0010)' ')
DCL DD DSHENR PKD (08,0) INIT(P'0')
DCL DD DSSTAP CHAR (0001) INIT((0001)' ')
DCL DD DSMATC CHAR (0010) INIT((0010)' ')
DCL DD DSNAME CHAR (0030) INIT((0030)' ')
DCL DD DSBRAN CHAR (0030) INIT((0030)' ')
DCL DD DSSTRA CHAR (0030) INIT((0030)' ')
:
:

Nur Strukturen, also DS, sind tatsächlich korrekt in der Folge definiert und auch als solche erkennbar.

DCL DD EXFIWK CHAR(0170) /*ZDATAS*/
INIT /*ZDSINITS*/
DCL DD DAFIRM CHAR (0001) DEF(EXFIWK) POS(0001)
/*ZDSDEF*/
INIT( <0001! >)
DCL DD DAWKNR CHAR (0003) DEF(EXFIWK) POS(0002)
/*ZDSDEF*/
INIT((0003)<0001! >)
DCL DD DAFINA CHAR (0030) DEF(EXFIWK) POS(0005)
/*ZDSDEF*/
INIT((0030)<0001! >)
DCL DD DAWKNA CHAR (0030) DEF(EXFIWK) POS(0035)
/*ZDSDEF*/

Ich hoffe, du kannst nun meiner Argumentation folgen.