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
END
Description
This instruction marks the end of a condition processing block.
Every END instruction has an associated IF instruction.
Important note: Although with ADELIA type programs it is possible to use the END instruction in conjunction with the DO_WHILE instruction, for greater clarity and coherence, we recommend using the END instruction in conjunction with the IF instruction, and the REDO instruction in conjunction with the DO_WHILE instruction.
Example
IF Z_PAYMENT_CODE <> *BLANK
CHAIN PAYMENTS
*
IF PAYMENTS DOES_NOT_EXIST
PREPARE_MSG 0090 Z_PAYMENT_CODE
ANOMALY
ELSE
*
IF *LOCKED = '1'
PREPARE_MSG 0002 Z_PAYMENT_CODE
ANOMALY
END
END
END
* there are three ENDs because of three IFs