PM18143: DFH0STXR DOES NOT PROPERLY DISPLAY NUMERICAL VALUES FOR TEMPORARY STORAGE BUFFERS AND STRINGS

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Because of the way that DFH0STXR codes fields for Strings and
  Buffers, when a user has over 999 of them, only the last
  digits will be displayed. If for example, the user has 2000
  Temporary Storage Buffers, when they run DFHSTUP with the
  Extract Exit DFH0STXR the 'Buffers' value will be displayed
  as '0' (The last 3 digits of 2000 = 000 which is turned into 0)
  . Buffers and Strings are coded as PIC ZZ9 's
  
             03  TS-E-002-STRINGS        PIC ZZ9.
             03  FILLER                  PIC X       VALUE '.'.
             03  FILLER                  PIC X(12)   VALUE SPACES.
             03  TS-E-003-BUFFERS        PIC ZZ9.
             03  FILLER                  PIC X       VALUE '.'.
             03  FILLER                  PIC X(12)   VALUE SPACES.
  Since the DFH0STXR sample is supplied in source form, the user c
  an always go an change the values themselves and compile.
  Additional Keywords: DFH0STXR, Fields , Buffer , Buffers ,
  String , Strings , ZZ9 , PIC
  

Local fix

• DFH0STXR is provided in source form, so the customer has the
  option to edit and compile it themselves.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All.                                         *
  ****************************************************************
  * PROBLEM DESCRIPTION: Running DFHSTUP with extraction program *
  *                      DFH0STXR, TS buffer exception records   *
  *                      showing zero buffers.                   *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  When running with DFHSTUP and extracting statistics records with
  sample program DFH0STXR, it is possible for TS exception records
  to show zero TS buffers even though the CICS region has been
  defined with some. This is because DFH0STXR field,
  TS-E-003-BUFFERS is defined with PIC ZZ9 and in the customers
  case the TS buffers were defined as 3000, but because of the
  ZZ9 field definition, the leading non zero digit was truncated
  and the remaining zeroes were then truncated to leave 0.
  

Problem conclusion

• DFH0STXR has been changed to accommodate the maximum TS buffer
  size of 32767.
  

Temporary fix

• CICS AR601
  ++ APAR (AM18143).
  ++ VER (C150) FMID(JCI6601).
  ++ MACUPD (DFH0STXR) DISTLIB(ADFHSAMP) SYSLIB(SDFHSAMP)
     /* MODULE: DFH0STXR --- TYPE: COPY */.
  ./ CHANGE NAME=DFH0STXR,SEQFLD=738
        *    TS-E-003-BUFFERS changed by APAR PM18143
                                            @BA18143C 23790000
             03  TS-E-003-BUFFERS        PIC ZZZZ9.   23800000
             03  FILLER                  PIC X(10)
                                 VALUE SPACES.        23840000
  ./ ENDUP
  

Comments

APAR Information

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

  PM18109

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

  UK58889

Modules/Macros

•    DFH0STXR
  

Fix information

• Fixed component name

  CICS TS Z/OS V4

• Fixed component ID

  5655S9700

Applicable component levels

• R601 PSY UK58889

     UP10/07/23 P F007

Fix is available

• Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.