ADELIA |
|
|
|
|
(I) |
|
|
|
|
Section for use
INITIALIZATION
Syntax
END_ADD_SFL
Description
This instruction marks the end of a subfile add processing block.
It must be preceded by the ADD_SFL instruction, for which there must be a corresponding END_ADD_SFL instruction.
Example
LAST_NUMBER = 0
MANAGE_SFL 1
PRESENT ORDER_LINES
LAST_NUMBER = ORDER_LINE_NBR
UPD_SFL
END_MANAGE_SFL
*
* Load the line numbers and dates for additional entries
* Z_LINE_NUMBER is a subfile field
*
ADD_SFL
LAST_NUMBER = LAST_NUMBER + 1
Z_LINE_NUMBER = LAST_NUMBER
Z_DATE = *DATE
END_ADD_SFL
See also the list of 4GL instructions by topic