The Remove Ending  Period command removes  an ending period  ('.') from
an input  text value if  it exists and  returns a variable  without the
ending  period.   This  can be  useful  when resending  escape messages
that may have an ending period.

The OUTTXT  value must  be specified  as  *CHAR LEN(512).   The  INPTXT
value may be up to 512 bytes.

A typical series of commands would be:

            DCL        &INPTXT *CHAR LEN(512)
            DCL        &OUTTXT *CHAR LEN(512)
             .
             .         /* Some command that sends an escape */
            RCVMSG     MSGTYPE(*EXCP) MSGDTA(&INPTXT)
            RMVENDPER  INPTXT(&INPTXT) OUTTXT(&OUTTXT)
            SNDESCMSG  MSG(&OUTTXT)

RMVENDPER escape messages you can monitor for
---------------------------------------------

      TAA9891    The INPTXT value may not be all blanks

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

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

   INPTXT        The  input message text  to be  modified if  an ending
                 period  exists.   The value  may be  up to  512 bytes.
                 The value may not be all blank.

                 If the value  does not have  an ending period,  within
                 the  512  bytes, the  INPTXT  value  is moved  to  the
                 OUTTXT value.

   OUTTXT        The output  text that is returned.   The variable must
                 be declared as *CHAR LEN(512)

   LASTPOS       The last (rightmost) position  that is non-blank  that
                 was found in the  INPTXT.  It may have  been a period.
                 This  is  an optional  return  variable  that if  used
                 must be be declared as *DEC LEN(3 0).

   PERRMVD       A  *YES/*NO  return  value for  whether  a  period was
                 removed.   This is  an optional  return variable  that
                 if used must be be declared as *CHAR LEN(4).

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

Because RMVENDPER returns  a variable, the command may  only be used in
a CL type program.

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

The following TAA Tools must be on your system:

     SCNVARRGT2      Scan variable right 2
     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
   ------        ----    ---------      ----------    ----------

   RMVENDPER     *CMD                   TAAMSKN       QATTCMD
   TAAMSKNC      *PGM       CLP         TAAMSKNC      QATTCL