RPG Zyklusfrei - Felder initialisieren

[BenderD]

Gibt es keine Möglichkeit, bei Beendigung der Main Procedure das Programm aus dem Speicher rauszubekommen?

ACTGRP(*NEW) ist eine naheliegende Möglichkeit.
Ansonsten gilt immer: lokale Variablen für alle nicht Zustands behafteten Variablen bevorzugen.
Legt man alle Zustandsvariablen in eine (qualified, versteht sich) Datenstruktur (ich nenne die analog zu Java this) kann man diese mit einer einzigen Anweisung reinitialisieren und man kann auch einfach sowas ähnliches wie Mehrfach Aktivierung programmieren.

D*B

[mgraskamp]

ACTGRP(*NEW) hatte ich auch schon überlegt. Allerdings fehlte mit der Parameter im Befehl CRTSQLRPGI. Habe das jetzt aber in die Control-Options geschrieben und dann funktioniert es. Das Programm wird nicht so oft aufgerufen, da kann ruhig jedesmal eine neue Actgrp geöffnet werden.

[ExAzubi]

Kannst du im PGM bei den SQL Options mit angeben:

 C/EXEC SQL                         
 C+ SET OPTION                      
 C+ COMPILEOPT = 'ACTGRP(*NEW)'     
 C/END-EXEC

[mihael]

Standard RPG Compile Options kann man auch and den Befehl CRTSQLRPGI übergeben. Dafür ist der Parameter COMPILEOPT da.

Zum Bespiel:

CRTSQLRPGI ... COMPILEOPT('DFTACTGRP(*NO) ACTGRP(*CALLER) INCDIR(''/usr/local/include'') OPTION(*SRCSTMT *NODEBUGIO) OPTIMIZE(*BASIC)')

[Radinator]

Nur mal so gefragt, hilft da auch kein inz(*zero) bzw *inz(*blanks)?

[Fuerchau]

Leider nein.
Inz ist eine Initialisierung die bei der Speicherbelegung ausgeführt wrd.
Das selbe gilt dann für Clear.
Einzig die Existenz einer *INZSR (auch verdeckt) sorgt automatisch dafür, dass der Compiler für jede Reset-Anwesiung eine Kopie mit dem Initwert des Feldes/der Struktur generiert.
Ansonsten wirkt Reset da wohl wie Clear.

Wenn du allerdings mittls NoMain eine Prozedur verwendest, dann wird nicht mehr static, sondern automatic storage belegt. Einzig Variablen, die vor der 1. Prozedur definiert sind, bleiben static.

https://www.itjungle.com/2008/08/27/fhg082708-story01/