
  TYPE
    clt$cobol_name_reference = string ( * <= clc$max_cobol_name_size);

*copyc clc$max_cobol_name_size
