STOP.
The statement STOP is only to be used in executable programs and in the following event blocks:
You leave these event blocks via STOP, and the runtime environment triggers the event END-OF-SELECTION.
The statement STOP is forbidden in methods and, since Release 6.10, leads to an uncatchable exception during the processing of
screens called with
CALL SCREEN and in programs not called with SUBMIT.
Ending the event blocks GET sbook after max postings have been issued, and branching to END-OF-SELECTION.
NODES: sflight, sbook.
DATA: bookings TYPE i,
max TYPE i VALUE 100.
GET sflight.
WRITE: / sflight-carrid, sflight-connid, sflight-fldate.
GET sbook.
bookings = bookings + 1.
WRITE: / sbook-bookid, sbook-customid.
IF bookings = max.
STOP.
ENDIF.
END-OF-SELECTION.
ULINE.
WRITE: / 'First', bookings, 'bookings'.
Non-Catchable Exceptions