
  PROCEDURE [XREF] lop$find_command_in_program
    (    command_name: pmt$program_name;
     VAR command_dictionary_item: llt$command_dictionary_item;
     VAR library: ^SEQ ( * );
     VAR library_name: amt$local_file_name;
     VAR library_rings: amt$ring_attributes;
     VAR library_privilege: ost$name;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amt$local_file_name
*copyc amt$ring_attributes
*copyc lle$loader_status_conditions
*copyc llt$command_dictionary
*copyc ost$name
*copyc ost$status
*copyc pmt$program_name
?? POP ??

