Oder so:
Code:
D HEX3            S              3A              
D HEX4            DS                             
D  NUM                          10I 0 INZ(50672) 
D                                                
C                   MOVE      HEX4          HEX3 
C                   MOVE      *ON           *INLR