ADELIA |
|
|
|
|
(I) |
|
|
|
|
Warning: This instruction is ignored with the C generator.
Section for use
VERIFICATION
Syntax
DUPLICATE SeriesVarId
SeriesVarId |
Þ |
SeriesVarId VarId | VarId |
Description
This instruction is used to duplicate the contents of the screen fields.
All the variables SeriesVarId whose contents can be duplicated must be indicated after this instruction.
In principle, this instruction is placed at the beginning of the VERIFICATION section.
If the duplication involves subfile data, this instruction must be placed after the MANAGE_SFL instruction.
If the field is in a subfile, the DUP key will have the effect of copying the field of the previous record.
In normal formats, the DUP key copies the last entered value in the field.
Example
*********************
VERIFICATION 02
*********************
* allows to duplicate key for date, customer, payment and shipment date
DUPLICATE ZOR_DATE ZOR_CUSTOMER ZOR_PAYMENT ZOR_SHPMT_DATE
IF ZOR_CUSTOMER = *BLANK
PREPARE_MSG 0079 ZOR_CUSTOMER
ANOMALY
END
*
MANAGE_SFL 2
* allows to duplicate key for subfile fields: item code, quantity, price and discount
DUPLICATE ZOL_ITEM ZOL_QTY ZOL_PRICE ZOL_DISCOUNT
IF ZOL_QTY = 0
PREPARE_MSG 0068 ZOL_QTY
ANOMALY
END
END_MANAGE_SFL
See also the list of 4GL instructions by topic