PERFORM BREAK [PROCESSING] [(r)]
|
AT BREAK statement
|
This document covers the following topics:
For an explanation 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.