
  PROCEDURE [XREF] jmp$read_defined_applications
    (VAR defined_applications: jmt$defined_classes;
     VAR number_of_applications: integer;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc jmt$defined_classes
*copyc ost$status
?? POP ??

