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
supported.
** 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
changed.
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
display.
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
in.
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
Archive.
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
file.
*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
exist.
WRKSRCOPT Command parameters *CMD
----------------------------
WRKSRCOLIB The library where the WRKSRCP and WRKSRCL exist.
Restrictions
------------
None.
Prerequisites
-------------
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
Implementation
--------------
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
TAASRFCD *FILE DSPF TAASRFCD QATTDDS
TAASRFCE *FILE DSPF TAASRFCE QATTDDS
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.
Structure
---------
WRKSRC Cmd
TAASRFCC CL pgm
TAASRFCR RPG Pgm
TAASRFCD Display file
TAASRFCC11 CL Pgm to do options
TAASRFCC12 CL Pgm to do WRKSRCP options
CRTWRKSRCO Cmd
TAASRFCC2 CL pgm
DLTWRKSRCO Cmd
TAASRFCC3 CL pgm
WRKSRCOPT Cmd
TAASRFCC4 CL pgm
TAASRFCR4 RPG pgm
TAASRFCE Display file
|
