TERMINATE [operand1 [operand2]]

Dieses Dokument behandelt folgende Themen:

• Funktion

• Syntax-Beschreibung

• Kontrollübergabe nach Abbruch

• Beispiel

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

---

Funktion

Das Statement TERMINATE bewirkt, dass die Natural-Session abgebrochen wird. Sie können das TERMINATE-Statement an beliebiger Stelle im Programm verwenden. Bei der Ausführung eines TERMINATE-Statements wird keine End-of-Page-Verarbeitung oder schleifenbeendende Verarbeitung mehr ausgeführt.

Für Natural RPC: Siehe Notes on Natural Statements on the Server in der Natural RPC (Remote Procedure Call)-Dokumentation.

Syntax-Beschreibung

Operanden-Definitionstabelle:

Operand	Mögliche Struktur					Mögliche Formate													Referenzierung erlaubt	Dynam. Definition
operand1	C	S						N	P	I									ja	nein
operand2	C	S	A			A	U	N	P	I	F	B	D	T	L	C			ja	ja

Syntax-Element-Beschreibung:

Syntax-Element	Beschreibung
operand1	Return Code: operand1 kann dazu verwendet werden, einen Return Code an das Programm zu übergeben, das die Kontrolle erhält, nachdem die Natural-Session abgebrochen wurde. Beispielsweise könnte ein Return Code an das Betriebssystem übergeben werden (über Register 15). Für operand1 kann ein Wert von 0 bis 255 angegeben werden.
operand2	Übergabe zusätzlicher Informationen: operand2 kann dazu verwendet werden, zusätzliche Informationen an das Programm zu übergeben, das nach dem Session-Abbruch die Kontrolle erhält.

Kontrollübergabe nach Abbruch

Nach dem Abbruch der Natural-Session erhält das Programm, dessen Name mit dem Profilparameter PROGRAM angegeben wurde, die Kontrolle.

Beispiel

** Example 'TEREX1': TERMINATE                                          
************************************************************************
DEFINE DATA LOCAL                                                       
1 EMPLOY-VIEW VIEW OF EMPLOYEES                                         
  2 PERSONNEL-ID                                                        
  2 NAME                                                                
  2 SALARY (1)                                                          
*                                                                       
1 #PNUM     (A8)                                                        
1 #PASSWORD (A8)                                                        
END-DEFINE                                                              
*                                                                       
INPUT 'ENTER PASSWORD:' #PASSWORD                                       
*                                                                       
IF #PASSWORD NE 'USERPASS'                                              
  /*                                                                    
  TERMINATE                                                          
  /*                                                                    
END-IF                                                                  
*                                          
INPUT 'ENTER PERSONNEL NUMBER:' #PNUM      
*                                          
FIND EMPLOY-VIEW WITH PERSONNEL-ID = #PNUM 
  DISPLAY NAME SALARY (1)                  
END-FIND                                   
*                                          
END