F-Taste in Meldung mit anzeigen aus Informationsdatenstruktur / HexWert übersetzung

[KM]

Wie wär's mit einer Copy-Strecke, in der Du alle Codes in den D-Spezifikationen erfasst. Diese kannst Du in jedes betreffende Programm einbinden. Zum Beispiel mit folgenden Einträgen:

D ENTER S 1 INZ(X'F1')
D F1 S 1 INZ(X'31')
D F2 S 1 INZ(X'32')
usw.

So machen wir das zumindest.

Gruß,
KM

[Fuerchau]

Dazu benötigst du eine Tabelle:

D MyKeys 11 dim(xx)
d MyHex 1 overlay(MyKeys:1)
d MyText 10 overlay(MyKeys:2)

Diese Tabelle füllst du mit den Hexwerten korrespondierend zu den Klartexten,
dann brauchst du tatsächlich nur noch eine Befehl:

Text = MyText(%lokup(w#fkey:myhex));

Voraussetzung ist allerdings, dass auch tatsächlich alle Hexcodes in der Tabelle vorkommen, da es sonst einen 0-Index geben kann.