Die Felder als Integer zu definieren ist besser, da Integer intern nicht in gepackt konvertiert wird!

PHP-Code:
D DSDATUM         DS                                           
D   Datum                                                      
D     Jahr                       3U 0 Overlay(Datum)           
D     Monat                      3U 0 Overlay(Datum: *Next)    
D     Tag                        3U 0 Overlay(Datum: *Next)  
 /Free
    Jahr = 10;
    Monat = 1;
    Tag =  29;
    //--> Datum ist 3A und enthält x'0A011D'
 /End-Free 
Birgitta