ADELIA |
|
|
|
|
(I) |
|
|
|
|
Section for use
VERIFICATION
Syntax
WARNING
Description
This instruction is used to prepare the sending of a non-halting error message.
The field indicated after the error message declaration is set to reverse image, but the processing continues normally.
The value of the *WARNING reserved word is set to 1 to indicate that at least one WARNING has been detected in the VERIFICATION block.
Reverse image and message display are performed if the transaction is re-displayed. Such redisplay is the responsibility of the programmer; for example, by testing the *WARNING reserved word after the VERIFY instruction of the transaction.
Important note: In order to automatically re-display the transaction with the error messages, we recommend using ANOMALY or ERROR.
Example
*********************
TRANSACTION 02
*********************
IF *F12
PROCESS 01
END
VERIFY 02 |
This runs the VERIFICATION section |
IF *WARNING = '1'
PROCESS 02 |
Redisplays transaction 2 if at least one warning |
END
VALIDATE 02
PROCESS 02
*
*********************
VERIFICATION 02
*********************
CALL CONTROL_DATE ZZ_ORDER_DATE RETURN_CODE
IF RETURN_CODE <> *BLANK
PREPARE_MSG 0024 ZZ_ORDER_DATE
WARNING
END
IF ZZ_CUST_CODE = *BLANK
PREPARE_MSG 0046 ZZ_CUST_CODE
WARNING
END
See also the list of 4GL instructions by topic