IF
logical-condition |
|||||
[THEN]
statement
|
|||||
[ELSE
statement
]
|
|||||
END-IF
|
IF
logical-condition |
|||||
[THEN] |
|
statement |
|
||
DO statement
DOEND
|
|||||
|
|
ELSE
|
|
statement | 
|
|
DO statement
DOEND
|
|||||
Dieses Dokument behandelt folgende Themen:
Eine Erläuterung der in dem Syntax-Diagramm verwendeten Symbole entnehmen Sie dem Abschnitt Syntax-Symbole.
Verwandte Statements: DECIDE
FOR | DECIDE
ON | IF
SELECTION | ON
ERROR
Gehört zur Funktionsgruppe: Logische Bedingungen
Mit dem Statement IF wird die Verarbeitung eines Statements
oder einer Gruppe von Statements in Abhängigkeit von einer logischen Bedingung
(logical-condition) gesteuert.
Anmerkung:
Falls keine Handlung ausgeführt werden soll, wenn die Bedingung
erfüllt ist, geben Sie das Statement IGNORE in der
THEN-Klausel an.
| IF logical-condition |
Die logische Bedingung, die Sie definieren, bestimmt, wann das
Statement bzw. die Statements, die Sie im Beispiele: IF #A = #B IF LEAVE-TAKEN GT 30 IF #SALARY(1) * 1.15 GT 5000 IF SALARY (4) = 5000 THRU 6000 IF DEPT = 'A10' OR = 'A20' OR = 'A30' Näheres hierzu siehe Abschnitt Logische Bedingungen im Leitfaden zur Programmierung. |
|---|---|
| THEN statement | In der THEN-Klausel geben Sie eines oder mehrere
Statements an, die ausgeführt werden sollen, wenn
die logische Bedingung erfüllt ist.
|
| ELSE statement | In der ELSE-Klausel geben Sie eines oder mehrere
Statements an, die ausgeführt werden sollen, wenn
die logische Bedingung nicht erfüllt ist.
|
| END-IF | Das für Natural reservierte Wort END-IF muss zum
Beenden des IF-Statements benutzt werden.
|
** Example 'IFEX1S': IF (structured mode)
************************************************************************
DEFINE DATA LOCAL
1 EMPLOY-VIEW VIEW OF EMPLOYEES
2 PERSONNEL-ID
2 NAME
2 FIRST-NAME
2 SALARY (1)
2 BIRTH
1 VEHIC-VIEW VIEW OF VEHICLES
2 PERSONNEL-ID
2 MAKE
*
1 #BIRTH (D)
END-DEFINE
*
MOVE EDITED '19450101' TO #BIRTH (EM=YYYYMMDD)
SUSPEND IDENTICAL SUPPRESS
LIMIT 20
*
FND. FIND EMPLOY-VIEW WITH CITY = 'FRANKFURT'
SORTED BY NAME BIRTH
IF SALARY (1) LT 40000
WRITE NOTITLE '*****' NAME 30X 'SALARY LT 40000'
ELSE
IF BIRTH GT #BIRTH
FIND VEHIC-VIEW WITH PERSONNEL-ID = PERSONNEL-ID (FND.)
DISPLAY (IS=ON)
NAME BIRTH (EM=YYYY-MM-DD)
SALARY (1) MAKE (AL=8)
END-FIND
END-IF
END-IF
END-FIND
END
Ausgabe des Programms IFEX1S:
NAME DATE ANNUAL MAKE
OF SALARY
BIRTH
-------------------- ---------- ---------- --------
BAECKER 1956-01-05 74400 BMW
***** BECKER SALARY LT 40000
BLOEMER 1979-11-07 45200 FIAT
FALTER 1954-05-23 70800 FORD
***** FALTER SALARY LT 40000
***** GROTHE SALARY LT 40000
***** HEILBROCK SALARY LT 40000
***** HESCHMANN SALARY LT 40000
HUCH 1952-09-12 67200 MERCEDES
***** KICKSTEIN SALARY LT 40000
***** KLEENE SALARY LT 40000
***** KRAMER SALARY LT 40000
Äquivalentes Reporting-Mode-Beispiel: IFEX1R.