
  TYPE
    clt$field_number = 1 .. clc$max_fields;

*copyc clc$max_fields
