  VAR
    jmv$service_classes: [XREF, oss$mainframe_wired]
          array [jmt$service_class_index] of ^jmt$service_class_entry;

?? PUSH (LISTEXT := ON) ??
*copyc jmt$service_class_entry
*copyc jmt$service_class_index
*copyc oss$mainframe_wired
?? POP ??

