Inhaltsverzeichnis

INITIALIZE Statement

Für Syntax siehe hier.

Beispiele

INITIALIZE auf Elementarfelder:

  1. *
  2. 01 LOKALE-VARIABLE.
  3. 05 ZWISCHENWERTE.
  4. ...
  5. 10 ZW-SUCH-PT PIC X(10).
  6. ...
  7. 10 L-MAX-ID PIC 9(11) COMP.
  8. 10 L-MAX-BETRAG PIC S9(10)V9(5) COMP.
  9. ...
  10. 05 INDICES.
  11. 10 INDEX-SNLPRIS PIC S9(09) COMP.
  12. ...
  13. M11-3-SICHERN-DIFF SECTION.
  14. *-------------------------------------------------------------
  15. ...
  16. INITIALIZE ZW-SUCH-PT
  17. INITIALIZE L-MAX-ID
  18. INITIALIZE L-MAX-BETRAG
  19. INITIALIZE INDEX-SNLPRIS
  20. ...
  21. EXIT.
// M 1 1 3 S i c h e r n D i f f
// -----------------------------
private void M113SichernDiff()
{
...
	ZwSuchPt = String.Empty;
	LMaxId = 0;
	LMaxBetrag = 0.0;
	IndexSnlpris = 0;
...
}

INITIALIZE auf Gruppenstufe:

  1. *
  2. 01 LOKALE-VARIABLE.
  3. ...
  4. 05 VERTEILUNGS-DATEN.
  5. ...
  6. 10 L-N-VERTEIL-REC.
  7. 15 L-N-VERTEIL-VST-WRT PIC S9(10)V9(5) COMP.
  8. 15 L-N-VERTEIL-FSST-WRT PIC S9(10)V9(5) COMP.
  9. 15 L-N-VERTEIL-JRATZ-WRT PIC S9(10)V9(5) COMP.
  10. 15 L-N-VERTEIL-ZINSTAGE PIC S9(10).
  11. 15 L-N-VERTEIL-RIS-ANZ PIC S9(5) COMP.
  12. 15 S-N-VERTEIL PIC X(3).
  13. 88 B-N-VERTEIL-NEIN VALUE 'NNN'.
  14. 88 B-N-VERTEIL-JA VALUE 'JJN'.
  15. 15 FILLER REDEFINES S-N-VERTEIL.
  16. 20 FILLER PIC X.
  17. 88 B-N-VERTEIL-VEV-NETPRAE VALUE 'J'.
  18. 20 FILLER PIC X.
  19. 88 B-N-VERTEIL-VEV-NULL VALUE 'J'.
  20. 20 FILLER PIC X.
  21. 88 B-N-VERTEIL-RIS-JPRAERZ VALUE 'J'.
  22. ...
  23. M03-0-VTL-VEV-INIT SECTION.
  24. *-------------------------------------------------------------
  25. ...
  26. INITIALIZE L-N-VERTEIL-REC
  27. ...
  28. EXIT.
// M 0 3 0 V t l V e v I n i t
// ---------------------------
private void M030VtlVevInit()
{
...
	LNVerteilRec.Initialize();
...
}

Sonderfälle

Überflüssige Gruppenstufen

Falls erkannt wird, dass eine Gruppenstufe überflüssig ist, werden die enthaltenen Elementarfelder bzw. Gruppenstufen bestückt:

  1. *
  2. 01 LOKALE-VARIABLEN.
  3. 05 ZWISCHENWERTE.
  4. 10 ZW-ZAHLWEISE PIC S9(02) COMP.
  5. 10 ZW-ZAHLWEISE-ALT PIC S9(02) COMP.
  6. 10 ZW-ZAHL-PERIOD PIC S9(02) COMP.
  7. 10 L-VEV-ID PIC 9(11).
  8. 10 W-VEV-ID PIC 9(11) VALUE 0.
  9. 10 LAST-VEG-VEIN-ID PIC 9(11).
  10. 10 MELDUNGS-TEXT PIC X(30).
  11. ...
  12. 05 TABELLE-SNLPPME OCCURS 50.
  13. 10 TAB-VEV-ID PIC 9(11).
  14. 10 TAB-BERECH-TYP PIC X(10).
  15. 10 TAB-FAELV-D0 PIC X(10).
  16. 10 TAB-FAELB-D0 PIC X(10).
  17. ...
  18. M97-VORLAUF SECTION.
  19. *-------------------------------------------------------------
  20. ...
  21. *-------------------------------------VARIABLEN INITIALISIEREN
  22. INITIALIZE LOKALE-VARIABLE
  23. ...
  24. EXIT.
  25. *
// M 7 9 V o r l a u f
// -------------------
private void M79Vorlauf()
{
...
	// -------------------------------------VARIABLEN INITIALISIEREN
	ZwZahlweise = 0;
	ZwZahlweiseAlt = 0;
	ZwZahlPeriod = 0;
	LVevId = 0;
	WVevId = 0;
	LastVegVeinId = 0;
	MeldungsText = String.Empty;
...
	TabelleSnlppme.Initialize();
...
}

Datumsfelder

Datenelemente, welche als Datumsfelder erkannt werden, werden mit DateTime.MinValue bestückt:

  1. *
  2. 01 LOKALE-VARIABLEN.
  3. ...
  4. 05 L-STAMM-D0.
  5. 10 L-STAMM-D0-JJJJ PIC 9(04).
  6. 10 FILLER PIC X(01).
  7. 10 L-STAMM-D0-MM PIC 9(02).
  8. 10 FILLER PIC X(01).
  9. 10 L-STAMM-D0-TT PIC 9(02).
  10. *
  11. 05 L-STAMM-ALT-D0.
  12. 10 L-STAMM-ALT-D0-JJJJ PIC 9(04).
  13. 10 FILLER PIC X(01).
  14. 10 L-STAMM-ALT-D0-MM PIC 9(02).
  15. 10 FILLER PIC X(01).
  16. 10 L-STAMM-ALT-D0-TT PIC 9(02).
  17. ...
  18. M97-VORLAUF SECTION.
  19. *-------------------------------------------------------------
  20. ...
  21. *-------------------------------------VARIABLEN INITIALISIEREN
  22. INITIALIZE LOKALE-VARIABLE
  23. ...
  24. EXIT.
  25. *
// M 7 9 V o r l a u f
// -------------------
private void M79Vorlauf()
{
...
	// -------------------------------------VARIABLEN INITIALISIEREN
...
	LStammD0 = DateTime.MinValue;
	LStammAltD0 = DateTime.MinValue;
...
}

boolesche Variable

Datenelemente, welche als boolesche Variable erkannt werden, werden mit false bestückt:

  1. *
  2. 01 LOKALE-VARIABLEN.
  3. ...
  4. 05 MARKER.
  5. 10 ZU-ERMITTELN-MARKER PIC X(01).
  6. 88 B-NICHT-ZU-ERMITTELN VALUE "N".
  7. 88 B-ZU-ERMITTELN VALUE "J".
  8. *
  9. 10 GEFUNDEN-MARKER PIC X(01).
  10. 88 B-NICHT-GEFUNDEN VALUE "N".
  11. 88 B-GEFUNDEN VALUE "J".
  12. ...
  13. M97-VORLAUF SECTION.
  14. *-------------------------------------------------------------
  15. ...
  16. *-------------------------------------VARIABLEN INITIALISIEREN
  17. INITIALIZE LOKALE-VARIABLE
  18. ...
  19. EXIT.
  20. *
// M 7 9 V o r l a u f
// -------------------
private void M79Vorlauf()
{
...
	// -------------------------------------VARIABLEN INITIALISIEREN
...
	BZuErmitteln = false;
	BGefunden = false;
...
}

enumerative Variable

Datenelemente, welche als enumerative Variable erkannt werden, werden mit deren Standardwert bestückt:

  1. *
  2. 01 LOKALE-VARIABLEN.
  3. ...
  4. 10 S-PFZR-VERHALTEN PIC X(04).
  5. 88 B-PFZR-EINGEGEBEN VALUE "EING".
  6. 88 B-PFZR-VORHAND-NICHT-GEAENDERT VALUE "NGEA".
  7. 88 B-PFZR-VORHAND-JETZT-GEAENDERT VALUE "JGEA".
  8. 88 B-PFZR-VORHAND-GELOESCHT VALUE "GELO".
  9. ...
  10. M97-VORLAUF SECTION.
  11. *-------------------------------------------------------------
  12. ...
  13. *-------------------------------------VARIABLEN INITIALISIEREN
  14. INITIALIZE LOKALE-VARIABLE
  15. ...
  16. EXIT.
  17. *
// M 7 9 V o r l a u f
// -------------------
private void M79Vorlauf()
{
...
	// -------------------------------------VARIABLEN INITIALISIEREN
...
	SPfzrVerhalten = PfzrVerhaltenEnum.PfzrEingegeben;
...
}

TODO Liste

Syntaktisch erkannt, aber von den Generatoren derzeit nicht unterstützt sind folgende Bestandteile: