Mein letztendliches Ziel ist es, eine packed Zahl auszulesen.
Code:
D $$_Var        S            100A   Based(Pointereins)
D Feld5          S                5P 0 Based(pointer)
D AFeld5        S                3A
Code:
c                   eval      AFeld5 =  %subst($$_Var:1:byteleng)
c                   eval      pointer = %addr(AFeld5)
So bekomme ich den Wert in mein Feld5. Das funktioniert auch super.
Aber ich würde mir gerne sparen, für jede Größe ein einzelnes Feld zu definieren.