Sichern Satzformat

[Zuther]

Hallo *all
Kann man den Satz auch in RPG-code sichern? Wenn ja, kann mir irgendjemand ein Beispiel-Code geben!

Vielen Dank für Euere Bemühungen!

[Fuerchau]

Das ist ebenso einfach, allerdings gibts dabei keine Hilfen.
Schau nach, wie lang dein Satzformat ist (DSPFD, DSPFFD) und definere einfach zwei DS:

IMYDS E DSFROMFILE
IMYSAVE DS 1 9999

9999 = Länge des Satzformates

Die erste Definition legt die Felder in eine DS (soweit du das nicht schon gemacht hast), die 2. Definition legt eine DS ohne Unterfelder an (gibt nur eine Compilerwarnung).
Eine DS lässt sich wie eine Variable ansprechen:

MOVELMYDS MYSAVE
MOVELMYSAVE MYDS

PS:
Eine DS (ggf. ohne Unterfelder) ist übrigens die einzige Möglichkeit, Variablen > 256 Stellen (max. 9999) zu definieren.

[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