
  PROCEDURE [XREF] sfp$initiate_resource_condition
    (    limit_chain_entry: ^sft$limit_chain_entry;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc ost$status
*copyc sfe$limit_condition_codes
*copyc sft$limit_chain_entry
?? POP ??
