

  TYPE
    ift$code_set_name_size = 1 .. ifc$max_code_set_name_size;

  TYPE
    ift$code_set_name = record
      size: ift$code_set_name_size,
      value: string (ifc$max_code_set_name_size),
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc ifc$terminal_constants
?? POP ??
