
  PROCEDURE [INLINE] jmp$idetermine_job_class_abbrev
    (    job_class: jmt$job_class;
     VAR abbrev: string (2));

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

  PROCEND jmp$idetermine_job_class_abbrev;

*copyc jmv$job_class_table_p
?? POP ??
