Code:
                     
D MyDsSort        DS                  qualified  INZ                             
D   MyFldgr                           DIM(999)                                
D     QQKST1                     5  0 Overlay(MyFldgr)                        
D     QQKST2                     4  0 Overlay(MyFldgr: *Next)                 
D     QQTEXT                    10    Overlay(MyFldgr: *Next)                 
D     QQFINR                     2  0 Overlay(MyFldgr: *Next)                 
D     QQPENR                     4  0 Overlay(MyFldgr: *Next)
Du musst die Datenstruktur initialisieren!!!
Entweder durch ein INZ in der Definition oder ein CLEAR auf die Datenstruktur vor dem Befüllen.
Sonst stehen in den numerischen Feldern *Blanks drin!