ADELIA |
|
|
|
|
(I/B) |
|
|
|
|
Warning: This instruction is only compatible with the Adelia version generating C.
Section for use
All
Syntax
RETURN
Description
This instruction is used to exit a called program. It has the same effect as the TERMINATE instruction.
Example
* (PROGRAM ORDER_ENTRY) |
* |
CALL CUST_WINDOW W_CUST_NAME W_CUST_CODE W_RETURN_CODE |
* |
IF W_RETURN_CODE <> 'N' |
ZZ_CUST_CODE = W_CUST_CODE |
ZZ_CUST_NAME = W_CUST_NAME |
END |
* (PROGRAM CUST_WINDOW) |
RECEIVE R_NAME R_CUSTOMER_CODE R_RETURN_CODE |
R_RETURN_CODE = *BLANK |
PROCESS 01 |
TRANSACTION 01 |
IF *F03 |
RETURN |
END |
See also the list of 4GL instructions by topic