?? RIGHT := 110 ??
?? NEWTITLE := 'NOS/VE Program Control: Broadcast UNSEEN_MAIL Condition' ??
MODULE pmm$broadcast_unseen_mail;

{
{ PURPOSE:
{   This module contains the subsystem program interface to broadcast unseen_mail.
{

?? NEWTITLE := 'Global Declarations Referenced in this Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc ost$status
*copyc ost$user_identification
?? POP ??
*copyc jmp$send_job_message
?? OLDTITLE ??
?? NEWTITLE := '[XDCL, #GATE] pmp$broadcast_unseen_mail', EJECT ??
*copyc pmh$broadcast_unseen_mail

{ NOTE:
{   This request always returns normal status.

  PROCEDURE [XDCL, #GATE] pmp$broadcast_unseen_mail
    (    recipient_user: ost$user_identification;
     VAR status: ost$status);

    VAR
      ignore_status: ost$status,
      job_message: jmt$job_message;

      status.normal := TRUE;

      job_message.message_kind := jmc$jmk_unseen_mail_message;
      job_message.unseen_mail_message.user_id := recipient_user;
      jmp$send_job_message (pmc$null_mainframe_id, job_message, ignore_status);

  PROCEND pmp$broadcast_unseen_mail;
?? OLDTITLE ??
MODEND pmm$broadcast_unseen_mail;

