ADELIA |
VADELIA |
SADELIA |
WADELIA |
EADELIA |
(I/B) |
(I/B) (C/S) |
(B) (S) |
(I/B) (C/S) |
(B) (C/S) |
Section for use
All
Syntax
For CA, CT, IP, VP, SK, PR management rules:
INSERT_MR ClassOrRule LayoutVarId TransactionOrReportLayoutFormat ReportLayout
ClassOrRule |
→ |
*CA | *CT | *IP | *VP | *SK | *PR |
| RuleName |
||
TransactionOrReportLayoutFormat |
→ |
TransactionNum |
| ReportLayoutFormat |
||
| None |
||
ReportLayout |
→ |
ReportLayout | None |
Other possibility:
INSERT_MR Class ViewOrEntity TransactionOrReportLayoutFormat ReportLayout
Class |
→ |
*CA | *CT | *IP | *VP | *SK | *PR |
TransactionOrReportLayoutFormat |
→ |
TransactionNum |
| ReportLayoutFormat |
||
| None |
||
ReportLayout |
→ |
ReportLayout | None |
Note: With these classes, the aim when verifying is to generate as many elementary INSERT_MR instructions as required for the layout variables whose logical origins are the properties of the entity associated with the view.
Warning: In ADELIA type programs, you cannot specify the name of an entity instead of the name of a view.
For IE, VE, RE, DE, ED, UP, EM, CR, ER, BF, EF management rules:
ED, EM, ER, BF and EF-class management rules are only valid for Adelia/400.
INSERT_MR ClassOrRule ViewOrEntity TransactionOrReportLayoutFormat ReportLayout
ClassOrRule |
→ |
*IE | *VE | *RE | *DE | *ED | *UP | *EM |
| *ER | *BF | *EF | *CR | RuleName |
||
TransactionOrReportLayoutFormat |
→ |
TransactionNum |
| ReportLayoutFormat |
||
| None |
||
ReportLayout |
→ |
ReportLayout | None |
Warning: In ADELIA type programs, you cannot specify the name of an entity instead of the name of a view.
For PM management rules
INSERT_MR RuleName
or
INSERT_MR RuleName (SeriesParameters)
SeriesParameters |
→ |
SeriesParameters;Parameter |
| Parameter |
For other management rules
INSERT_MR ClassOrRuleName
ClassOrRule |
→ |
*BT | *ET | *BI | *EI | *BC |
| *EC | *BV | *EV | *BS |
||
| *ES | *BP | *EP | RuleName |
Description
The INSERT_MR instruction is used to insert the detailed contents of all management rules belonging to the specified class (or the rule specified in the instruction) at the beginning of the Adelia model verification, optionally applying it to the specified layout variable or to the entity associated with the specified view.
Example
* Program to update orders before the ADELIA verification |
|
RECEIVE ORDR_NBR RETURN_CODE |
|
INITIALIZE 01 |
|
PROCESS 01 |
|
TRANSACTION 01 |
|
INSERT_MR BEGIN_TRS |
|
INSERT_MR NEXT_PAGE |
|
VERIFY 01 |
|
VALIDATE 01 |
|
* |
|
INITIALIZATION 01 |
|
CHAIN ORDERS |
|
INSERT_MR *IP ORDERS |
|
PRESENT ORDERS |
|
* |
|
INSERT_MR RETRIEVE_DESC (ZDESC; CUSTOMER; ZCUST_CODE; CUST_NAME) |
|
* |
|
VERIFICATION 01 |
|
INSERT_MR *CT ZORDR_DATE |
|
INSERT_MR *CT ZCUST_CODE |
|
* |
|
VALIDATION 01 |
|
PLACE ORDERS |
|
INSERT_MR *VE ORDERS |
|
CLASSIFY ORDERS |
|
Adelia verification list
RECEIVE ORDR_NBR RETURN_CODE |
|
INITIALIZE 01 |
|
PROCESS 01 |
|
TRANSACTION 01 |
|
* |
|
IF *F03 |
|
RETURN_CODE = 'END' |
|
TERMINATE |
|
END |
|
* |
|
IF *ROLLUP |
|
ROLL_UP |
|
END |
|
* |
|
VERIFY 01 |
|
VALIDATE 01 |
|
* |
|
INITIALIZATION 01 |
|
CHAIN ORDERS |
|
* |
|
IF ORDR_DATE = 0 |
|
ORDR_DATE = *DATE |
|
END |
|
* |
|
IF ZPAYMENT = *BLANK |
|
ZPAYMENT = 'CASH' |
|
END |
|
* |
|
PRESENT ORDERS |
|
* |
|
* |
|
CHAIN CUSTOMER |
|
ZDESC = CUST_NAME |
|
* |
|
VERIFICATION 01 |
|
* |
|
PREPARE_MSG 0035 ZORDR_DATE |
|
IF ZORDR_DATE = 0 |
|
ERROR |
|
END |
|
* |
|
PREPARE_MSG 0046 ZORDR_DATE |
|
IF ZORDR_DATE < DATE_OF_DAY |
|
ANOMALY |
|
END |
|
* |
|
PREPARE_MSG 0057 ZCUST_CODE |
|
CHAIN CUSTOMER |
|
IF CUSTOMER DOES_NOT_EXIST |
|
ANOMALY |
|
END |
|
* |
|
VALIDATION 01 |
|
PLACE ORDERS |
|
* |
|
USER_UPD = *USER |
|
DATE_UPD = *DATE |
|
TIME TIME_UPD |
|
CLASSIFY ORDERS |
|