Wie wär's damit?
Nachem MyDec in Int übernommen wurde steht in Alpha1: 00C5F0

PHP-Code:
D MyDec           S              7P 0 inz(50672)              
                                                              
D DSHex           DS                                          
D   Int                         10I 0                         
D   Alpha                        4A   Overlay(Int)            
D    Alpha1                      3A   Overlay(Alpha: 2)       

 /Free
     Int = MyDec;
     *InLR = *On;
 /End-Free 
Birgitta