Example 1: INPUT ARRAY with empty record list

Form definition file (custlist.per):

SCHEMA shop 
LAYOUT
TABLE
{
 Id       First name   Last name 
[f001    |f002        |f003        ]
[f001    |f002        |f003        ]
[f001    |f002        |f003        ]
[f001    |f002        |f003        ]
[f001    |f002        |f003        ]
[f001    |f002        |f003        ]
} 
END
END
TABLES
  customer 
END
ATTRIBUTES
  f001 = customer.id ;
  f002 = customer.fname ;
  f003 = customer.lname, NOT NULL, REQUIRED ;
END
INSTRUCTIONS
  SCREEN RECORD sr_cust( customer.* );
END

Program source code:

SCHEMA shop 

MAIN
  DEFINE custarr DYNAMIC ARRAY OF RECORD LIKE customer.*

  OPEN FORM f FROM "custlist"
  DISPLAY FORM f 

  INPUT ARRAY custarr WITHOUT DEFAULTS FROM sr_cust.*

END MAIN