The Fix Data Base Field changes a character field (or an entire
record) in a member to trim leading blanks, remove specified
characters, and translate characters. A single field may be used for
selection. FIXDBFFLD may be useful when data is received from
another system that contains unwanted characters.
Only a user with all rights to the file may use FIXDBFFLD.
A typical command would be:
FIXDBFFLD FILE(xxx) UPDFLD(yyy)
TRMLDGBLK(*YES)
RMVCHAR(XYZ)
FROMCHAR(#$) TOCHAR(@_)
The UPDFLD field name would be checked for each record in the file.
Leading blanks would be trimmed off (data is left adjusted). If the
characters X, Y, or Z are found, they would be removed and the data
shifted left. If a '#' character is found, it would be translated to
'@'. If a '$' character is found, it would be translated to '_'.
For example, the following describes a field value before and after.
Before ' AYB#C'
After 'AB@ '
The completion message will describe how many records were processed
and how many were changed.
The sequence of processing is:
- Trim leading blanks
- Remove characters
- Translate characters
FIXDBFFLD escape messages you can monitor for
---------------------------------------------
None. Escape messages from based on functions will be re-sent.
FIXDBFFLD Command parameters *CMD
----------------------------
FILE The qualified name of the file to be processed. The
library value defaults to *LIBL. A specific library
or *CURLIB may also be used.
The file must not have null fields defined and must
not exceed 5000 bytes of record length.
UPDFLD The name of the field to be updated. It must be a
character field of 1000 bytes or less. For
externally described files, a field must be named.
The special value *RCD may be entered if the file is
not externally described. All positions within the
record are subject to change.
TRMLDGBLK A *YES/*NO value for whether leading blanks should
be trimmed.
*NO is the default to not trim any leading blanks.
*YES may be specified to trim leading blanks. The
data is shifted to the left.
RMVCHAR The characters to be removed.
*NONE is the default to not remove any characters.
A list of up to 50 characters may be specified. If
a character is found, the character is removed and
the data is shifted to the left.
A leading or trailing blank is not valid. An
embedded blank is valid such as '$ T'. A hex value
may be entered such as X'40A2E9'
FROMCHAR The list of characters to be translated from. Up to
50 characters may be entered. The From character is
translated to the corresponding position in the
TOCHAR parameter.
The FROMCHAR value may not contain an embedded or
trailing blank. Hex values may be entered.
The FROMCHAR and TOCHAR values must be the same
length.
TOCHAR The list of characters to be translated to. Up to
50 characters may be entered. The From character is
translated to the corresponding position in the
TOCHAR parameter.
A leading or trailing blank is not valid. An
embedded blank is valid. A hex value may be
entered.
MBR The member to be processed. *FIRST is the default
for the first member in the file. A specific name
or *LAST may be entered.
SELFLD The field to select. The default is *NONE meaning
all records in the file will be processed.
Any type of field may be specified. Only those
records selected by the SELOP and SELVAL values will
be processed.
Selection occurs via the use of OPNQRYF.
SELOP The selection operator.
*EQ is the default which is ignored if SELFLD(*NONE)
is used. The other boolean values may be entered as
well as *CT (contains).
SELVAL The selection value. Up to 20 bytes may be entered.
If the selection is on a blank value, enter *BLANKS.
Restrictions
------------
** Only a user with all rights to the file may use FIXDBFFLD.
** The file must not have null fields.
** The record length must be 5000 bytes or less.
Prerequisites
-------------
The following TAA Tools must be on your system:
CHKOBJ3 Check object 3
EDTVAR Edit variable
HLRMVMSG HLL Remove message
RSNLSTMSG Resend last message
RTVDBFA Retrieve data base file attributes
RTVFLDA Retrieve field attributes
RTVVALA Retrieve value attributes
SNDCOMPMSG Send completion message
SNDESCINF Send escape information
SNDESCMSG Send escape message
SNDJLGMSG Send job log message
Implementation
--------------
None, the tool is ready to use.
Objects used by the tool
------------------------
Object Type Attribute Src member Src file
------ ---- --------- ---------- ----------
FIXDBFFLD *CMD TAADBMC QATTCMD
TAADBMCC *PGM CLP TAADBMCC QATTCL
TAADBMCR *PGM RPG TAADBMCR QATTRPG
|
