ADELIA |
VADELIA |
SADELIA |
WADELIA |
EADELIA |
(I/B) |
(I/B) (C/S) |
(B) (S) |
(I/B) (C/S) |
(B) (C/S) |
Type
2.0 N
Use
Case 1 |
Reserved word used for UP, DE and CR class management rules. Permits (*MR_ERROR = 0) or prevents (*MR_ERROR <> 0) the creation, updating or deletion procedure. |
Case 2 |
When using object modules via the CALL_METHOD instruction (Adelia/400 context), a value can be assigned to *MR_ERROR within the management rule. This value is transmitted to the program using the object module in order to be tested. |
Example
Case 1 |
In the 4GL source for a UP class management rule: |
IF <condition>
*MR_ERROR = 1
END
In the program:
UPDATE VIEW
In the verification list, the following transformation is performed:
*MR_ERROR = 0
CALL_METHOD *UP VIEW (or INSERT_MR *UP VIEW)
IF *MR_ERROR = 0
UPDATE VIEW *NO_MR
END
Case 2 |
In the 4GL source for a CA class management rule: |
IF <condition>
*MR_ERROR = 2
END
In the program:
*MR_ERROR = 0
CALL_METHOD *CA ZTOTAL_PRICE
IF *MR_ERROR = 2
Adelia instruction
END