
  PROCEDURE [XREF] bap$set_file_reference_abnormal
    (    file: fst$file_reference;
         exception_condition: ost$status_condition;
         request_name: string ( * <= osc$max_name_size);
         text: string ( * <= osc$max_string_size );
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc fst$file_reference
*copyc ost$status
*copyc ost$string
?? POP ??
