Definition eines Ausgangswerts

../graphics/cbo4.gif

  

FULL LENGTH
LENGTH n

<character-string>

../graphics/cbc4.gif
<

constant
system-variable

>

Eine Erläuterung der in dem Syntax-Diagramm verwendeten Symbole entnehmen Sie dem Abschnitt Syntax-Symbole.

Mit der Option init-definition definieren Sie die Ausgangswerte/Konstanten-Werte für eine Variable.

Anmerkung:
Wenn in der Option variable-definition das Schlüsselwort INIT für die Initialisierung benutzt wurde, kann der Wert von einem Statement geändert werden, das den Inhalt einer Variable beeinflusst. Wenn das Schlüsselwort CONST für die Initialisierung benutzt wurde, wird jeder Versuch, den Wert zu ändern, vom Compiler zurückgewiesen.

Siehe auch Felder definieren, Ausgangswerte im Leitfaden zur Programmierung.

Dieses Dokument behandelt folgende Themen:

Einschränkung

Für ein redefiniertes Feld ist eine init-definition nicht zulässig.

Syntax-Beschreibung

Syntax-Element-Beschreibung:

Syntax-Element Beschreibung
<constant>
Konstantenwert-Option:

Der Konstantenwert, mit der die Variable initialisiert werden soll, bzw. der Konstantenwert, der dem Feld fest zugewiesen wird. Informationen zu Konstanten siehe Abschnitt Benutzerkonstanten im Leitfaden zur Programmierung.

<system-variable>
Systemvariablenwert-Option:

Als Ausgangswert einer Variablen können Sie auch den Wert einer Natural-Systemvariablen benutzen, zum Beispiel: 

   DEFINE DATA LOCAL
   1 #MYDATE (D) INIT <*DATX> 
   END-DEFINE

Anmerkung:
Wenn die Variable in einem RESET INITIAL-Statement referenziert wird, wird die Systemvariable neu ausgewertet; d.h. die Variable wird nicht auf den Wert zurückgesetzt, den die Systemvariable zu Beginn der Programmausführung hatte, sondern auf den Wert, den sie zum Zeitpunkt der Ausführung des Statements RESET INITIAL hat.

FULL LENGTH <character-string>

LENGTH n <character-string>
Zeichenkette-Option für alphanumerische Variablen/Unicode-Variablen:

Bei einer Variablen mit Natural-Datenformat A oder U kann eine Zeichenkette (character-string, z.B. 'ABC') als Ausgangswert benutzt werden, der das variable Feld ganz oder teilweise füllt.

Eine Zeichenkette (character-string) ist eine Konstante mit Natural-Datenformat A oder U, siehe Alphanumerische Konstanten and Unicode-Konstanten im Leitfaden zur Programmierung.

FULL LENGTH-Option:

Bei der FULL LENGTH-Option wird eine Zeichenkette (character-string) wiederholt in das angegebene Feld verschoben, bis das Feld vollständig gefüllt ist.

Im folgenden Beispiel wird das gesamte Feld mit Sternen (*) gefüllt. 

   DEFINE DATA LOCAL
   1 #FIELD (A25) INIT FULL LENGTH <'*'> 
   END-DEFINE
LENGTH Option:

Bei der LENGTH n-Option wird eine Zeichenkette (character-string) wiederholt in das angegebene Feld verschoben, bis die ersten n Stellen des Feldes gefüllt sind.

Im folgenden Beispiel werden die ersten 4 Stellen des Feldes mit Ausrufungszeichen (!) gefüllt. 

   DEFINE DATA LOCAL
   1 #FIELD (A25) INIT LENGTH 4 <'!'> 
   END-DEFINE