The Extract Qualified Job  Name command accepts an input  value such as
'123456/USERA/JOB1' and  returns separate variables for  JOB, USER, and
JOBNBR.   If your  program is attempting to  parse a message containing
a qualified job name, EXTQLFJOB may be helpful.

A typical series of commands would be:

             DCL        &JOB *CHAR LEN(10)
             DCL        &USER *CHAR LEN(10)
             DCL        &JOBNBR *CHAR LEN(6)
              .
             EXTQLFJOB  INPVAL(&inpval) JOB(&JOB) USER(&USER) +
                          JOBNBR(&JOBNBR)

Up to  100 characters may  be entered  for INPVAL.   A valid  qualified
job  name must  exist  (it must  contain  2 '/'  characters).   Leading
blanks  and excess characters (following the  blank that identifies the
end of the qualified name) are  ignored.  Apostrophes are ignored.   No
check is made for valid names or job number.

EXTQLFJOB escape messages you can monitor for
---------------------------------------------

      CPF9898    An invalid input value exists.

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

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

   INPVAL        The  value to  extract  the qualified  job name  from.
                 Up  to  100  characters  may  be  specified.   Leading
                 blanks and  excess  characters  (following  the  blank
                 that identifies  the end  of the  qualified name)  are
                 ignored.  Apostrophes are ignored.

   JOB           The job  name within the qualified job  name.  This is
                 an  optional return  parameter that  if specified must
                 be declared as *CHAR LEN(10).

   USER          The user  name within  the qualified job  name.   This
                 is  an optional  return  parameter  that if  specified
                 must be declared as *CHAR LEN(10).

   JOBNBR        The  job number within  the qualified job  name.  This
                 is an  optional  return parameter  that  if  specified
                 must be declared as *CHAR LEN(6).

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

Because EXTQLFJOB  returns variables, EXTQLFJOB may  only be used  in a
CL program.

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

The following TAA Tools must be on your system:

     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
   ------        ----    ---------      ----------    ----------

   EXTQLFJOB     *CMD                   TAACLRV       QATTCMD
   TAACLRVC      *PGM       CLP         TAACLRVC      QATTCL