
  PROCEDURE [XREF] jmp$acquire_new_qfile
    (    application_name: ost$name;
         attribute_keys_p: ^jmt$results_keys;
     VAR attribute_work_area_p: ^jmt$work_area;
     VAR attribute_results_p: ^jmt$qfile_attribute_results;
     VAR system_file_name: jmt$system_supplied_name;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc jme$qfile_appl_not_permitted
*copyc jme$generic_queue_is_empty
*copyc jme$work_area_too_small
*copyc jmt$qfile_attribute_results
*copyc jmt$results_keys
*copyc jmt$system_supplied_name
*copyc jmt$work_area
*copyc ost$name
*copyc ost$status
?? POP ??
