Hallo,

einfacher ist es eine Datenstruktur entweder über das Schlüssel-Wort LIKEREC oder als externe Datenstruktur zu definieren.

Beim Read oder Chain den Datensatz dann direkt in die Datenstruktur ausgeben. (Der eingelesene Satz kann verändert werden und beim Update wird die Datenstruktur ebenfalls im Update-Statement angegeben.)
... Das Ganze funktioniert bereits seit Release V5R2.

PHP-Code:
FMyFileP   IF   E           K DISK    

D DSMyFileP       DS                  LikeRec(MyFileF)                
D DSMyFilePx    E DS                  ExtName(MyFileP) Qualified      
 /Free
    Read MyFileF DSMyFileP;
    Read MyFileF DSMyFilePx;
    Dsply DSMyFileP.Fld1;
    Dsply DSMyFilePx.Fld1;
    *INLR = *ON;
 /End-Free