DLTDBFRCD       DELETE DATA BASE RECORDS               TAADBJE

 The Delete Data  Base Records command  deletes records in a  file based
 on a  value in a single field.   The user of the  command must have all
 rights  to the file.  OPNQRYF is  used internally to select the records
 to provide for  fast processing.   DLTDBFRCD provides a simple  cleanup
 function.

 The user of the command must have all rights to the file.

 A typical command would be:

              DLTDBFRCD    FILE(xxx) SELFLD(AAA) SELVAL(X)

 Any records  with a  value of 'X'  in field AAA  would be deleted.   By
 default,  '*EQ'  is  used  as the  comparison  operator.    Any  of the
 operators  such  as  *GE,  *NE,   etc  may  be  used  along  with   *CT
 (contains).  An option  exists to allow a translation  to upper case if
 the data base field may contain lower case values.

 Only  character   and  decimal  fields  are  supported.    Multi-format
 logical files are not supported.

 If the  file is  not externally  described, use  the file  name as  the
 SELFLD name.

 DLTDBFRCD escape messages you can monitor for
 ---------------------------------------------

       TAA9896    The field does not exist in the file.

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

 Audit journal entry
 -------------------

 When DLTDBFRCD  is  run, the  TAA Tool  SNDAUDE is  used internally  to
 send  a  journal entry  to  the  QAUDJRN journal  if  it  exists.   The
 journal  code assigned is U with  a type of TA.   The first 10 bytes of
 the entry will be DLTDBFRCD.

 If the  journal does not  exist, a message  is sent  to QSYSOPR.   This
 serves  as an  audit trail  that  the command  was used  to change  the
 object.

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

    FILE          The  qualified  name  of the  file  to  delete records
                  from.  The library value  defaults to *LIBL.   *CURLIB
                  may also be used.

    SELFLD        The field  name in the  file to select  on.   Only the
                  types   character,  packed,   zoned,  or   binary  are
                  supported.

                  If the  file  is  not externally  described,  use  the
                  file name as the SELFLD name.

    SELVAL        The value of  the selection field to cause  the record
                  to be deleted.

                  The  special value *BLANKS  may be  entered (beginning
                  in position 1) to select on a blank value.

                  If  the  selection  field  is  declared  as  a decimal
                  type, the value  must contain  digits and an  optional
                  decimal  point.    The  special value  *ZEROS  may  be
                  entered  (beginning in position  1) to  test for zeros
                  in the selection field.

                  The value  entered  is case  sensitive.   If  a  field
                  should be  deleted that  contains an  upper case  'A',
                  SELVAL(A)  should be  entered.   This will  not delete
                  any fields containing a lower case 'a'.

                  Conversely,  if  a  field   should  be  deleted   that
                  contains  a  lower  case  'a',   SELVAL(A)  should  be
                  entered.   This will not delete  any fields containing
                  an upper case 'A'.

                  If  the data  base has  mixed case,  see the TRANSLATE
                  option.

    SELOP         The operation to be  used for selection.   The default
                  is *EQ.   The other  values that may be  specified are
                  *GE  *GT  *LE *LT,  *NE or  *CT  (contains).   The *CT
                  function  scans  the  field  in  the  record  for  the
                  select  value  and  may  only  be  used  on  character
                  fields.

    MBR           The  member to  delete records from.   The  default is
                  *FIRST for the first member in the file.

    TRANSLATE     Whether to use  the translation table  defined by  the
                  TAA Tool  RTVTRNTBL to translate  to upper case.   The
                  default is  *NO.  Use  the default when  the data base
                  field to select on is decimal.

                  The  SELVAL  field  value  may  be  entered  in either
                  upper or  lower case to  match your  data base  value.
                  If a match will always occur, use TRANSLATE(*NO)

                  TRANSLATE(*YES)  should  be  specified when  the  data
                  base   field  contains  both   lower  and  upper  case
                  characters.    This   causes  the  translation   table
                  defined for  the TAA  Tool RTVTRNTBL  to be  used (the
                  default   is  QSYSTRNTBL  in  QSYS)   on  the  OPNQRYF
                  command.   Translation  forces  the  data  base  field
                  value  to  all   upper  case  characters   before  the
                  comparison is made.

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

 The maximum number of fields in a file is 998.

 Only character and decimal fields are supported for selection.

 Multi-format logical files are not supported.

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

 The following TAA Tools must be on your system:

      EDTVAR          Edit variable
      HLRMVMSG        HLL Remove message
      RTVDBFA         Retrieve data base file attributes
      RTVFLDA         Retrieve data base field attributes
      RTVTRNTBL       Retrieve Translate table
      RTVVALA         Retrieve CLP variable value attributes
      SNDAUDE         Send audit entry
      SNDCOMPMSG      Send completion message
      SNDESCMSG       Send escape message

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

 None, the tool is ready to use.

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

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

    DLTDBFRCD     *CMD                   TAADBJE       QATTCMD
    TAADBJEC      *PGM       CLP         TAADBJEC      QATTCL
    TAADBJER      *PGM       RPG         TAADBJER      QATTRPG

Added to TAA Productivity Tools February 28, 2000


Home Page

Last modified on March 10, 2014 © 1995, 2014 - TAA Tools, Inc.