Hallo,

Du definiertst einfach ein Feld mit 3I 0, 5I 0, 10I 0 oder 20I 0 und schiebst die gepackten Werte darein. Eventuell kannst Du das Integerfeld in einer Datenstruktur hinterlegen und durch ein Alpha-Feld überlagern:

PHP-Code:
D MyPack          S              9P 0 inz(123456)  
       
D DSInt           DS                                      
D   MyChar                       4A                       
D   MyInt                       10I 0 Overlay(MyChar)     
 /Free
   MyInt = MyPack;
   Dsply MyChar;
   *InLR = *On;
 /End-Free 
Birgitta