RPG-Funktions-Tasten

[loeweadolf]

Hi, ich benutze in RPG-Programmen die Bestimmung von Funktions-Tasten über eine
hexadezimale Zuweisung in einer Tabelle, die als Copy-Strecke einkopiert wird.

Das heisst: ich kann direkt abfragen: "if key = F12" oder ähnlich.

Wie kann ich jedoch den KEY direkt im Programm einschalten oder ausschalten, ohne
ein Bildschirm-Format einlesen zu müssen. ??

[Fuerchau]

Nun dies musst du mal näher erläutern.
Im ersten Ansatz
key = F12;
Nun ist "key = F12" wahr.

[loeweadolf]

Genau das habe ich schon mal probiert, scheint aber nicht zu klappen.

Es werden danach immer noch Anweisungen ausgeführt, die abhängig sind von F12.
Erst als ich ein kleines Format ausgegeben habe und die DatFreigabe betätigt habe, ist F12 nicht mehr *ON.

[Fuerchau]

Die Frage ist hier, wo ist die Variable Key definiert?
Wenn diese in einer INFDS steckt wird diese bei jeder EA-Operation (auch write) aktualisiert (auch z.B. bei Subfiles) und somit dein geänderter Inhalt zerstört.
Eine INFDS sollte also nie geändert werden.

RPG hat ja die schönen *INKA bis *INKx.
Diese solltest du dir über eine DS redefinieren.
Dann reicht die Abfrage "if F12 = *on".
Machst du F12 = *off bleibt dieser Status bis zum nächsten Read erhalten.

[loeweadolf]

Danke für die Antwort.
Ich habe inzwischen eine andere Lösung gefunden ohne F12 an- oder auszusetzen.
Ich werde mir aber dein Beispiel merken (zur Seite legen), falls ich das mal brauchen kann.