Ich hoffe, dass Du die Datenstruktur im Free-Format etwa so:
Code:
DCL-DS  DS01  Inz;
  Satz             Dim(5);
    DS01ArtN       Zoned(8)    Overlay(Satz);
    DS01LinNr      Zoned(8)    Overlay(Satz: *Next);
    DS01LaNr       Char(25)    Overlay(Satz: *Next);
    DS01AeDt       Zoned(8)    Overlay(Satz: *Next);
End-DS;
oder zumindest im fixen Format ohne die Von-/Bis-Angaben definiert hast.