
  PROCEDURE [INLINE] jmp$idetermine_serv_class_abbre
    (    service_class: jmt$service_class_index;
     VAR abbrev: string (2));

?? PUSH (LISTEXT := ON) ??
      abbrev := jmv$service_classes [service_class]^.attributes.abbreviation (1, 2);
      IF abbrev (1) = ' ' THEN
        abbrev := jmv$service_classes [service_class]^.attributes.name (1, 2);
      IFEND;

  PROCEND jmp$idetermine_serv_class_abbre;

*copyc jmv$service_classes
?? POP ??
