TAA Tools

The Create Externally  Described Printer File  command reads an  RPG or
RPGLE  (fixed format) source  member with  a program  described printer
file  and creates the DDS for  an externally described printer file and
the printer file.   Exceptions such as  duplicate output lines for  the
same EXCPT line are  noted and a new format name is  assigned.  The RPG
source  is not changed.   You  must make changes  to the  RPG source as
well as correct any exceptions that are noted.

If the RPG program  uses an externally described  file (such as a  data
base file), the  file must be found  on the library list.   This allows
the definition of externally described fields to be found.

If  you have  multiple printer files  in the  program, you must  have a
unique printer file  for each.   See the PRINTER  parameter which  will
allow  you  to  identify  which  PRINTER  file  you  want  to  make  an
externally described file for.

A typical CRTEXTPRTF command would be:


The  command would  read  the ABCR  member  in QRPGSRC  and  output DDS
Printer  specs  to the  ABCX  member in  QDDSSRC.   The  first  3 lines
output will  be comments describing  the source and  when and where  it
was  created from.   The  ABCX  printer file  would be  created in  the
current library assuming no errors exist in the DDS source.

If  any exceptions exist, an escape message  would be sent and you must
review the spooled file name ABCR (see later discussion).

Any comments  in  the  output  specifications are  copied  to  the  DDS

Standard changes to the RPG program must be made such as:

  **   The  F spec  must be  changed.   For  example, if  you had  used
       QPRINT  as the printer file  name, you would  make the following

        Before:     FQPRINT  O   F     132     OF     PRINTER
        After:      FABCX    O   E             nn     PRINTER

       The OF  indicator must  be replaced  by a  01-99 indicator  that
       you are not using in the program.

  **   Any references  to  the OF  indicator must  be  changed to  your
       assigned indicator.

  **   Review the  ABCR spooled file for exceptions.   It will describe
       the   sequence  number  of  any  exceptions  and  the  exception
       condition.  This includes:

         --   RPG program  described output  specs  allow for  multiple
              lines to be  output for H, D, T, or  multiple E lines for
              the  same EXCPT name.   Each  line of output  must have a
              unique format name  in DDS.   CRTEXTPRTF generates  names
              of $$nnnn for each duplicate.

              You must change  the RPG program for  WRITE statements to
              output each  format.  For H, D, or  T lines, you must add
              a WRITE statement  at the  appropriate point  in the  RPG
              program.   For E lines,  you must change  the EXCPT to  a
              WRITE  and add  new  WRITE statements  if  any additional
              $$nnnn  format names have been  generated (you may change
              the  DDS  specifications  to  make  the  $$nnnn  assigned
              names more  meaningful and  re-create the  printer file).

              Assume your RPG calculations specify:

               C                     EXCPTTOTAL
               C   OF                EXCPTHDG

              Assume  1) Each exception output to  TOTAL causes 2 lines
              and the HDG  output causes 3 lines.   When CRTEXTPRTF  is
              run, assume  it has generated  $$0001 for the  second HDG
              line, $$0002  for the third HDG line,  and $$0003 for the
              second TOTAL line.   When  you modified the  RPG F  spec,
              assume  you  assigned  an overflow  indicator  of  75  in
              place of OF.  Your modified RPG code would look like:

               C                     WRITETOTAL
               C                     WRITE%%0003
               C   75                DO
               C                     WRITEHDG
               C                     WRITE$$0002
               C                     WRITE$$0003
               C                     SETOF                       75
               C                     ENDDO

         --   RPG  allows   a  format  name  to  be   output  based  on
              conditioning  indicators.    DDS does  not  support this.
              You must  change the RPG  code such  as conditioning  the
              WRITE statement.

         --   RPG  Reserved words  Reserved words  beginning with  * or
              UDATE,  UDAY,  UMONTH,  or  UYEAR  are  flagged  and  not

         --   Blank after.  RPG supports  the ability to blank out  (or
              zero out)  a field after  it has  been output.   DDS does
              not  support this.  You  must add RPG  statements such as
              RPG MOVE/Z-ADD statements to provide for this.

         --   P/B/L/R Column  (44).   RPG  supports P/B/L/R  in  column
              44.  DDS does  not support a direct solution  to emulate.

         --   Fetch overflow.   RPG supports an 'F'  for fetch overflow
              in  column 16.  DDS does not  support this.  You must use
              RPG logic to account for this.

         --   Un indicators.    RPG supports  Un  indicators, they  are
              not  supported  by DDS.    Different  indicators must  be

         --   Array  elements output  as fields.   RPG allows  an array
              element to  be  output such  as  AR1,XX.   DDS  does  not
              support  arrays.   The  field  name  will be  changed  to
              AR1$XX  with the  proper length and  decimals considered.
              You must  change  the  source  to  move  from  the  array
              element to this field name.

         --   Field name used  multiple times in  an output line.   RPG
              allows the  same field name  to be output  multiple times
              in  one line.   DDS  restricts this  to once  per format.
              If such fields exist,  the CRTPRTF command will fail  and
              the DDS must be corrected manually.

         --   RPGLE  supports continuation  lines for  constants ending
              with  a  minus  sign.   The  minus  is  replaced  with an
              ending quote  and  the  line  is output  with  a  warning
              message  as  only  the  length   of  the  first  line  is
              calculated   to  determine   and   end  position.     The
              additional lines  will cause  errors when  attempting  to
              create a printer file.

         --   AND/OR  lines.   The  generated  DDS  specifications  may
              cause an  error because the keywords  for space/skip must
              be specified on the last AND/OR line.

CRTEXTPRTF escape messages you can monitor for

      TAA9891    Exceptions found.  See the spooled listing.

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

Command parameters                                    *CMD

   RPGSRCM       The RPG source member to be read.

   RPGSRCF       The  RPG  source  file  containing  the  member  to be
                 read.     QRPGSRC  is  the   default.    The   library
                 qualifier defaults  to *LIBL.   A specific  library or
                 *CURLIB may be specified.

   DDSSRCM       The  DDS source member  to be output to.   The default
                 is *RPGSRCM  for  the  member  named  in  the  RPGSRCM

                 The  member must  not  exist.   It  will  be added  by
                 CRTEXTPRTF.     See  the  exception  with  the  DLTRMV

   DDSSRCF       The DDS source  file to contain  the external  printer
                 specs.    QDDSSRC   is  the  default.     The  library
                 qualifier  defaults to *LIBL.   A specific  library or
                 *CURLIB may be specified.

   PRTF          The   qualified  name  of  the   Printer  file  to  be
                 created.  The  default is *DDSSRCM  which is the  name
                 of  the member  specified  in  the DDSSRCM  parameter.
                 The   library  qualifier  defaults   to  *CURLIB.    A
                 specific library may be named.

                 The file must not exist.   See the exception with  the
                 DLTRMV parameter.

   TEXT          The  text  description  assigned  to  the  DDS  source
                 member  and  used for  the object  description  of the
                 generated Printer  file.   The default  is *DFT  which
                 means  the same  text description  as  exists for  the
                 RPG source member.

   PRINTER       The  printer file  to generate  DDS  source for.   The
                 default  is  *ONLY  meaning  there  is  only  a single
                 printer file described in the RPG source.

                 If  multiple printer  files  exist, you  must  specify
                 the name  of one of  the files to generate  DDS source
                 for.     CRTEXTPRTF  may  be  used  for  each  program
                 described printer file that exists in a program.

   DLTRMV        A testing option  that defaults  to *NO.   The  normal
                 use  of CRTEXTPRTF  requires the  DDS  member and  the
                 Printer  file  not  exist.    They  will be  added  by

                 *YES may  be specified  in  a testing  environment  to
                 remove the  DDS  member if  it exists  and delete  the
                 Printer file if it exists.


See the previous comments.


The following TAA Tools must be on your system:

     CHKOBJ3         Check object 3
     EDTVAR          Edit variable
     HLRMVMSG        HLL Remove message
     RSNLSTMSG       Resend last message
     RTVDAT          Retrieve date
     RTVDBFA         Retrieve data base file attributes
     RTVRPGFLD       Retrieve RPG field
     RTVSYSVAL3      Retrieve system value 3
     SNDCOMPMSG      Send completion message
     SNDESCINF       Send escape information
     SNDESCMSG       Send escape message
     SNDSTSMSG       Send status message


None, the tool is ready to use.

Objects used by the tool

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

   CRTEXTPRTF    *CMD                   TAAPRTI       QATTCMD
   TAAPRTIC      *PGM       CLP         TAAPRTIC      QATTCL
   TAAPRTIR      *PGM       RPG         TAAPRTIR      QATTRPG
   TAAPRTIR2     *PGM       RPG         TAAPRTIR2     QATTRPG

TAAPRTIR is used for RPG types.  TAAPRTIR2 is used for RPGLE types.

Added to TAA Productivity tools March 26, 2007

Home Page Up to Top