The Trim  Leading Blanks command  trims off the  leading blanks from  a
CL  program variable and  returns the left  adjusted value in  the same
variable.

Similar commands are RMVCHAR and TRIM.

The variable must be declared as 512 bytes.

The command would be coded as:

               DCL         &VAR *CHAR LEN(512)
                .
               TRMLDGBLK   VAR(&VAR)

For  example, if the variable contained '  ABCDE ' it would be returned
as 'ABCDE '

It is  not considered  an error to  pass a  value that  has no  leading
blanks.   If an all blank value  is passed, an escape  message is sent.

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

   VAR           The  variable to be  trimmed.  It must  be declared as
                 *CHAR LEN(512).

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

The command can only be entered in a CL program.

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

The following TAA Tools must be on your system:

         SNDESCMSG     Send escape message

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

None, the tool is ready to use.

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

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

   TRMLDGBLK     *CMD                       TAACLPU       QATTCMD
   TAACLPU       *PGM           CLP         TAACLPUC      QATTCL