  PROCEDURE [XREF] pmp$cause_task_condition
    (    condition_name: pmt$condition_name;
         condition_descriptor: ^pmt$condition_information;
         notify_scl: boolean;
         notify_debug: boolean;
         propagate_to_parent: boolean;
         call_default_handler: boolean;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc pme$condition_exceptions
*copyc pmt$condition_information
*copyc pmt$condition_name
*copyc ost$status
?? POP ??

