PK67523: ABEND0C9 S0C9 IN DFH$STCN

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Divide instruction in DFH$STCN is leading to fixed-point-divide
  exception.
  

Local fix

• When instruction:
           D     R2,=F'1000000'
  is changed to
           DL    R2,=F'1000000'
  DFH$STCN does not abend.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All CICS Users.                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: ABENDAKEA IN DFH½STCN                   *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  An invalid TIMEWORK value (too large) is received by DFH½STCN
  and the STOPWATCH form is requested.
  The conversion to hhhh:mm:ss:nnnnnn is driven and this can
  result in a program check.
  

Problem conclusion

• DFH½STCN is changed by adding a test on the TIMEWORK field,
  checking if it is bigger than 9999:59:59.999999, the maximum
  time accepted by DFH½STCN.
  
  ADDITIONAL KEYWORDS: ABENDS0C9 S0C9 0C9
  

Temporary fix

• CICS AR500
  ++ APAR (AK67523).
  ++ VER (C150) FMID(HCI6500).
  ++ MACUPD (DFH$STCN) DISTLIB(ADFHSAMP) SYSLIB(SDFHSAMP)
     /* MODULE: DFH$STCN --- TYPE: SOURCE */.
  ./ CHANGE NAME=DFH$STCN,SEQFLD=738
  SAVE_CLOCK_FIELD DC D'0'                   @BA67523 18300000
  * the time which is returned in hhhh:mm:ss.nnnnnn f 25250000
  * The maximum value returned is 9999:59:59:999999.  25260000
  * In addition, the number of days is also returned. 25280000
           MVC   SAVE_CLOCK_FIELD,CLOCK_FIELD Save
                               Clock Field   @BA67523 25358000
           CLC   SAVE_CLOCK_FIELD,=X'020BDE7363FFFFFF'
                                   Too big ? @BA67523 25366000
           BNH   ORIGINAL_TIME     No        @BA67523 25374000
           MVC   SAVE_CLOCK_FIELD,=X'020BDE7363FFFFFF'
                                   Yes, Max  @BA67523 25382000
  ORIGINAL_TIME DS 0H                        @BA67523 25390000
           STCKCONV STCKVAL=SAVE_CLOCK_FIELD,
                         CONVVAL=TODOP,              X25400000
                 TIMETYPE=DEC,MF=(E,STCKPARM)
                                             @BA67523 25450000
           LM    R2,R3,SAVE_CLOCK_FIELD  Use saved
                               Clock Field   @BA67523 25580000
  ./ ENDUP
  

Comments

APAR Information

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

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

  UK38321

Modules/Macros

•    DFH$STCN
  

Fix information

• Fixed component name

  CICSTS V3 Z/OS

• Fixed component ID

  5655M1500

Applicable component levels

• R500 PSY UK38321

     UP08/07/25 P F807

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.