PRTDB           PRINT DATA BASE FILE                   TAADBID

 The Print Data  Base file command  allows you to print  specific fields
 from a  file without creating  a program or  query.  The  field name is
 used  as  the  column  heading  with  an  option  for  the  DDS  COLHDG
 information.  Any decimal  fields are added, averaged, and  the maximum
 and  minimum values  are shown.   PRTDB  is useful  for  programmers or
 simple reports.

 The  default sequence of  the data is  based on the access  path of the
 file.   A specific  relative record  number may  be used  as the  start
 record.

 The SORTDBF TAA command may be used before listing.

 Six commands are provided.

   **   PRTDB.  Prompts for fields to be listed.

   **   PRTDB2.  Lists all fields.

   **   PRTDB3.  Lists all fields and outputs spooled file.

   **   PRTDBS.  Prompts for SORTDBF and fields to be listed.

   **   PRTDB2S.  Prompts for SORTDBF and lists all fields.

   **   PRTDB3S.   Prompts for SORTDBF, lists  all fields and  outputs a
        spooled file.

 A typical command would be:

             PRTDB   FILE(xxx)

 By  default, a subfile  of the fields  in the file  would be displayed.
 You may select those  that you want  to print and  use the 'Sel'  field
 to sequence  the fields as  they will be  printed left to  right across
 the page.

 A technique  that can be used is  to enter 'X' in the  'Sel' column for
 the  desired fields and  then press Enter.   The selected fields appear
 at the  top and the  'Sel' column is  filled with 010,  020, etc.   You
 can then key over the entry to change the sequence.

 When  no more changes  occur in  the 'Sel'  field, the  selected fields
 are passed to the print program.

 You  may optionally use the  F6 key to request  'all fields' or specify
 FIELDS(*ALL) on the command.

 Decimal fields are edited  using the Edit Code  assigned to the  field.
 If none exists:

   **   If the field has 0 decimals, the Z edit code is used.

   **   If the field has some decimals, the 1 edit code is used.

 If  PRTDB  is run  interactively,  the  spooled  file is  displayed  by
 default using DSPSPLF and will still exist when DSPSPLF is ended.

 If   any  decimal   fields  are   printed,  totals   are  automatically
 accumulated and printed (X  and Y Edit Code  fields are excluded).   If
 no edit  code exists, L  is used.   When the  last record is  processed
 and there  is still room on  the page, a special record  is output with
 a  dash in position 2.   This assists in reading  the next set of lines
 with DSPSPLF.  If there is not  enough room on the page, a new  page is
 used for  the totals and appears  with the normal heading.   The column
 heading  lines  are  output  followed by  4  lines  with  the following
 description appearing in positions 1-3.

       Tot    =   Totals of the decimal fields
       Avg    =   Average amount in the decimal fields
       Max    =   Maximum value in the decimal field
       Min    =   Minimum value in the decimal field

 If you had  taken the  default to prompt  for the fields  in the  file,
 the actual  generated command will appear  as a message on  the command
 entry line.   This simplifies re-running with  the exact same values or
 allows a modification of the values  or inclusion in a CL program  (see
 the CPYJOBLOG TAA Tool).

 You may also  name a list  of fields or use  the special value  *ALL to
 print all fields in the file.

 The  LINEWIDTH parameter  which  defaults to  378 controls  how  wide a
 print  line will  be generated.   The default  allows you  to display a
 wide  print  line.   Any  data  beyond  the  value  specified  will  be
 truncated.   If you want  to print the data  and do not  have a printer
 that will print 378 wide, you may:

   **   Use PRTDB again and specify the correct line width value.

   **   Use  the  TCTSPLF to  truncate the  spooled  file.   The command
        re-prints the spooled file to a shorter width.

 Considerations
 --------------

   **   Because the RPG  processing program  must allow  for any  length
        of file (up  to 9999), PRTDB cannot  be used with OPNQRYF.   The
        PRTDBS,   PRTDB2S,  and  PRTDB3S  commands   provide  a  similar
        function as OPNQRYF  by prompting for  the TAA SORTDBF  command.

   **   Because PRTDB  must be very  general purpose,  it should not  be
        used on  a large number of records.   A specific program will be
        much more efficient in processing a large number of records.

 PRTDB2 Command
 --------------

 The  PRTDB2 command  is the same  function as PRTDB  except the default
 for FIELDS  is *ALL rather  than *PROMPT.   This allows  you to  simply
 name a file and get results such as:

              PRTDB2    FILEA

 PRTDB3 Command
 --------------

 The PRTDB3  command is  the same function  as PRTDB except  the default
 for  FIELDS is *ALL rather  than *PROMPT and DSPSPLF(*NO)  is used as a
 default.  This allows you to  simply name a file and spool the  results
 such as:

              PRTDB3    FILEA

 The intent of PRTDB3 is for use with the JOBTALK tool.

 PRTDBS, PRTDB2S, and PRTDB3S commands
 -------------------------------------

 The  commands with  an  S on  the  end  are the  same  function as  the
 command  without  the  S  except that  a  prompt  for  the TAA  SORTDBF
 command will appear.

 For example, the  PRTDBS command  is the  same function  as PRTDB  with
 the addition of a prompt for the TAA SORTDBF command.

 PRTDBS begins with  the use of DSPFMT to  list the fields in  the file.
 This allows a  review of the fields that will  need to be specified for
 the  SORTDBF  command.   After  reviewing or  if  you already  know the
 field names to be used, press F3.

 The  SORTDBF  prompt will  appear  which  will  allow  you  to  specify
 selection and  sort criteria.  The  output file is always  TAATMPDBF in
 QTEMP.

 When  the SORTDBF function  is complete, a  prompt will  appear for the
 PRTDB command.  Additional options may be taken on the command.

 If FIELDS(*PROMPT)  is used (it  is the  default), the  list of  fields
 will appear  for the file  and you  may select those  to be  printed as
 with PRTDB.

 All  commands  which  use SORTDBF,  support  an  option  to retain  the
 TAATMPDBF file in QTEMP  which contains the  selected and sorted  data.
 The default is to delete  the file.  If *YES is specified,  you may use
 or copy the TAATMPDBF file for additional usage.

 PRTDB, PRTDB2, and PRTDB3 Commands                    *CMD
 ----------------------------------

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

    FIELDS        The list of fields to be processed.

                  The default  for PRTDB is  *PROMPT to  prompt for  the
                  list of  fields in  the file.   If the command  is run
                  in batch, *ALL is used instead.

                  The  default for  PRTDB2  is *ALL  to provide  as many
                  fields as can be shown in the print width.

                  *ALL may  be  specified to  cause  all fields  in  the
                  file to be printed.

                  A  specific list  of fields  (up  to 50)  may also  be
                  entered.

    MBR           The  member to be  processed.  The  default is *FIRST.

    COLHDG        The type of column heading to be used.

                  *FLDNAM is the  default to  use the  field names  from
                  the file as a one line column heading.

                  *COLHDG may be  specified to use the  information from
                  the  COLHDG DDS keyword  for up  to 3 lines  of column
                  headings.

    LINEWIDTH     The  width of the print line  to be used.  The default
                  is 378.

                  The intent  of the large  default is  to allow you  to
                  display  as much  data as  possible.   If you  want to
                  print  the data  to  a printer  that does  not support
                  378 wide, you may either:

                       Use PRTDB  again and  specify the  line width  to
                       fit your printer or

                       Use  the   TCTSPLF  TAA  Tool  to   re-print  the
                       spooled   file  and   truncate  at   a  specified
                       position.

                  Any  field   columns  that   will  be   partially   or
                  completely past  the maximum  width are truncated  and
                  do not appear in the printed output.

    TOTONLY       A  *YES/*NO value  for whether  only the  final totals
                  should  be printed.   The default is  *NO which causes
                  every data base record read to be printed.

                  A *YES  entry  will cause  only  the final  totals  to
                  appear.    *YES  may  only  be used  if  some  decimal
                  fields exist to accumulate.

    MAXFLDWTH     The  maximum  width  of a  field  for  printing.   The
                  default  is 99.    This  allows  large  fields  to  be
                  truncated  so you  can  see some  of  the  data.   The
                  value must be in a range of 20 to 99.

    NBRRCDS       The  number  of  records  to  print.    The  parameter
                  defaults  to  *DFT  which  means  that  a  maximum  is
                  assigned depending  on the environment.   If  PRTDB is
                  used interactively,  a maximum of 1000  records is the
                  default.   If  PRTDB is  used in  batch, a  maximum of
                  5000 records is the default.

                  A  specific  number  or  *MAX  (all  records)  may  be
                  entered.

    DSPSPLF       Whether to  display the  spooled file.   This defaults
                  to  *YES.  The parameter is  ignored if the command is
                  run in batch.

    FROMRCD       The record  to  start from.    *START is  the  default
                  which means the  first record according to  the access
                  path of the file.

                  If  the  file is  keyed,  arrival  sequence processing
                  will be used if 1  is specified.  A specific  relative
                  record  number may  be entered  to  start printing  at
                  that number.

    RUNID         The  Run ID  of  the report.   The  default  is *NONE.
                  The  Run ID  is printed at  the top of  every page and
                  allows a 10 character ID.

    TITLE         The Title of  the report.   The default is 'PRTDB  TAA
                  Tool  Output'  Up to  50  characters  may be  entered.
                  The title appears on every page of the report.

 PRTDBS, PRTDB2S, and PRTDB3S Commands                 *CMD
 -------------------------------------

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

    MBR           The member  to be processed.   The default  is *FIRST.

    RTNSORT       A  *YES/*NO parameter  for whether the  TAATMPDBF file
                  in QTEMP should be retained.

                  *NO is the default to  delete the file after the  data
                  is processed.

                  *YES may  be  specified to  retain the  file to  allow
                  further processing or copying.

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

   **   OPNQRYF  cannot be used  to front  end PRTDB because  the shared
        open  requirement does not  allow the hard  coded file size used
        in the  processing program  to be  used.   The PRTDBS,  PRTDB2S,
        and  PRTDB3S  commands  provide   the  same  function  with  the
        SORTDBF prompt.

   **   Up  to 50 fields  may be named.   If  FIELDS(*ALL) is specified,
        the first 50 fields  in the file are  used.  Any combination  of
        decimal and character fields may be used.

   **   The maximum width of the print line is 378.

   **   The maximum width of a field is 99.

   **   The maximum number  of fields that can  exist in a file  is 998.

   **   A  maximum file length  of 9999 may  be processed.   Fields that
        begin and end in less than 9999 may be processed.

   **   The maximum  length of  a  decimal field  is  28 digits.    This
        allows 2 to be added for any total fields.

   **   A maximum of 99  bytes can be printed from  any character field.

   **   Files with null capable fields are not supported.

   **   Not  all  field types  are  supported.   Typical  types such  as
        character,  variable length, packed,  zoned, binary, date, time,
        or timestamp are supported.

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

 The following TAA Tools must be on your system:

      DSPFMT          Display format
      EDTVAR          Edit variable
      EXTLST2         Extract list 2
      HLRMVMSG        HLL Remove message
      PMTFLD          Prompt field
      RTVFLDARR       Retrieve field array
      RTVSYSVAL3      Retrieve system value 3
      SNDCOMPMSG      Send completion message
      SNDDIAGMSG      Send diagnostic message
      SNDESCMSG       Send escape message
      SORTDBF         Sort data base file

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

 None, the tool is ready to use.

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

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

    PRTDB         *CMD                   TAADBID       QATTCMD
    PRTDB2        *CMD                   TAADBID2      QATTCMD
    PRTDB3        *CMD                   TAADBID3      QATTCMD
    PRTDBS        *CMD                   TAADBID4      QATTCMD
    PRTDB2S       *CMD                   TAADBID5      QATTCMD
    PRTDB3S       *CMD                   TAADBID6      QATTCMD
    TAADBIDC      *PGM       CLP         TAADBIDC      QATTCL
    TAADBIDC4     *PGM       CLP         TAADBIDC4     QATTCL
    TAADBIDC5     *PGM       CLP         TAADBIDC5     QATTCL
    TAADBIDC6     *PGM       CLP         TAADBIDC6     QATTCL
    TAADBIDR      *PGM       RPG         TAADBIDR      QATTRPG

 Structure
 ---------

 PRTDB/PRTDB2/PRTDB3
     TAADBIDC   CL Pgm
        TAADBIDR   RPG Pgm

 PRTDBS
     TAADBIDC4  CL Pgm

 PRTDB2S
     TAADBIDC5  CL Pgm

 PRTDB3S
     TAADBIDC6  CL Pgm

Added to TAA Productivity Tools May 1, 1997


Home Page

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