Aubit4GL allows you to define a new type once then refer to that type whenever you need to create a variable or parameter of that type. e.g.
DEFINE NEW TYPE staff
RECORD
staffno INTEGER,
surname CHAR(20),
firstname CHAR(20),
addr1 CHAR(20),
....
END RECORD
DEFINE person staff
LET person.staffno = 205
LET ....
...
OUTPUT REPORT stafflist( staff )
Prev Section 14.10: Map Files Up Chapter 14: ExtensionsSection 14.12: Variable IDs Next