?? PUSH (LISTEXT := ON) ??
*copyc cmt$channel_type
?? POP ??

  PROCEDURE [INLINE] cmp$convert_channel_type
    (    channel_type: cmt$channel_type;
     VAR string_representation: string (11));

?? PUSH (LISTEXT := ON) ??

     string_representation :=  ' ';
     CASE channel_type OF
     = cmc$170_channel =
       string_representation (1, 11) := '170_CHANNEL';
     = cmc$ici_channel =
       string_representation (1, 11) := 'ICI_CHANNEL';
     = cmc$isi_channel =
       string_representation (1, 11) := 'ISI_CHANNEL';
     = cmc$ipi_channel =
       string_representation (1, 11) := 'IPI_CHANNEL';
     CASEND;
  PROCEND cmp$convert_channel_type;
?? POP ??
