FOR

`FOR` `operand1`		[:]= `EQ` `FROM`	`operand2` `(arithmetic-expression)`
		`TO` `THRU`	`operand3` `(arithmetic-expression)`

		`STEP`	`operand4` `(arithmetic-expression)`
	`statement`
`END-FOR`	`(structured mode only)`
`LOOP`	`(reporting mode only)`

Dieses Dokument behandelt folgende Themen:

Funktion
Syntax-Beschreibung
Beispiel - FOR-Statement

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

Verwandte Statements: REPEAT | ESCAPE

Gehört zur Funktionsgruppe: Schleifenverarbeitung

Funktion

Mit dem Statement FOR wird eine Verarbeitungsschleife ausgelöst und gleichzeitig die Anzahl der Schleifendurchläufe gesteuert.

Konsistenzprüfung

Bevor die FOR-Schleife zum erstenmal durchlaufen wird, wird geprüft, ob die Werte der Operanden konsistent sind (d.h. ob es möglich ist, dass durch wiederholtes Addieren von operand4 zu operand2 der Wert von operand3 erreicht werden kann); ist dies nicht der Fall, wird die FOR-Schleife nicht durchlaufen (ohne dass eine Fehlermeldung ausgegeben wird; Ausnahme: wenn der STEP-Wert Null ist, wird eine Meldung ausgegeben).

Syntax-Beschreibung

Operanden-Definitionstabelle:

Operand	Mögliche Struktur							Referenzierung erlaubt	Dynam. Definition
`operand1`		S		N	P	I	F	ja	ja
`operand2`	C	S	N	N	P	I	F	ja	nein
`operand3`	C	S	N	N	P	I	F	ja	nein
`operand4`	C	S	N	N	P	I	F	ja	nein

Syntax-Element-Beschreibung:

Syntax-Element	Beschreibung
`operand1`	Schleifenkontrollvariable (`operand1`) und Ausgangswert (`operand2`): `operand1` kann ein Datenbankfeld oder eine Benutzervariable sein und steuert die Anzahl der Schleifendurchläufe. Der nach dem Schlüsselwort `FROM` angegebene Wert (`operand2`) wird der Kontrollvariablen als Ausgangswert zugeordnet, bevor die Verarbeitungsschleife das erste Mal durchlaufen wird. Dieser Ausgangswert erhöht `operand2` wird. sich mit jedem Schleifendurchlauf um den Wert des mit `STEP` angegebenen `operand4` (bzw. vermindert sich, wenn `operand4` einen negativen Wert hat). Die Kontrollvariable kann während der Ausführung der Verarbeitungsschleife referenziert werden, um den aktuellen Wert der Kontrollvariablen zu erhalten.
`operand2`
`operand3`	TO-Wert: Die Verarbeitungsschleife wird beendet, sobald `operand1` einen Wert enthält, der größer ist als der Wert von `operand3` (oder kleiner, falls der `STEP`-Wert negativ ist).
`operand4`	STEP-Wert: Der Wert von `operand4` kann positiv oder negativ sein. Ist kein Wert angegeben, wird ein Wert von `+1` angenommen. Je nach dem Vorzeichen des `STEP`-Wertes wird die Vergleichsoperation für `operand3` auf größer als oder kleiner als gesetzt, wenn die Verarbeitungsschleife zum erstenmal durchlaufen wird. `operand4` darf nicht Null (0) sein.
`(arithmetic-expression)`	Arithmetischer Ausdruck: Anstelle von `operand2`, `operand3` oder `operand4` kann ein beliebiger arithmetischer Ausdruck angegeben werden. Der arithmetische Ausdruck muss in Klammern angegeben werden. Vorangehende Schlüsselwörter dürfen nicht weggelassen werden. Weitere Informationen siehe `arithmetic-expression` in der Beschreibung des `COMPUTE`-Statements.
`END-FOR`	Ende des FOR-Statements: Im Structured Mode muss das für Natural reservierte Wort `END-FOR` zum Beenden des `FOR`-Statements benutzt werden. Im Reporting Mode wird das `LOOP`-Statement zum Beenden des `FOR`-Statements benutzt.
`LOOP`

Beispiel - FOR-Statement

** Example 'FOREX1S': FOR (structured mode)                             
************************************************************************
DEFINE DATA LOCAL                                                       
1 #INDEX (I1)                                                           
1 #ROOT  (N2.7)                                                         
END-DEFINE                                                              
*                                                                       
FOR #INDEX 1 TO 5                                                       
  COMPUTE #ROOT = SQRT (#INDEX)                                         
  WRITE NOTITLE '=' #INDEX 3X '=' #ROOT                                 
END-FOR                                                                 
*                                                                       
SKIP 1                                                                  
FOR #INDEX 1 TO 5 STEP 2                                                
  COMPUTE #ROOT = SQRT (#INDEX)                                         
  WRITE '=' #INDEX 3X '=' #ROOT                                         
END-FOR                                                                 
*                                                                       
END

Ausgabe des Programms FOREX1S:

#INDEX:    1   #ROOT:   1.0000000
#INDEX:    2   #ROOT:   1.4142135
#INDEX:    3   #ROOT:   1.7320508
#INDEX:    4   #ROOT:   2.0000000
#INDEX:    5   #ROOT:   2.2360679
                                 
#INDEX:    1   #ROOT:   1.0000000
#INDEX:    3   #ROOT:   1.7320508
#INDEX:    5   #ROOT:   2.2360679

Äquivalentes Reporting-Mode-Beispiel: FOREX1R.