Sichern Satzformat

[Zuther]

Hallo Herr Fürchau,

vielen Dank für Ihre schnelle Nachricht! ich habe dies auch sofort ausprobiert. Leider bekomme ich einen Dezimaldatenfehler. Kann es sein dass gepackte Felder nicht verarbeitet werden?
mfg
Zuther Hans

[B.Hauser]

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.

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 

[Fuerchau]

@Birgitta
Dazu müsste aber das Programm auf ILE erst umgestellt werden.
Es gibt eben noch alte RPG-Programme

@Zuther
Beachte genau was du tust.
Der MOVE überträgt die gesamte DS unabhängig vom Inhalt.

Beim Hin- und Hermoven musst du
a) immer den selben MOVE oder MOVEL nehmen
b) die Größe der DS sollte natürlich stimmen und alles aufnehmen können