RESET [INITIAL ]
operand1
|
This document covers the following topics:
For explanations of the symbols used in the syntax diagram, see Syntax Symbols.
Related Statements: ADD
| COMPRESS
|
COMPUTE
|
DIVIDE
|
EXAMINE
|
MOVE
|
MOVE ALL
|
MULTIPLY
|
SEPARATE
|
SUBTRACT
Belongs to Function Group: Arithmetic and Data Movement Operations
The RESET
statement is used to reset the value of a
field:
RESET
(without INITIAL
) sets the
content of each specified field to its
default initial value
depending on its format.
RESET
INITIAL
sets each specified field to the initial value as
defined for the field in the DEFINE
DATA
statement. For a field declared without
INIT
clause in the
DEFINE DATA
statement, RESET INITIAL
has the same
effect as RESET
(without INITIAL
).
Notes:
CONSTANT
clause in the
DEFINE DATA
statement may not be referenced in a
RESET
statement, since its content cannot be changed.
RESET
statement may also
be used to define a variable, provided that the program contains no
DEFINE DATA LOCAL
statement.
Operand Definition Table:
Operand | Possible Structure | Possible Formats | Referencing Permitted | Dynamic Definition | ||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
operand1
|
S | A | G | M | A | U | N | P | I | F | B | D | T | L | C | G | O | yes | yes |
Syntax Element Description:
Syntax Element | Description |
---|---|
RESET
operand1
|
Reset to Null Value:
If For general information on dynamic variables, see the section Using Dynamic and Large Variables. |
RESET INITIAL
operand1
|
Reset to Initial Value:
|
** Example 'RSTEX1': RESET (with/without INITIAL) ************************************************************************ DEFINE DATA LOCAL 1 EMPLOY-VIEW VIEW OF EMPLOYEES 2 NAME 1 #BINARY (B4) INIT <1> 1 #INTEGER (I4) INIT <5> 1 #NUMERIC (N2) INIT <25> END-DEFINE * LIMIT 1 READ EMPLOY-VIEW /* WRITE NOTITLE 'VALUES BEFORE RESET STATEMENT:' WRITE / '=' NAME '=' #BINARY '=' #INTEGER '=' #NUMERIC /* RESET NAME #BINARY #INTEGER #NUMERIC /* WRITE /// 'VALUES AFTER RESET STATEMENT:' WRITE / '=' NAME '=' #BINARY '=' #INTEGER '=' #NUMERIC /* RESET INITIAL #BINARY #INTEGER #NUMERIC /* WRITE /// 'VALUES AFTER RESET INITIAL STATEMENT:' WRITE / '=' NAME '=' #BINARY '=' #INTEGER '=' #NUMERIC /* END-READ END
VALUES BEFORE RESET STATEMENT: NAME: ADAM #BINARY: 00000001 #INTEGER: 5 #NUMERIC: 25 VALUES AFTER RESET STATEMENT: NAME: #BINARY: 00000000 #INTEGER: 0 #NUMERIC: 0 VALUES AFTER RESET INITIAL STATEMENT: NAME: #BINARY: 00000001 #INTEGER: 5 #NUMERIC: 25