
  PROCEDURE [XREF] pmp$receive_from_queue (qid: pmt$queue_connection;
        wait: ost$wait;
    VAR message: pmt$message;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc PMD$LOCAL_QUEUES
*copyc OST$WAIT
*copyc OST$STATUS
*copyc PME$LOCAL_QUEUE_EXCEPTIONS
?? POP ??
