TAA Tools
WRKSRC          WORK SOURCE                            TAASRFC

The Work  Source  command is  a subset  like WRKMBRPDM  function.   The
intent  of the  tool is  to provide  a simple  work display  for source
members  on a  system that  does not  have the  WRKMBRPDM command  or a
similar function.    This would  be  typical in  some remote  or  small
installations.  The TAA EDTSRC command is used to edit the source.

Since  the system supports  commands such  as CRTCLPGM,  CRTPF, CRTDSPF
etc,  the  corresponding  source  may  be  edited  and objects  created
without the need for additional product commands such as CRTRPGPGM.

A typical command would be:

             WRKSRC     FILE(QCLSRC)

All source members in the first  QCLSRC file found on the library  list
would be displayed.

Options exist to:

          - Edit (Uses the TAA EDTSRC command)
          - Copy
          - Remove a member
          - Display (Uses the TAA EDTSRC command)
          - Print
          - Rename member
          - Compile (valid for CLP, CLLE, CMD, DSPF, PRTF,
              PF and LF source types)
          - Display object description (Uses TAA DSPOBJD2)

User defined options are valid (see the later discussion).

The following major difference exist versus WRKMBRPDM.

  **   A  command  line does  not  exist,  but  F21 allows  the  system
       command line function to be placed on the display.

  **   WRKSRC operates on source files only (not data files).

  **   Not  all   of  the  WRKMBRPDM  options   or  Function  keys  are

  **   EDTSRC  has  several  differences   versus  STRSEU.    See   the
       discussion with EDTSRC.

  **   A maximum of 9999 members is supported.

Option 14 = Compile

Option 14  (Compile)  differs from  the PDM  version in  that a  prompt
screen always  occurs before submitting  the job.  F4  is not supported
from the subfile display.

If  the object  already exists,  a display  similar to the  PDM display
appears  and offers  the  same Y/N  choice  of  whether to  delete  the
existing  object.   An  additional  Y/N option  exists  for whether  to
prompt for the appropriate CRTxxx command.

If  the object  does not  exist, a different  display appears  and also
allows prompting for the CRTxxx command.

User defined options

In addition to  the standard options supplied  by WRKSRC, user  options
may also be entered to perform specific functions.

A file must first be created to hold the options:

             CRTWRKSRCO   WRKSRCOLIB(xxx)

The WRKSRCP  physical and  WRKSRCL logical  files would  be created  in
the named library.

By  default,  CRTWRKSRCO  copies  standard  TAA  options  such  as  the
following to the WRKSRCP file.

           DM    DSPMSG
           FX    FIXCLPSRC
           MV    MOVCLPDCL
           IN    INDCLPDO
           PD    PRTCLPDO
           PG    PRTSRCCHG
           SO    SORTCLPDCL

The WRKSRCOPT  command  can  then  be used  to  maintain  the  file  of
options (the same display may be accessed from WRKSRC using F16):

             WRKSRCOPT    WRKSRCOLIB(xxx)

This  provides a  standard  work  display  to add,  change,  or  delete
existing options.   Any of the  TAA standard options may  be deleted or

As  with PDM,  special &  values may  be used  to insert  known values.
These include:

          &F   Source file
          &L   Source file library
          &N   Source file member
          &O   Object library
          &S   Source member type

Use F6  to add a  new command.   There  is no prompter  support when  a
command is entered.   Prompting can occur at execution  time by using a
leading  '?' in  front of  the command.   To enter  a command  into the
file, you  must know the  keywords that  you want  to use.   Enter  the
command and keywords to the WRKSRCOPT display.

For  example, to  add the  DSPMBRD command,  the command  has a  normal
syntax of:

            DSPMBRD   FILE(xxx/yyy) MBR(zzz)

You would enter:

            DSPMBRD   FILE(&L/&F) MBR(&N)

You could assign an option ID of 'DD'.

WRKSRC escape messages you can monitor for

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

CRTWRKSRCO escape messages you can monitor for

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

DLTWRKSRCO escape messages you can monitor for

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

WRKSRCOPT escape messages you can monitor for

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

WRKSRC Command parameters                             *CMD

   SRCFILE       The  qualified name of  the source file  to work with.
                 It must  be a  source file  (not a  data file).    The
                 library value defaults  to *LIBL.  A  specific library
                 or *CURLIB may also be used.

   SRCMBR        The  source member  to be  worked with.   *ALL  is the
                 default for all source members in the file.

                 A  specific  member  name  or a  generic  name  may be
                 entered  to limit  the  members  which appear  on  the

   MBRTYPE       The member  type which is  used to select  the members
                 to  be  worked with.    *ALL  is the  default  for all
                 member types.

                 A specific  member  type  may  be entered.    Use  the
                 prompter to see the supported values.

   OBJLIB        The  object  library  to  be   used  for  new  objects
                 created  by the  Compile option  and to  determine the
                 library for other options such as DSPOBJD2.

                 *SRCLIB  is  the  default  meaning  the  same  library
                 where the source file exists.

                 A specific library may be named.

CRTWRKSRCO Command parameters                         *CMD

   WRKSRCOLIB    The library  to create the  WRKSRCP and  WRKSRCL files

   SRCLIB        The  library which  contains  the TAA  source  for the
                 TAASRFCP  and TAASRFCL  DDS.   The default  is *TAAARC
                 meaning  to  used  the   source  stored  in  the   TAA

                 A  specific library may  be named,  but the  file must
                 be named QATTDDS.

   CPYTAAOPT     A   *YES/*NO  parameter   for  whether  to   copy  the
                 supplied  TAA  options  after  creating  the   WRKSRCP

                 *YES is the default to copy the TAA options.

                 *NO may be specified to not copy the TAA options.

DLTWRKSRCO Command parameters                         *CMD

   WRKSRCOLIB    The  library  where  the  WRKSRCP  and  WRKSRCL  files

WRKSRCOPT Command parameters                          *CMD

   WRKSRCOLIB    The library where the WRKSRCP and WRKSRCL exist.




The following TAA Tools must be on your system:

     ADJVAR          Adjust variable
     CHKOBJ2         Check object 2
     CHKOBJ3         Check object 3
     CPYTAADDS       Copy TAA DDS
     CRTUSRSPC       Create user space
     CVTSEUTYP       Convert SEU type
     DSPMBRD         Display member description
     DSPOBJD2        Display object description 2
     EDTSRC          Edit source
     FILEFDBCK       File feedback
     HLRMVMSG        HLL Remove message
     LOCKMSG         Lock message
     PRTSRCF         Print source file
     RCVLST          Receive last message
     RSNLSTMSG       Resend last message
     RTVDBFA         Retrieve data base file attributes
     SCNVARRGT       Scan variable right
     SNDCOMPMSG      Send completion message
     SNDDIAGMSG      Send diagnostic message
     SNDESCINF       Send escape information
     SNDESCMSG       Send escape message
     SNDSTSMSG       Send status message
     UPDPFILE        Update PFILE keyword


None, the tool is ready to use.

Objects used by the tool

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

   WRKSRC        *CMD                   TAASRFC       QATTCMD
   CRTWRKSRCO    *CMD                   TAASRFC2      QATTCMD
   DLTWRKSRCO    *CMD                   TAASRFC3      QATTCMD
   WRKSRCOPT     *CMD                   TAASRFC4      QATTCMD
   TAASRFCC      *PGM       CLP         TAASRFCC      QATTCL
   TAASRFCC2     *PGM       CLP         TAASRFCC2     QATTCL
   TAASRFCC3     *PGM       CLP         TAASRFCC3     QATTCL
   TAASRFCC4     *PGM       CLP         TAASRFCC4     QATTCL
   TAASRFCC11    *PGM       CLP         TAASRFCC11    QATTCL
   TAASRFCC12    *PGM       CLP         TAASRFCC12    QATTCL
   TAASRFCR      *PGM       RPG         TAASRFCR      QATTRPG
   TAASRFCR4     *PGM       RPG         TAASRFCR4     QATTRPG
   TAASRFCL      *FILE      LF          TAASRFCL      QATTDDS
   TAASRFCP      *FILE      PF          TAASRFCL      QATTDDS
   TAASRFCQ      *FILE      PF

TAASRFCQ  is  a  duplicate of  TAASRFCP  and  contains pre-defined  TAA
options such as FIXCLPSRC.


WRKSRC      Cmd
   TAASRFCC   CL pgm
       TAASRFCD    Display file
       TAASRFCC11  CL Pgm to do options
       TAASRFCC12  CL Pgm to do WRKSRCP options

   TAASRFCC2   CL pgm

   TAASRFCC3   CL pgm

   TAASRFCC4   CL pgm
     TAASRFCR4   RPG pgm
       TAASRFCE    Display file

Added to TAA Productivity tools October 15, 2009

Home Page Up to Top