Eben deswegen die HilfsDS.
Gepackte Felder haben immer eine ungerade Anzahl Stellen, auch wenn man gerade Anzahl definiert hat.
Definiere ich nun ein Hilfsfeld von 31p 0, kann ich per %subst das Feld aus der DS rechtsbündig in das Hilfsfeld übertragen, dabei muss ich natürlich nach vorne mit X'00' auffüllen:

evalr NumDs = HelpX + %subst(MyDs:Pos:Len)

Zur Ausgabe kann ich dann per %char(NumFld) den Wert aufbereiten.