
  PROCEDURE [XREF] pmp$cause_condition (condition_name: pmt$condition_name;
        condition_descriptor: ^pmt$condition_information;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc PMT$CONDITION_NAME
*copyc PMT$CONDITION_INFORMATION
*copyc OST$STATUS
*copyc PME$CONDITION_EXCEPTIONS
?? POP ??
