Hallo zusammen, danke für eure Tips.
habe es jetzt so gelöst, dass ich den ersten Trigger auf ein AlphaFeld mappe, den Substring in ein neues Alphafeld schiebe, darauf einen neuen Pointer setze und den als Basis für ein packed Feld nehme.
D newpointer S *
D APacked8 S 5A
D Packed8 S 8P 0 Based(newpointer)
c eval APacked8 = %subst($$_Var:1:byteleng)
c eval newpointer = %addr(APacked8)