ADELIA |
VADELIA |
SADELIA |
WADELIA |
EADELIA |
(I/B) |
(I/B) (S) |
(B) (S) |
(I/B) (S) |
(B) (S) |
Section for use
All
Syntax
DELETE_ON_KEY ViewName Parameter
Parameter |
→ |
*NO_MR | *MR | None |
Description
This instruction is used to delete a whole group of records in a file corresponding to the view ViewName, where the key value is equal to the record key value.
This instruction corresponds to:
POSITION_BEFORE ViewName
READ_EQUAL ViewName
DO_WHILE ViewName EXISTS
DELETE ViewName
READ_EQUAL ViewName
REDO
The *MR parameter allows you to generate deletion implicit management rules that are linked to the entity corresponding to the view, even if the program is generated without the option to generate implicit management rules.
The *NO_MR parameter allows you not to generate deletion implicit management rules that are linked to the entity corresponding to the view, even if the program is generated with the option to generate implicit management rules.
Important note: With this instruction, you cannot use the *LOCKED reserved word to check whether records are locked.
Example
* deletion of order lines for a given customer
* Note: view ORDER_LINES reads the ORDERL file via customer code
*
IF ZCONFIRM = 'OK'
DELETE ORDER
DELETE_ON_KEY ORDER_LINES
END