TERMINATE [operand1
[operand2]]
|
This document covers the following topics:
For an explanation of the symbols used in the syntax diagram, see Syntax Symbols.
The TERMINATE statement is used to terminate a Natural
session. A TERMINATE statement may be placed anywhere within a
Natural program. When a TERMINATE statement is executed, no
end-of-page or end-loop processing will be performed.
The behaviour of the TERMINATE statement matches that of
the STOP statement.
Processing of return values is not supported.
For Natural Remote Procedure Call (RPC): See Notes on Natural Statements on the Server in the Natural Remote Procedure Call (RPC) documentation.
Operand Definition Table:
| Operand | Possible Structure | Possible Formats | Referencing Permitted | Dynamic Definition | |||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
operand1
|
C | S | N | P | I | yes | no | ||||||||||||
operand2
|
C | S | A | A | U | yes | yes | ||||||||||||
Syntax Element Description:
After the termination of the Natural session, the program whose name is
specified with the profile parameter PROGRAM will
receive control.
Natural passes operand2 and the
value of the profile parameter PRGPAR to that
program, if they are specified. The program receives these parameters in the
usual way as arguments:
int main(int argc, char *argv[])
{
/* Number of arguments passed. */
printf("Number of arguments: %d\n", argc);
/* Program name. */
if ( argc > 0 )
printf("Program: %s\n", argv[0]);
/* Value of operand2 of the TERMINATE statement. */
if ( argc > 1 )
printf("Operand 2: %s\n", argv[1]);
/* Value of the profile parameter PRGPAR. */
if ( argc > 2 )
printf("PRGPAR: %s\n", argv[2]);
return 0;
}
If the PROGRAM parameter
is not set, the OpenVMS DCL will
receive control after the termination.
** 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