RETRY
|
This document covers the following topics:
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
|
PERFORM BREAK PROCESSING
| READ
|
STORE
|
UPDATE
Belongs to Function Group: Database Access and Update
The RETRY
statement is used within an ON ERROR
statement block (see ON
ERROR
statement). It is used to reattempt to obtain a record
which is in hold status for another user.
When a record to be held is already in hold status for another user,
Natural issues Error Message 3145. See also the session parameter
WH
(Wait for
Record in Hold Status).
The RETRY
statement must be placed in the object that
causes the Error 3145.
For details on record hold logic, see the section Record Hold Logic in the Programming Guide.
This statement can only be used to access Adabas databases.
** Example 'RTYEX1': RETRY ** ** CAUTION: Executing this example will modify the database records! ************************************************************************ DEFINE DATA LOCAL 1 EMPLOY-VIEW VIEW OF EMPLOYEES 2 NAME * 1 #RETRY (A1) INIT <' '> END-DEFINE * FIND EMPLOY-VIEW WITH NAME = 'ALDEN' /* DELETE END TRANSACTION /* ON ERROR IF *ERROR-NR = 3145 INPUT NO ERASE 10/1 'RECORD IS IN HOLD' / 'DO YOU WISH TO RETRY?' / #RETRY '(Y)ES OR (N)O?' IF #RETRY = 'Y' RETRY ELSE STOP END-IF END-IF END-ERROR /* AT END OF DATA WRITE NOTITLE *NUMBER 'RECORDS DELETED' END-ENDDATA END-FIND * END