The Create Standard Source Files command creates standard source
files such as QCLSRC in a specified library.  This simplifies
creating a new library for programmer use.  The files created and the
assigned source lengths may be specified in a Constant Array.

A typical command would be:

             CRTSTDSRCF    LIB(xxx)

The standard source file names found in the CRTSTDSRCF data area in
TAASECURE would be created.

Source files to be created
--------------------------

The CRTSTDSRCF data area in TAASECURE determines the source files and
the record lengths to be created.

Use EDTCONARR to review or change the values:

             EDTCONARR    DTAARA(TAASECURE/CRTSTDSRCF)

The shipped values are:

             File        Record Length
             ----        -------------

             QCMDSRC          92
             QCLSRC           92
             QDDSSRC          92
             QRPGSRC          92
             QRPGLESRC       112

Up to 44 entries may be made.

For typical names such as QCLSRC, a standard text description is
used.  If the name is not typical, a default text description is
assigned.

CRTSTDSRCF escape messages you can monitor for
----------------------------------------------

      TAA9895    A source file to be created already exists.

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

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

   LIB           The library to contain the source files that will be
                 created.

   BYPEXIST      Bypass existing files.

                 If *NO, then all the files specified in
                 TAASECURE/CRTSTDSRCF are checked.  If any exist then
                 none are created and the TAA9895 escape message is
                 sent.

                 If *YES, then existing files are skipped and only
                 the files that don't exist are created.

                 The default is *NO.


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

None.

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

The following TAA Tools must be on your system:

     CHKOBJ3         Check object 3
     EDTVAR          Edit variable
     SNDCOMPMSG      Send completion message
     SNDESCMSG       Send escape message
     SNDSTSMSG       Send status message

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

None, the tool is ready to use.

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

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

   CRTSTDSRCF    *CMD                   TAASREI       QATTCMD
   TAASREIC      *PGM       CLP         TAASREIC      QATTCL
   TAASREIC2     *PGM       CLP         TAASREIC2     QATTCL