PERFORM BREAK
[PROCESSING ] [(r)]
|
AT BREAK
statement
|
This document covers the following topics:
For explanations of the symbols used in the syntax diagram, see Syntax Symbols.
Related Statements: ACCEPT/REJECT
|
AT BREAK
|
AT START OF DATA
|
AT END OF DATA
|
BACKOUT TRANSACTION
|
BEFORE BREAK PROCESSING
|
DELETE
|
END TRANSACTION
|
FIND
|
GET
|
GET SAME
|
GET TRANSACTION DATA
|
HISTOGRAM
|
LIMIT
|
PASSW
|
READ
|
RETRY
|
STORE
|
UPDATE
Belongs to Function Group: Database Access and Update
The PERFORM BREAK PROCESSING
statement is used to
establish break processing in loops created by FOR
, REPEAT
, CALL LOOP
and
CALL FILE
statements
where no automatic break processing is established, or whenever a
user-initiated break processing is desired. Unlike automatic break processing
which is executed immediately after the record is read, the PERFORM BREAK
PROCESSING
statement is executed when it is encountered in the normal
flow of the program.
This statement causes a check for a break processing condition
(based on the value of a control field) and also results in the evaluation of
Natural system functions. This
check and system function evaluation are performed each time the statement is
encountered for execution. This statement may be executed depending on a
condition specified in an IF
statement.
Syntax Element | Description |
---|---|
(r) |
Statement Reference Notation:
By default, the final The notation
|
AT BREAK
statement...
|
See the syntax of the |
** Example 'PBPEX1S': PERFORM BREAK PROCESSING (structured mode) ************************************************************************ DEFINE DATA LOCAL 1 #INDEX (N2) 1 #LINE (N2) INIT <1> END-DEFINE * FOR #INDEX 1 TO 18 PERFORM BREAK PROCESSING /* AT BREAK OF #INDEX /1/ WRITE NOTITLE / 'PLEASE COMPLETE LINES 1-9 ABOVE' / RESET INITIAL #LINE END-BREAK /* WRITE NOTITLE '_' (64) '=' #LINE ADD 1 TO #LINE END-FOR * END
________________________________________________________________ #LINE: 1 ________________________________________________________________ #LINE: 2 ________________________________________________________________ #LINE: 3 ________________________________________________________________ #LINE: 4 ________________________________________________________________ #LINE: 5 ________________________________________________________________ #LINE: 6 ________________________________________________________________ #LINE: 7 ________________________________________________________________ #LINE: 8 ________________________________________________________________ #LINE: 9 PLEASE COMPLETE LINES 1-9 ABOVE ________________________________________________________________ #LINE: 1 ________________________________________________________________ #LINE: 2 ________________________________________________________________ #LINE: 3 ________________________________________________________________ #LINE: 4 ________________________________________________________________ #LINE: 5 ________________________________________________________________ #LINE: 6 ________________________________________________________________ #LINE: 7 ________________________________________________________________ #LINE: 8 ________________________________________________________________ #LINE: 9 PLEASE COMPLETE LINES 1-9 ABOVE
Equivalent reporting-mode example: PBPEX1R
.