INITIALIZE Statement

Für Syntax siehe hier.

INITIALIZE auf Elementarfelder:

      *
       01 LOKALE-VARIABLE.
          05 ZWISCHENWERTE.
...
           10 ZW-SUCH-PT               PIC X(10).
...
           10 L-MAX-ID                 PIC 9(11)       COMP.
           10 L-MAX-BETRAG             PIC S9(10)V9(5) COMP.
...
          05 INDICES.
           10  INDEX-SNLPRIS           PIC  S9(09) COMP.
...
       M11-3-SICHERN-DIFF SECTION.
      *-------------------------------------------------------------
...
           INITIALIZE ZW-SUCH-PT
           INITIALIZE L-MAX-ID
           INITIALIZE L-MAX-BETRAG
           INITIALIZE INDEX-SNLPRIS
...
           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:

      *
       01 LOKALE-VARIABLE.
...
           05  VERTEILUNGS-DATEN.
...
               10  L-N-VERTEIL-REC.
                   15  L-N-VERTEIL-VST-WRT     PIC S9(10)V9(5) COMP.
                   15  L-N-VERTEIL-FSST-WRT    PIC S9(10)V9(5) COMP.
                   15  L-N-VERTEIL-JRATZ-WRT   PIC S9(10)V9(5) COMP.
                   15  L-N-VERTEIL-ZINSTAGE    PIC S9(10).
                   15  L-N-VERTEIL-RIS-ANZ     PIC S9(5) COMP.
                   15  S-N-VERTEIL             PIC X(3).
                       88  B-N-VERTEIL-NEIN        VALUE 'NNN'.
                       88  B-N-VERTEIL-JA          VALUE 'JJN'.
                   15  FILLER REDEFINES S-N-VERTEIL.
                       20  FILLER              PIC X.
                           88  B-N-VERTEIL-VEV-NETPRAE VALUE 'J'.
                       20  FILLER              PIC X.
                           88  B-N-VERTEIL-VEV-NULL    VALUE 'J'.
                       20  FILLER              PIC X.
                           88  B-N-VERTEIL-RIS-JPRAERZ VALUE 'J'.
...
       M03-0-VTL-VEV-INIT SECTION.
      *-------------------------------------------------------------
...
           INITIALIZE L-N-VERTEIL-REC
...
           EXIT.

// M 0 3 0 V t l V e v I n i t
// ---------------------------
private void M030VtlVevInit()
{
...
	LNVerteilRec.Initialize();
...
}

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

      *
       01 LOKALE-VARIABLEN.
          05 ZWISCHENWERTE.
           10 ZW-ZAHLWEISE             PIC  S9(02) COMP.
           10 ZW-ZAHLWEISE-ALT         PIC  S9(02) COMP.
           10 ZW-ZAHL-PERIOD           PIC  S9(02) COMP.
           10 L-VEV-ID                 PIC   9(11).
           10 W-VEV-ID                 PIC   9(11) VALUE 0.
           10 LAST-VEG-VEIN-ID         PIC   9(11).
           10 MELDUNGS-TEXT            PIC   X(30).
...
          05 TABELLE-SNLPPME       OCCURS 50.
            10 TAB-VEV-ID          PIC 9(11).
            10 TAB-BERECH-TYP      PIC X(10).
            10 TAB-FAELV-D0        PIC X(10).
            10 TAB-FAELB-D0        PIC X(10).
...
       M97-VORLAUF SECTION.
      *-------------------------------------------------------------
...
      *-------------------------------------VARIABLEN INITIALISIEREN
           INITIALIZE LOKALE-VARIABLE
...
           EXIT.
      *

// 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();
...
}

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

      *
       01 LOKALE-VARIABLEN.
...
          05 L-STAMM-D0.
           10 L-STAMM-D0-JJJJ          PIC  9(04).
           10 FILLER                   PIC  X(01).
           10 L-STAMM-D0-MM            PIC  9(02).
           10 FILLER                   PIC  X(01).
           10 L-STAMM-D0-TT            PIC  9(02).
      *
          05 L-STAMM-ALT-D0.
           10 L-STAMM-ALT-D0-JJJJ      PIC  9(04).
           10 FILLER                   PIC  X(01).
           10 L-STAMM-ALT-D0-MM        PIC  9(02).
           10 FILLER                   PIC  X(01).
           10 L-STAMM-ALT-D0-TT        PIC  9(02).
...
       M97-VORLAUF SECTION.
      *-------------------------------------------------------------
...
      *-------------------------------------VARIABLEN INITIALISIEREN
           INITIALIZE LOKALE-VARIABLE
...
           EXIT.
      *

// M 7 9 V o r l a u f
// -------------------
private void M79Vorlauf()
{
...
	// -------------------------------------VARIABLEN INITIALISIEREN
...
	LStammD0 = DateTime.MinValue;
	LStammAltD0 = DateTime.MinValue;
...
}

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

      *
       01 LOKALE-VARIABLEN.
...
          05 MARKER.
           10 ZU-ERMITTELN-MARKER      PIC  X(01).
             88 B-NICHT-ZU-ERMITTELN              VALUE "N".
             88 B-ZU-ERMITTELN                    VALUE "J".
      *
           10 GEFUNDEN-MARKER          PIC  X(01).
             88 B-NICHT-GEFUNDEN                  VALUE "N".
             88 B-GEFUNDEN                        VALUE "J".
...
       M97-VORLAUF SECTION.
      *-------------------------------------------------------------
...
      *-------------------------------------VARIABLEN INITIALISIEREN
           INITIALIZE LOKALE-VARIABLE
...
           EXIT.
      *

// M 7 9 V o r l a u f
// -------------------
private void M79Vorlauf()
{
...
	// -------------------------------------VARIABLEN INITIALISIEREN
...
	BZuErmitteln = false;
	BGefunden = false;
...
}

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

      *
       01 LOKALE-VARIABLEN.
...
           10 S-PFZR-VERHALTEN         PIC  X(04).
             88 B-PFZR-EINGEGEBEN                 VALUE "EING".
             88 B-PFZR-VORHAND-NICHT-GEAENDERT    VALUE "NGEA".
             88 B-PFZR-VORHAND-JETZT-GEAENDERT    VALUE "JGEA".
             88 B-PFZR-VORHAND-GELOESCHT          VALUE "GELO".
...
       M97-VORLAUF SECTION.
      *-------------------------------------------------------------
...
      *-------------------------------------VARIABLEN INITIALISIEREN
           INITIALIZE LOKALE-VARIABLE
...
           EXIT.
      *

// M 7 9 V o r l a u f
// -------------------
private void M79Vorlauf()
{
...
	// -------------------------------------VARIABLEN INITIALISIEREN
...
	SPfzrVerhalten = PfzrVerhaltenEnum.PfzrEingegeben;
...
}

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

• REPLACING