The Capture  Job Attributes  command and  the companion command  Return
Job  Attributes allow you  to protect  your function from  a subprogram
which  changes  the  job  attributes  and  then  does  not  change  the
attributes back.

        **************************************************
        *                                                *
        *     Due to the longer library list function    *
        *     in V5R1M0, a data area is no longer used   *
        *     to store the job attributes.               *
        *     Instead a *USRSPC object is used.          *
        *     The parameter name continues as DTAARA.    *
        *                                                *
        **************************************************

To use CAPJOBA,  you must  name a data  area which  will be created  in
QTEMP.  The typical sequence is:

           CAPJOBA    DTAARA(SAV1)
           CALL       PGM(X)
           RTNJOBA    DTAARA(SAV1)

The CAPJOBA command  uses RTVJOBA to extract all  of the job attributes
and  places them in  the named area (now  a *USRSPC) in  QTEMP.  If the
User Space does not exist, it is created.

The RTNJOBA command  extracts the  attributes from the  User Space  and
uses CHGJOB and  CHGLIBL to reset the attributes to  the saved version.

If  the sub  program  performs any  CHGJOB activity,  the  higher level
program is protected.

Some parameters  such as  TSEPOOL and  DEVRCYACN cannot  be changed  in
batch.  If RTNJOBA is run in batch, the parameters are ignored.

The following RTVJOBA parameters  are not reset because they  cannot be
set by CHGJOB):

             ACGCDE
             TYPE
             RTNCDE
             ENDSTS
             SBMMSGQ and SBMMSGQLIB
             SYSLIBL
             CURUSER
             SUBTYP
             JOBMSGQMX
             DFTCCSID
             CYMDDATE
             DECFMT
             ASPGRP
             DATETIME
             TIMZON
             TIMZONABBR
             TIMZONFULL
             TIMOFFSET
             THRRSCAFN
             RSCAFNGRP

CAPJOBA command parameters                            *CMD
--------------------------

   DTAARA        The  name  of  the User  Space  in  QTEMP  to be  used
                 (prior  to V5R1M0  a *DTAARA was  used).   If the User
                 Space does  not  exist, it  is automatically  created.
                 The length is 5000 bytes.

RTNJOBA command parameters                            *CMD
--------------------------

   DTAARA        The  name  of the  User  Space  in  QTEMP to  be  used
                 (prior  to V5R1M0 a *DTAARA was used).   It must be at
                 least 5000  bytes in  length and  must  and have  been
                 filled by the CAPJOBA command.

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

The following TAA Tools must be on your system:

          SNDCOMPMSG      Send completion message

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

None, the tool is ready to use.

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

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

   CAPJOBA       *CMD                       TAAJOBM       QATTCMD
   RTNJOBA       *CMD                       TAAJOBM2      QATTCMD
   TAAJOBMC      *PGM           CLP         TAAJOBMC      QATTCL
   TAAJOBMC2     *PGM           CLP         TAAJOBMC2     QATTCL

Structure
---------

CAPJOBA     Cmd
   TAAJOBMC   CL

RTNJOBA     Cmd
   TAAJOBMC2  CL