
  PROCEDURE [XREF] jmp$read_application_record
    (    application_name: jmt$application_name;
     VAR application_index: {input, output} jmt$application_index;
     VAR application_record: jmt$application_attributes;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc jmt$application_attributes
*copyc jmt$application_index
*copyc jmt$application_name
*copyc ost$status
?? POP ??
