Example 3: INPUT ARRAY using a dynamic array

The form definition file is the same as in .Example 1

SCHEMA shop 

MAIN

  DEFINE custarr DYNAMIC ARRAY OF RECORD LIKE customer.*
  DEFINE counter INTEGER

  FOR counter = 1 TO 500 
    LET custarr[counter].id = counter 
    LET custarr[counter].fname = "ff"||counter 
    LET custarr[counter].lname = "NNN"||counter 
  END FOR
    
  OPEN FORM f FROM "custlist"
  DISPLAY FORM f 
    
  INPUT ARRAY custarr WITHOUT DEFAULTS FROM sr_cust.*
                ATTRIBUTES ( UNBUFFERED )
      ON ROW CHANGE
        MESSAGE "Row #"||arr_curr()||" has been updated."
  END INPUT
    
END MAIN