The Display CLP Source  command displays or lists the source  for a CLP
type program (CLP,  CLP38 and CLLE).  If the  source does not exist for
a  CLP or CLP38  program (non-TAA), a prompt  occurs asking if RTVCLSRC
should be  used  and  a display  occurs  after  retrieval.   If  a  TAA
program  is specified  and  the  user is  authorized  to the  TAASRCACC
Authorization List, the source in the TAA Archive is displayed.

Only  single module CLLE programs may be  displayed.  If the source for
a  CLLE program  does  not  exist,  RTVCLSRC  cannot  be  used  as  ILE
programs do not allow retrieval.

A typical command would be:

              DSPCLPSRC PGM(xxx)

The CLP source for  the specified program would be  displayed if it can
be accessed using STRSEU in browse mode.

DSPCLPSRC escape messages you can monitor for
---------------------------------------------

      TAA9891    The source does not exist and no retrieval allowed

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

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

   PGM           The  qualified  name  of  the  program  object.    The
                 library value defaults to  *LIBL.  A specific  library
                 or *CURLIB may also be used.

                 The  program must  be  a  type  CLP, CLP38,  or  CLLE.
                 Only  single module  CLLE programs  are  supported and
                 CLLE  programs do  not allow retrieval  of the source.

                 If  the source  still  exists  where the  program  was
                 created from,  the STRSEU  command is used  to display
                 (browse mode) or print the source.

                 If  the source  does not  exist for a  non-TAA program
                 (it could  be  a  system  program),  a  prompt  occurs
                 asking  if RTVCLSRC  should be  used.   If  requested,
                 the  program  source  is  retrieved  to the  TAATMPCLP
                 source file  in  QTEMP  and  displayed  using  STRSEU.
                 The   source   file   is   retained   when   DSPCLPSRC
                 completes.

                 If  a  TAA  program  is  specified  and  the  user  is
                 authorized  to the  TAASRCACC Authorization  List, the
                 display occurs via  the DSPTAA command which  displays
                 the source from the TAA Archive.

   OUTPUT        How  to output  the  results.   *  is  the default  to
                 display the source interactively.

                 If  the  command  is entered  in  batch  or  *PRINT is
                 specified, a spooled file is output and retained.

                 The  RTVCLSRC  and  DSPTAA  functions  only  occur  if
                 DSPCLPSRC is used interactively.


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

The STRSEU command must exist on your system.

Only single  module CLP programs are  supported.  CLLE programs  do not
save the source with the object so RTVCLSRC cannot be used.

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

The following TAA Tools must be on your system:

     CHKOBJ3         Check object 3
     RSNLSTMSG       Resend last message
     RTVPGMA         Retrieve program attributes
     SNDCOMPMSG      Send completion message
     SNDESCINF       Send escape information
     SNDESCMSG       Send escape message
     SNDSTSMSG       Send status message
     TAAARC          TAA Archive

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

None, the tool is ready to use.

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

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

   DSPCLPSRC     *CMD                   TAACLTL       QATTCMD
   TAACLTLC      *PGM       CLP         TAACLTLC      QATTCL
   TAACLTLD      *FILE      DSPF        TAACLTLD      QATTDDS