The Print  Source  Type command  prints the  standard  source types  as
defined  by SEU  and the  corresponding source  file that  is used.   a
supplied  program  may  be called  to  pass  back three  arrays  of the
information  (source  type,  source  file,  and  description).     Some
defined  source   types  have  no  corresponding  file   and  *NONE  is
returned.

The command has no parameters and would be entered as:

             PRTSRCTYP

The  SRCTYP spooled file would be output  with one line per source type
and its corresponding source file.

PRTSRCTYP escape messages you can monitor for
---------------------------------------------

None, but escape messages from system commands will be re-sent.

Supported source types
----------------------

The supported list of  source types is  the combined list as  described
in the  help text for the  WRKMBRPDM command MBRTYPE parameter  and the
help text  for the 'Type' field from  the Programmers menu (STRPGMMNU).

The Programmers Menu  supports a few  source types that do  not have  a
corresponding file  name (they are  described in the  help text, but  a
file  name is required).   For  example, the  types CLE and  QMFORM are
valid, but do not have a corresponding file name.

WRKMBRPDM  defines  a few  types that  are not  on the  Programmer Menu
such as  BASP, MNUDDS, and  QRY38.   In some  cases, *NONE is  returned
for the file name.

For a  complete list of the  *NONE values, see the  spooled file output
of PRTSRCTYP.

Accessing the array information from a program
----------------------------------------------

The  TAASRDWR  program contains  the  two  arrays of  source  types and
corresponding source file  names.   You may call  the program  directly
and receive back both arrays.

Each array  is defined  with 200  10 byte  elements (2000 bytes  each).
There  are  blank  entries at  the  end  of each  array.    If you  are
sequentially processing  thru the  array, the  first blank  entry  will
signal the end of the array.

The source type array entries are in sequence.

The following  is  RPG code  that you  may  copy into  your program  to
access the two arrays:

     E                    TYP       200 10  AFIL    10   Type/File
     E                    TXT       200 45               Text descrp
     .
     C                     CALL 'TAASRDWR'                 Get array
     C                     PARM           TYP              Src types
     C                     PARM           FIL              Files
     C                     PARM           TXT              Text descrp

The  following  is CL  code  that you  may  copy into  your  program to
access the two arrays:

             DCL        &TYP *CHAR LEN(2000)
             DCL        &FIL *CHAR LEN(2000)
             DCL        &TXT *CHAR LEN(9000)
              .
             CALL       PGM(TAATOOL/TAASRDWR) PARM(&TYP &FIL &TXT)

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

None.

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

None.

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

The following TAA Tools must be on your system:

     RTVSYSVAL3      Retrieve system value 3
     SNDCOMPMSG      Send completion message

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

None, the tool is ready to use.

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

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

   PRTSRCTYP     *CMD                   TAASRDW       QATTCMD
   TAASRDWC      *PGM       CLP         TAASRDWC      QATTCL
   TAASRDWR      *PGM       RPG         TAASRDWR      QATTRPG
   TAASRDWR2     *PGM       RPG         TAASRDWR2     QATTRPG

The   TAASRDWR   program   contains   the   array   of   source  types,
corresponding source files, and descriptions.