The Return Current Library  command is intended for the  case where you
want  to temporarily  set  the current  library  within a  job.   After
retrieving  the  current value  and setting  your own  value, resetting
the current library is  made complex by the  fact the job may have  had
either  a  named  current  library  or use  *NONE  (*CRTDFT  is  used).
RTNCURLIB handles the resetting.

A typical series of commands would be:

             DCL           &CURLIB *CHAR LEN(10)
              .
             RTVJOBA       CURLIB(&CURLIB)
             CHGCURLIB     CURLIB(xxx)
              .
             RTNCURLIB     CURLIB(&CURLIB)

RTNCURLIB may only be used in a CL program.

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

   CURLIB        The  library  to be  set to  the  current library.   A
                 name or *NONE may be specified.

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

The command is arbitrarily  restricted so it may only  be used in a  CL
program.   The system command  CHGCURLIB should be  used interactively.

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

The following TAA Tools must be on your system:

     RSNLSTMSG       Resend last message

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

None, the tool is ready to use.

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

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

   RTNCURLIB     *CMD                   TAALIBY       QATTCMD
   TAALIBYC      *PGM       CLP         TAALIBYC      QATTCL