The Blank System  Message command allows  you rename the message  ID of
an  existing  message and  add  a new  message  description with  blank
text.    This  is  intended for  bothersome  messages  such  as EDT0630
('Have you tried  the modern alternative to  SEU?').  The message  will
continue  to be  sent,  but only  blanks  will appear  on the  display.
When  BLKSYSMSG is used, a confirming display  appears with the text of
the message to be blanked out.

PDM supports  a  solution for  not sending  EDT0630  by using  F18  and
setting  'Display informational  messages' to  2 =  No.   This must  be
done  for each  user  of PDM.   BLKSYSMSG  blanks the  message  for all
users and  may also  be used  on  any other  system messages  that  are
considered bothersome.

The original message  is renamed to  ORGxxxx.  The ORG  prefix (meaning
'Original')  is not  used by  the  system.   The new  blank  message is
added to the same message file.

You must have *ALLOBJ special authority to use BLKSYSMSG.

BLKSYSMSG may only be entered interactively.

A typical command would be:

            BLKSYSMSG      MSGID(EDT0630) MSGF(QPDA/QEDTMSG)

A  confirmation display  will appear with  the first level  text of the
message ID specified.  F6 must be used to confirm.

If F6  is used, the  actual implementation  duplicates the the  EDT0630
message ID to  ORG0630 in the same message file.   The original message
is blanked out for both the first and second level text.

Recovery to the original message
--------------------------------

Use RMVMSGD to remove the blanked out message:

            RMVMSGD        MSGID(xxx) MSGF(yyy)

Rename the message that is named ORGxxxx:

            RNMMSGD        MSGID(ORGxxxx) MSGF(yyy) NEWMSGID(xxxx)

BLKSYSMSG escape messages you can monitor for
---------------------------------------------

None.  Escape messages from based on functions will be re-sent.

Command parameters                                    *CMD
------------------

   MSGID         The  message ID  to be renamed  and blanked  out.  The
                 renamed  message  ID  will  be  ORGxxxx  in  the  same
                 message  file.   A  new message  is  added with  blank
                 values for the specified message ID.

   MSGF          The  qualified  name of  the  message  file containing
                 the  message  ID.    The  library  value  defaults  to
                 *LIBL.  *CURLIB may also be used.

Restrictions
------------

You must have *ALLOBJ special authority to use BLKSYSMSG.

The command may only be entered interactively.

Prerequisites
-------------

The following TAA Tools must be on your system:

     CHKALLOBJ       Check *ALLOBJ special authority
     DUPMSGD         Duplicate message description
     RSNLSTMSG       Resend last message
     RTVMSGD         Retrieve message description
     SNDCOMPMSG      Send completion message
     SNDESCINF       Send escape information
     SNDESCMSG       Send escape message

Implementation
--------------

None, the tool is ready to use.

Objects used by the tool
------------------------

   Object        Type    Attribute      Src member    Src file
   ------        ----    ---------      ----------    ----------

   BLKSYSMSG     *CMD                   TAAMSIR       QATTCMD
   TAAMSIRC      *PGM       CLP         TAAMSIRC      QATTCL
   TAAMSIRD      *DSPF                  TAAMSIRD      QATTDDS