
*copyc csc$max_field_number

  TYPE
    cst$field_number = 0 .. csc$max_field_number;

