Code: Alles auswählen.
*-- Variablen
DATA: hex TYPE x,
len TYPE i,
txt(100).
FIELD-SYMBOLS <f>.
*-- Selektionsbild
*-- Eingabe des Textes, der in hex angezeigt werden soll
PARAMETERS: klartext(100) LOWER CASE DEFAULT 'TEST'.
START-OF-SELECTION.
*-- Der Text wird mit "SHIFT" bearbeitet, deswegen zwischenspeichern
txt = klartext.
*-- Länge des Textes ermitteln
len = strlen( txt ).
*-- Ausgabe des Klartextes
DO len TIMES.
ASSIGN txt(1) TO <f>.
WRITE: <f>, space NO-GAP.
SHIFT txt.
ENDDO.
NEW-LINE.
*-- Ausgabe der Zeichen im Hexdezimalformat
txt = klartext.
DO len TIMES.
ASSIGN txt(1) TO <f> TYPE 'X'.
WRITE: <f>.
SHIFT txt.
ENDDO.