
  TYPE
    clt$cobol_name = string (clc$max_cobol_name_size);

*copyc clc$max_cobol_name_size
