The form definition file is the same as in
Example 1.
SCHEMA shop
MAIN
DEFINE custarr ARRAY[100] OF RECORD LIKE customer.*
DEFINE allow_insert, size INTEGER
LET custarr[1].id = 1
LET custarr[1].fname = "John"
LET custarr[1].lname = "SMITH"
LET custarr[2].id = 2
LET custarr[2].fname = "Mike"
LET custarr[2].lname = "STONE"
LET size = 2
LET allow_insert = TRUE
OPEN FORM f1 FROM "custlist"
DISPLAY FORM f1
INPUT ARRAY custarr WITHOUT DEFAULTS FROM sr_cust.*
ATTRIBUTES (COUNT=size, MAXCOUNT=50, UNBUFFERED, INSERT ROW=allow_insert)
BEFORE INPUT
MESSAGE "Editing the customer table"
BEFORE INSERT
IF arr_curr()=4 THEN
CANCEL INSERT
END IF
BEFORE FIELD fname
MESSAGE "Enter First Name"
BEFORE FIELD lname
MESSAGE "Enter Last Name"
AFTER FIELD lname
IF custarr[arr_curr()].lname IS NULL THEN
LET custarr[arr_curr()].fname = NULL
END IF
END INPUT
END MAIN