PK23067: PROVIDE SITE DEFAULT SUPPORT FOR FABCUR6.

APAR status

• Closed as new function.

Error description

• Provide site default support for FABCUR6.
  This is an enhancement requested via FITS REQ MR0516052016.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All DEDB Unload/Reload users of High         *
  *                 Performance Fast Path Utilities FP Basic     *
  *                 Tools Version 2 Release 2 (FMID: H31A220)    *
  ****************************************************************
  * PROBLEM DESCRIPTION: FABCUR6 supports Site Default options.  *
  *                      This is FITS MR0516052016 requirement.  *
  ****************************************************************
  * RECOMMENDATION: Apply the maintenance for this APAR.         *
  ****************************************************************
  This enhancement is for FITS MR0516052016.
  FABCUR6 (DEDB Reload Segment Data Set Create utility) supports
  Site Default options.
  

Problem conclusion

Temporary fix

Comments

• 1. A macro FABCOP6M which is to define the Site Default Table
  (FABCOP6D) for FABCUR6 and a sample JCL FABCOP6J which is to
  generate the Site Default table were provided.
  
  2. FABCUR6 provides a new parameter BLOCK of LRECL= control
  statement on UR6CTL DD data set.
  
      LRECL={BLOCK|SEGTFMT}
             -----
            BLOCK
              LRECL of a Reload Segment Data Set generated
              by FABCUR6 is determined as BLKSIZE - 4.
              This is system default value.
  
  3. Due to introduction of Site Defult options, FABCUR6 changes
  the handling of LRECL=SEGTFMT as follows:
  
     When LRECL=SEGTFMT is specified on UR6CTL DD data set,
     FORMAT=TFMT also has to be specified simultaneously.
     Otherwise, FABCUR6 issues FABC0661E new message and gets
     U3728 ABEND.
  
  FABC6INI has been modified to set the User default value from
  Site Default Table (FABCOP6D) and report the values to UR6PRINT
  DD data set.
  FABC6GCD has been modified to accept LRECL=BLOCK on UR6CTL DD
  data set.
  FABC6MGT has been modified to add new messages FABC0127I and
  FABC0661E.
  
  ----------------------------------------------------------------
  Documentation Changes:
  The IMS High Performance Fast Path Utilities for z/OS User's
  Guide Volume 2: Fast Path Basic Tools Version 2 Release 2
  (SC18-9238-01) should be added and changed as follows:
  
  Chapter 16. DEDB Reload Segment Data Set Create utility-FABCUR6
   Input
    UR6CTL data set
     Control statements
  
    *The following description should be changed as follows:
  
   |    +--------------------------------------------+
   |    |  LRECL={BLOCK|SEGTFMT}                     |
   |    |         -----                              |
   |    +--------------------------------------------+
  
        LRECL=
        The LRECL statement is composed of:
  
   |    BLOCK
   |      LRECL of a Reload Segment Data Set generated
   |      by FABCUR6 is determined as BLKSIZE - 4.
   |      This is system default value.
  
        SEGTFMT
          LRECL is determined based on the maximum length of
          segments and the maximum number of segment levels
          defined in DBD by specifying together FORMAT=TFMT
          control statement.
  
  Appendix L. FPB Site Default support
  
    *The following description should be added as follows:
  
      FPB allows you to specify Site Default parameters for
      the following programs:
  
         DEDB Pointer Checker: FABADA1
         DEDB Unload: FABCUR1
         DEDB Reload: FABCUR3
   |     DEDB Reload Segment Data Set Create utility: FABCUR6
  
      The macros and sample JCL in Table 54 are provided to
      generate the Site Default Table. If you want to change some
      or all keywords by using this function, you must generate
      the Site Default Table by using the following macros.
  
        Table 54. Macros and JCLs for Site Default table
        +------------+-------------+--------------+
        | Program    | Macro       | Sample JCL   |
        +------------+-------------+--------------+
        | FABADA1    | FABAOP1M    | FABAOP1J     |
        +------------+-------------+--------------+
        | FABCUR1    | FABCOP1M    | FABCOP1J     |
        +------------+-------------+--------------+
        | FABCUR3    | FABCOP3M    | FABCOP3J     |
        +------------+-------------+--------------+
   |    | FABCUR6    | FABCOP6M    | FABCOP6J     |
        +------------+-------------+--------------+
  
      You might specify only the keywords that you want to change.
      This Site Default Table library must be concatenated to
      the FPB load module library in the JOBLIB or STEPLIB DD
      statement.
  
      Note: For details about using these macros, see each macro
            header.
  
  ----------------------------------------------------------------
  Appendix N. FPB.Messages and codes
   FABC messages
  
   *New messages descriptions should be added as follows:
  
     FABC0661E WHEN LRECL=SEGTFMT IS SPECIFIED, FORMAT=TFMT HAS
               TO BE SPECIFIED
  
     Explanation: You have to specify FORMAR=TFMT,
     when LRECL=SEGTFMT is specified.
     System action: The program FABCUR6 sets an internal error
     flag, and continues processing.
     Programmer response: Correct the error, and rerun the job.
  
     ---------------------------------------------------------
     FABC0127I - FOLLOWING VALUES ARE DEFINED BY SITE DEFAULT
                 TABLE (FABCOP6D)
                 - keyword=value
                 - keyword=value
  
     Explanation: This message is generated to show the Site
     Default Table (FABCOP1D/FABCOP3D/FABCOP6D) being processed.
     System Action: FABCUR1/FABCUR3/FABCUR6 uses them as Control
     Statement default values and continues processing.
     Programmer Response: None
  
  ----------------------------------------------------------------
   FABD messages
  
   *Following messages descriptions should be changed as follows:
  
     FABD3672E INVALID keyword= KEYWORD SITE DEFAULT ERROR
               DETECTED
  
     Explanation: An incorrect parameter was specified for
   | the FABAOP1M, FABCOP1M, FABCOP3M, or FABCOP6M macro keyword.
     System action: The assemble step ends with a return code
     of 8.
     Programmer response: Correct the error, and rerun the job.
  
     ---------------------------------------------------------
     FABD3674E NO KEYWORD IS SPECIFIED FOR SITE DEFAULT TABLE
  
     Explanation: No keyword is specified for the FABAOP1M,
   | FABCOP1M, FABCOP3M, or FABCOP6M macro.
     System action: The assemble step ends with a return code
     of 8.
     Programmer response: Correct the error, and rerun the job.
  
     ---------------------------------------------------------
     FABD3675I keyword= PARAMETER IS IGNORED BECAUSE DEFAULT
               VALUE IS SPECIFIED
  
     Explanation: A keyword= parameter was specified that is
     the same as the system default value. The FABAOP1M,
   | FABCOP1M, FABCOP3M, or FABCOP6M macro skips generating
     an entry of the Site Default Table for keyword=.
     System action: The assemble step continues normal processing.
     Programmer response: None.
  
     ---------------------------------------------------------
     FABD3676E macro-name MACRO SPECIFIED MORE THAN ONCE
  
   | Explanation: The FABAOP1M, FABCOP1M, FABCOP3M, or FABCOP6M
     macro was specified more than once. This macro must be
     specified only once when TABLESET=USER is specified
     (default value).
     System action: The assemble step ends with a return code
     of 8.
     Programmer response: Correct the error, and rerun the job.
  
     ---------------------------------------------------------
   *Following messages descriptions should be added as follows:
  
     FABD3677E IMSCOMP=/DLICOMP= KEYWORDS ARE MUTUALLY EXCLUSIVE
     FABD3677E AREA_INFORMATION_RECORD=/AIR= KEYWORDS ARE MUTUALLY
               EXCLUSIVE
  
     Explanation: The keyword of an unsuitable combination was
     specified.
     System action: The assemble step ends with a return code
     of 8.
     Programmer response: Correct the error, and rerun the job.
  
     ---------------------------------------------------------
     FABD3678E WHEN LRECL=SEGTFMT IS SPECIFIED, FORMAT=TFMT HAS TO
               BE SPECIFIED
  
     Explanation: You have to specify FORMAR=TFMT when
     LRECL=SEGTFMT is specified.
     System action: The assemble step ends with a return code
     of 8.
     Programmer response: Correct the error, and rerun the job.
  

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

  UK14011

Modules/Macros

•    FABCOP6J FABCOP6M FABC6GCD FABC6INI FABC6MGT
  

Fix information

• Fixed component name

  IMS HP FP UTILI

• Fixed component ID

  5655K9400

Applicable component levels

• R220 PSY UK14011

     UP06/04/29 P F604