ADELIA |
|
|
|
|
(I) |
|
|
|
|
Section for use
TRANSACTION
Syntax
VERIFY TransactionNum
Description
This instruction calls the VERIFICATION section which corresponds to the transaction identified by its number TransactionNum.
If the ANOMALY or ERROR instructions are executed while the verification block is being executed, any instructions placed after the VERIFY instruction are not executed and the transaction is displayed again.
Example
**********************
TRANSACTION 02
**********************
IF *F12
PROCESS 01
END
VERIFY 02 |
This runs the VERIFICATION 02 section |
VALIDATE 02
PROCESS 02
**********************
INITIALIZATION 02
**********************
CHAIN ORDERS
PRESENT ORDERS
*
MANAGE_SFL 1
PRESENT ORDER_LINES
UPD_SFL
END_MANAGE_SFL
*********************
VERIFICATION 02
*********************
CALL CONTROL_DATE ZZ_ORDER_DATE RETURN_CODE
IF RETURN_CODE <> *BLANK
PREPARE_MSG 0024 ZZ_ORDER_DATE
ERROR
END
*
MANAGE_SFL 1
IF ZZ_ORD_QTY = 0
PREPARE_MSG 0035 ZZ_ORD_QTY
ANOMALY
END
END_MANAGE_SFL
See also the list of 4GL instructions by topic