DECIDE ON
{	FIRST EVERY	} [VALUES] [OF]
		{	operand1 SUBSTRING (operand3,operand5,operand6)	}
{	VALUES	{	operand2  SUBSTRING (operand4,operand7,operand8)	}
		[[,{	operand2 SUBSTRING (operand4,operand7,operand8)	}] ...
		[: {	operand2 SUBSTRING (operand4,operand7,operand8)	} ]]	statement ...} ...
[ANY [VALUES]   statement ]
[ALL [VALUES]   statement ]
NONE [VALUES] statement
END-DECIDE

Dieses Dokument behandelt folgende Themen:

• Funktion

• Syntax-Beschreibung

• Beispiele

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

Verwandte Statements: DECIDE FOR | IF | IF SELECTION | ON ERROR

Gehört zur Funktionsgruppe: Logische Bedingungen

---

Funktion

Das Statement DECIDE ON dient dazu, in Abhängigkeit vom Wert (bzw. von den Werten) einer Variablen eine oder mehrere Handlungen auszuführen.

Syntax-Beschreibung

Operanden-Definitionstabelle:

Operand	Mögliche Struktur					Mögliche Formate													Referenzierung erlaubt	Dynam. Definition
operand1		S	A		N	A	U	N	P	I	F	B	D	T	L		G	O	ja	nein
operand2	C	S	A			A	U	N	P	I	F	B	D	T	L		G	O	ja	nein
operand3		S	A			A	U					B							ja	nein
operand4	C	S	A			A	U					B							ja	nein
operand5	C	S						N	P	I		B *							ja	nein
operand6	C	S						N	P	I		B *							ja	nein
operand7	C	S						N	P	I		B *							ja	nein
operand8	C	S						N	P	I		B *							ja	nein

^* Format B von operand5, operand6, operand7 und operand8 kann nur mit einer Länge von kleiner oder gleich 4 benutzt werden.

Syntax-Element-Beschreibung:

Syntax-Element	Beschreibung
FIRST/EVERY	Zu verarbeitender Wert: Mit einem dieser Schlüsselwörter geben Sie an, ob nur der erste gefundene Wert (FIRST) oder alle gefundenen Werte (EVERY) der Variablen verarbeitet werden sollen.
operand1	Kontrollfeld: Als operand1 oder operand2 geben Sie den Namen des Feldes an, dessen Werte geprüft werden sollen.
VALUES operand2 [[,operand2] ... [:operand2]statement ...	Wert des Kontrollfeldes: Mit dieser Klausel geben Sie den Wert (operand2) des Kontrollfeldes an, sowie die statements, die ausgeführt werden sollen, wenn das Kontrollfeld diesen Wert hat. Sie können einen Wert, mehrere Werte oder einen Bereich von Werten angeben, vor denen als Option einer oder mehrere Wert/e stehen können. Werden mehrere Werte angegeben, müssen diese entweder mit dem Input-Delimiterzeichen (wie mit dem Session-Parameter ID definiert) oder mit einem Komma voneinander getrennt werden. Ein Komma darf hierzu allerdings nicht verwendet werden, falls das Komma als Dezimalkomma (mit dem Session-Parameter DC) definiert ist. Bei einem Bereich von Werten geben Sie, durch einen Doppelpunkt voneinander getrennt, den Anfangs- und den Endwert des Bereiches an.
SUBSTRING (operand3,operand5,operand6)	SUBSTRING-Option: Wenn Sie die SUBSTRING-Option weglassen, wird der gesamte Inhalt eines Feldes geprüft. Mit der SUBSTRING-Option können Sie nur einen bestimmten Teil eines alphanumerischen, Unicode- oder binären Feldes prüfen. Nach dem Feldnamen (operand3) geben Sie zuerst die Startposition (operand5) und danach die Länge (operand6) des zu prüfenden Teils des Feldes an.
SUBSTRING (operand4,operand7,operand8)	Nach dem Feldnamen (operand4) geben Sie zuerst die Startposition (operand7) und danach die Länge (operand8) des zu prüfenden Teils des Feldes an.
ANY statement	ANY-Klausel: Mit ANY geben Sie das (die) Statement(s) an, die ausgeführt werden sollen, wenn irgendeiner der in der VALUES-Klausel angegebenen Werte gefunden wird. Diese Statements werden zusätzlich zu den in der VALUES-Klausel angegebenen Statements ausgeführt.
ALL statement	ALL-Klausel: Mit ALL geben Sie das (die) Statement(s) an, die ausgeführt werden sollen, wenn alle in der VALUES-Klausel angegebenen Werte gefunden werden. Diese Statements werden zusätzlich zu den in der VALUES-Klausel angegebenen Statements ausgeführt. Die ALL-Klausel kann nur in Verbindung mit dem Schlüsselwort EVERY eingesetzt werden
NONE statement	NONE-Klausel: Mit NONE geben Sie das (die) Statement(s) an, die ausgeführt werden sollen, wenn keiner der angegebenen Werte gefunden wurde.
END-DECIDE	Ende des DECIDE ON-Statements: Das für Natural reservierte Wort END-DECIDE muss zum Beenden des DECIDE ON-Statements benutzt werden.

Beispiele

• Beispiel 1 — DECIDE ON-Statement mit FIRST-Option

• Beispiel 2 — DECIDE ON-Statement mit EVERY-Option

Beispiel 1 — DECIDE ON-Statement mit FIRST-Option

** Example 'DECEX3': DECIDE ON (with FIRST option)                      
************************************************************************
*                                                                       
SET KEY ALL                                                             
INPUT 'Enter any PF key' /                                              
      'and check result' /                                              
*                                                                       
DECIDE ON FIRST VALUE OF *PF-KEY                                        
  VALUE 'PF1'                                                           
    WRITE 'PF1 key entered.'                                            
  VALUE 'PF2'                                                           
    WRITE 'PF2 key entered.'                                            
  ANY VALUE                                                             
    WRITE 'PF1 or PF2 key entered.'                                     
  NONE VALUE                                                            
    WRITE 'Neither PF1 nor PF2 key entered.'                            
END-DECIDE                                                          
*                                                                       
END

Ausgabe des Programms DECEX3:

 Enter any PF key
 and check result

Ausgabe nach Drücken von PF1:

Page      1                                                  05-01-11  15:08:50
                                                                               
PF1 key entered.                                                               
PF1 or PF2 key entered.

Beispiel 2 — DECIDE ON-Statement mit EVERY-Option

** Example 'DECEX4': DECIDE ON (with EVERY option)                      
************************************************************************
DEFINE DATA LOCAL                                                       
1 #FIELD (N1)                                                           
END-DEFINE                                                              
*                                                                       
INPUT 'Enter any value between 1 and 9:' #FIELD (SG=OFF)                
*                                                                       
DECIDE ON EVERY VALUE OF #FIELD                                         
  VALUE 1 : 4                                                           
    WRITE 'Content of #FIELD is 1-4'                                    
  VALUE 2 : 5                                                           
    WRITE 'Content of #FIELD is 2-5'                                    
  ANY VALUE                                                             
    WRITE 'Content of #FIELD is 1-5'                                    
  ALL VALUE                                                             
    WRITE 'Content of #FIELD is 2-4'                                    
  NONE VALUE                                                            
    WRITE 'Content of #FIELD is not 1-5'
    END-DECIDE
*          
END

Ausgabe des Programms DECEX4:

ENTER ANY VALUE BETWEEN 1 AND 9: 4

Nach Eingabe und Bestätigung des Wertes 4:

Page      1                                                  05-01-11  15:11:45
                                                                               
Content of #FIELD is 1-4                                                       
Content of #FIELD is 2-5                                                       
Content of #FIELD is 1-5                                                       
Content of #FIELD is 2-4