Warum verwendest Du nicht wie gehabt OVERLAY?
Pos benötigts Du nur wenn Du eine komplette Daten-Struktur überlagern willst.
Für das Überlagern von einzelnen Feldern kann weiterhin OVERLAY verwendet werden:

Code:
 DCL-DS *N;
   Satz     Char(128) Dim(9999);
      ArtNr Char(10)  Overlay(Satz: *Next);
      AVK01 Packed(9) Overlay(Satz: *Next);
    .... usw.
 END-DS;
Birgitta