..wenn RPG:
D WORK DS
D #G020 1 2B 0
Definiere mindestens eine 2-stellige Datenstruktur mit unterdefiniertem Binärfeld. Initiiere "WORK" mit *LOVAL. Übertrage Hex-Wert rechtsbündig nach "WORK". Anschließend kann mit #G020 jede beliebige für numerische Felder zulässige Operation durchgeführt werden