TAA Tools
RTVDBFRR        RETRIEVE DATA BASE FILE BY RR          TAADBLL

The  Retrieve Data  Base  File  by  Relative Record  command  allows  a
retrieval  of the  contents  of up  to  10 fields  from a  record  in a
physical  data base file using  a RR number.   Both character (up to 50
bytes)  and  decimal fields  are  supported.    The  command  allows  a
general purpose  approach that may be  used to avoid having  to write a
program.

A typical series of commands would be:

             DCL           &VALUE1 *CHAR LEN(50)
             DCL           &VALUE2 *CHAR LEN(50)
              .
             RTVDBFRR      FILE(xxx) RR(*FIRST) FIELD1(yyy)
                             VALUE1(&VALUE1) FIELD2(zzz)
                             VALUE2(&VALUE2)

The  information about the two fields for  the first record in the file
would be returned.   The data  for either character  or decimal  fields
is left adjusted in the return values.

RTVDBFRR escape messages you can monitor for
--------------------------------------------

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

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

   FILE          The   qualified  name   of   the   file  to   retrieve
                 information  from.    The  library  value defaults  to
                 *LIBL.   *CURLIB or  a specific  library may  also  be
                 used.

   MBR           The member of  the file to retrieve  information from.
                 The  default is *FIRST.   *LAST  or a  specific member
                 may also be used.

   RR            The  relative record to  be accessed.   The default is
                 *FIRST for the first  record in the file.  *LAST  or a
                 specific relative record number may also be used.

   FIELD1        One  of  the  10  field   names  in  the  file  to  be
                 accessed.

   VALUE1        The  value  of  the field  named  in  FIELD1.   Either
                 character or  decimal fields  may be  retrieved.   The
                 data  is  left   justified.    This  is   an  optional
                 parameter  that  if used  must be  specified  as *CHAR
                 LEN(50).

   FIELD2        One  of  the  10  field  names  in  the  file  to   be
                 accessed.

   VALUE2        The  value of  the  field  named  in FIELD2.    Either
                 character  or decimal  fields may  be retrieved.   The
                 data   is  left  justified.     This  is  an  optional
                 parameter that  if  used must  be specified  as  *CHAR
                 LEN(50).

   FIELD3        One  of  the  10  field   names  in  the  file  to  be
                 accessed.

   VALUE3        The  value  of  the field  named  in  FIELD3.   Either
                 character or  decimal fields  may be  retrieved.   The
                 data  is  left   justified.    This  is   an  optional
                 parameter  that  if used  must be  specified  as *CHAR
                 LEN(50).

   FIELD4        One  of  the  10  field  names  in  the  file  to   be
                 accessed.

   VALUE4        The  value of  the  field  named  in FIELD4.    Either
                 character  or decimal  fields may  be retrieved.   The
                 data   is  left  justified.     This  is  an  optional
                 parameter that  if  used must  be  specified as  *CHAR
                 LEN(50).

   FIELD5        One  of  the  10  field   names  in  the  file  to  be
                 accessed.

   VALUE5        The  value  of  the field  named  in  FIELD5.   Either
                 character or  decimal fields  may be  retrieved.   The
                 data  is  left   justified.    This  is   an  optional
                 parameter  that  if used  must be  specified  as *CHAR
                 LEN(50).

   FIELD6        One  of  the  10  field  names  in  the  file  to   be
                 accessed.

   VALUE6        The  value of  the  field  named  in FIELD6.    Either
                 character  or decimal  fields may  be retrieved.   The
                 data   is  left  justified.     This  is  an  optional
                 parameter that  if  used must  be specified  as  *CHAR
                 LEN(50).

   FIELD7        One  of  the  10  field   names  in  the  file  to  be
                 accessed.

   VALUE7        The  value  of  the field  named  in  FIELD7.   Either
                 character or  decimal fields  may be  retrieved.   The
                 data  is  left   justified.    This  is   an  optional
                 parameter  that  if used  must be  specified  as *CHAR
                 LEN(50).

   FIELD8        One  of  the  10  field  names  in  the  file  to   be
                 accessed.

   VALUE8        The  value of  the  field  named  in FIELD8.    Either
                 character  or decimal  fields may  be retrieved.   The
                 data   is  left  justified.     This  is  an  optional
                 parameter that  if  used must  be  specified as  *CHAR
                 LEN(50).

   FIELD9        One  of  the  10  field   names  in  the  file  to  be
                 accessed.

   VALUE9        The  value  of  the field  named  in  FIELD9.   Either
                 character or  decimal fields  may be  retrieved.   The
                 data  is  left   justified.    This  is   an  optional
                 parameter  that  if used  must be  specified  as *CHAR
                 LEN(50).

   FIELD10       One  of  the  10  field  names  in  the  file  to   be
                 accessed.

   VALUE10       The  value of  the  field named  in  FIELD10.   Either
                 character  or decimal  fields may  be retrieved.   The
                 data   is  left  justified.     This  is  an  optional
                 parameter that  if  used must  be specified  as  *CHAR
                 LEN(50).

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

  **   Because  the command  returns  variables, RTVDBFRR  may only  be
       used in a CL program.

  **   Only a physical data file (not a source file) may be used.

  **   The maximum supported file length is 9999 bytes.

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

The following TAA Tools must be on your system:

     CHKOBJ3         Check object 3
     HLRMVMSG        HLL Remove message
     RSNLSTMSG       Resend last message
     RTVDBFA         Retrieve data base file attributes
     RTVFLDARR       Retrieve field array
     SNDESCINF       Send escape information
     SNDESCMSG       Send escape message

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

None, the tool is ready to use.

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

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

   RTVDBFRR      *CMD                   TAADBLL       QATTCMD
   TAADBLLC      *PGM       CLP         TAADBLLC      QATTCL
   TAADBLLR      *PGM       RPG         TAADBLLR      QATTRPG
					

Added to TAA Productivity tools January 1, 2007


Home Page Up to Top