Frage:
Ich versuche, das folgende Programm zu debuggen, aber außer dem Feld SLSMN# haben alle Felder meiner Datenstruktur SLSMNDS keinen Inhalt. In der Datei befinden sich jedoch definitiv Werte. Warum werden die Felder als leer ausgewiesen?

     FSLSMN     IF   E           K DISK
     D SlsMnDs       E DS                  EXTNAME(SLSMN)
     D SaveSlsMn#      s                   like(SlsMn#)
      /Free
           Setll *Loval RSlsmn;
           Read  RSlsmn;
           Dow Not %Eof (Slsmn);
               EVAL SaveSlsMn# = SlsMn#;
               Read  RSlsmn;
           Enddo;
           *Inlr = *On;
      /End-Free

Antwort:
RPG lädt, um die Performance des Programms zu verbessern, nur diejenigen Felder, die im Programm auch tatsächlich verwendet werden. In Ihrem Programm ist SLSMN# das einzige benutzte Feld und somit auch das einzige Feld, das RPG in den Speicher lädt.

Würden Sie das EVAL Statement aus Ihrem Programm entfernen, würde im Programm keines der Felder verwendet werden und der Debugger würde alle Felder als leer ausweisen.

Ähnliche Artikel:

64-Bit Integerzahlen in CL

Bei dem Auswerten numerischer Nachrichteninformationen in CL stolpert man manchmal über eigentümliche Zahlenwerte oder sogar Laufzeitfehler, die man sich zunächst nicht erklären kann. In diesem Fall sollte man zunächst einen…

Dauerhafte RPGUmwandlungsoptionen per/COPY

IBM ist redlich bemüht bei der Weiterentwicklung von RPG rückwärtskompatibel zu alten Compilerversionen zu bleiben. Dies ist zweifelsohne eine der größten Stärken von RPG, gleichzeitig aber auch ein wesentlicher Schwachpunkt.

Funktions- und Action-Tasten variabel steuern ohne…

Es gilt wie immer: „Klein und mit wenig Aufwand große Effekte erzielen.“ Einige Möglichkeiten schlummern sozusagen im Verborgenen. Teilweise ist nur das richtige Kombinieren oder die richtige Abfragen notwendig, um…