TERMINATE

TERMINATE [operand1 [operand2]]  

Dieses Dokument behandelt folgende Themen:

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