
  PROCEDURE [XREF] qfp$get_application_name
    (    output_destination_usage: jmt$destination_usage;
     VAR application_name: ost$name);

?? PUSH (LISTEXT := ON) ??
*copyc jmt$destination_usage
*copyc ost$name
?? POP ??
