Inhalt Variable Wert zuweisen

[woodstock99]

Hallo Miteinander,

In meiner Variablen steht z.b. der Wert
'Feld1'.

Dieser Wert stellt wiederrum einen Variablennamen dar.

Ist es in RPG möglich den Wert einer Variablen auszulesen ( in diesem Beipiel wäre das Feld1) und diesem Inhalt Feld1 was eine Variable darstellt einen Wert zuzuweisen??



das Thema wurde schon mal vor einiger Zeit hier diskutiert. Evtl hat sich seit der Zeit ja was getan...


Vielen dank im voraus..

[Fuerchau]

Geändert hat sich zur Zeit nichts.
Namen dienen nur dem Compiler und werden in Adressen übersetzt.
Kennst du die Adresse (%ADDR() zur Compilezeit), kannst du "dynamisch" mit Inhalten arbeiten.
Ansonten ist der "Name" zur Laufzeit unbekannt.

[woodstock99]

Ergo. Ich habe keine möglichkeit dem Feld1 einen Wert zuzuweisen oder??

Geht das evtl über API QUSLFLD (buffer position)

Offset		Type	Field
Dec	Hex
0	0	CHAR(10)	Field name
10	A	CHAR(1)	Data type
11	B	CHAR(1)	Use
12	C	BINARY(4)	Output buffer position
16	10	BINARY(4)	Input buffer position

Die Variablennamen meines Displayfiles werden erst zur Laufzeit über ein Api ermittelt.

[BenderD]

wenn du im Programm an den Buffer drankommst (sprich ihn addressieren kannst, dann reichen die Positionen, du holst dir einen Pointer auf die Buffer Variable, addierst den Offset drauf et voila.

D*B

der nicht ganz versteht wozu das eigentlich gut ist und meint, dass oft über Anwednungsdesign mehr zu holen ist...

Ergo. Ich habe keine möglichkeit dem Feld1 einen Wert zuzuweisen oder??

Geht das evtl über API QUSLFLD (buffer position)

Offset		Type	Field
Dec	Hex
0	0	CHAR(10)	Field name
10	A	CHAR(1)	Data type
11	B	CHAR(1)	Use
12	C	BINARY(4)	Output buffer position
16	10	BINARY(4)	Input buffer position

Die Variablennamen meines Displayfiles werden erst zur Laufzeit über ein Api ermittelt.

[woodstock99]

@ Bender.

wir setzten unsere Displayattribute über einen Variablennamen. Diese Variablennamen holen wir uns über ein APi. Diese müssen alle erst einmal initialisiert werden x:20 weil es sonst zu Fehlern bei der Setzung der Attribute kommt.


Wie soll man das sonst anstellen?
Wir wollen halt nicht jede Variable im RPG
per Hand initialisieren ...

[Fuerchau]

Nun ja, wenn du MI beherrschst, kannst du mittels DTAPTR (steht nur in MI zur Verfügung) eine Adresse mit Feldtyp und Ausprägung definieren und per MI-Befehl mittels CPYBLA o.ä. verarbeiten.

Ich denke aber, dass das nicht die Lösung sein kann.

Wenn du mit reinen Zeichenfeldern arbeitest kannst du ja per "%subst(MyFeld: pos: len)" variabel zugreifen.
Mit gezonten numerischen Felder klappt das auch noch, bei gepackten Felder stößt du auf ein Problem.
Binärfelder lassen sich noch per Zwischenfeld verarbeiten.

[woodstock99]

@ fuerchau..

?????????.
ich glaube wir reden leider aneinander vorbei.

siehe vorherige antwort..

[BenderD]

solange man ein File pro Displayfile hat, würde ich das von anderer Logik befreien (=> Design) und die Dinger aus den DDS Bestimmungen generieren - und fertig ist.
@Baldur: Substring von DS (intern binary data) und Pointer ist dasselbe. Die packed und int Klamotten kriegt man auch über Zwischenfelder da rein (am besten macht man sich da ein Service Programm mit entsprechenden Konvertierungen)

D*B

wir setzten unsere Displayattribute über einen Variablennamen. Diese müssen alle erst einmal initialisiert werden x:20 weil es sonst zu Fehlern bei der Setzung der Attribute kommt.

Wie soll man das sonst anstellen?
Wir wollen halt nicht jede Variable im RPG
per Hand initialisieren ...

[woodstock99]

wir haben halt mehrere Records,Windows usw in unserer Bildschirmmaske. Wir positionieren und z.b auch bei einer Fehlermeldung über ein Api auf das fehlerhafte Feld. Ziel dieser ganzen Aktion soll sein : Keine Bezugszahlen mehr und flexibilität z.b. ein Feld das Blau ist soll bei einem Fehler in Umkehranzeige dargestellt werden usw und das ganze ohne Bezugszahlen, denn 1347 Bezugzahlen im Programm macht das ganze nicht grad übersichtlicher .

[Fuerchau]

Nunja, so ist das halt mit der Programmierung.
Definiere alle Variablen für die Displayattribute an den Anfang des Satzformates.
Definiere je Satzformat eine eigene Struktur (DS).
Dann kannst du per
eval %subst(MyDs: 1: Len) = *allx'20';
die Attribute zuweisen.
Du kannst auch
- ein Array anlegen: MyArr 1 dim(nn)
- die Felder in der I-Anweisung umbenennen
- mit eval MyArr = x'20' zuweisen

Aber alles das geht ja eigentlich am Thema vorbei.
Denn auch mit einem API musst du ja irgendwo die Feldnamen übergeben, da ist es doch einfacher in einer *INZSR die Felder zu initialisieren als extra Code zu schreiben der fehleranfälliger wird.

[Fuerchau]

Das kann doch nur die jeweilige Anwendung selber entscheiden.
Ich würde dem eigenen API eben das Attributfeld auch als Parameter übergeben.

[woodstock99]

"Das kann doch nur die jeweilige Anwendung selber entscheiden." ???

Ich muß gestehen der Zug rollt grad bei mir ein. Soll heissen ich versteh nur Bahnhof .

Wie mit übergeben?
Das Problem ich ja das der Feldname in einer Variablen steht.
Ich muß ja an die Adresse des Feldnamens kommen und ich denke mal des dies über das Api

QUSLFLD (buffer position)

Offset		Type	Field
Dec	Hex
0	0	CHAR(10)	Field name
10	A	CHAR(1)	Data type
11	B	CHAR(1)	Use
12	C	BINARY(4)	Output buffer position
16	10	BINARY(4)	Input buffer position

realisiert werden kann oder bin ich jetzt im Augenblick nur noch verwirrt..