
  PROCEDURE [XREF] jmp$get_attribute_index
    (    attribute_name: string ( * <= osc$max_name_size);
     VAR attribute_index: jmt$attribute_keys);

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