OA62461: AFTER PTF UJ06777 AN ABEND0C1 OCCURS WHEN RUNNING A REXX EXEC THAT INVOKES A REXX DBCS FUNCTION, DUE TO A BAD BRANCH.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• After applying PTF UJ06777 for APAR OA61900 on an HTE77D0
  system, an ABEND0C1 can occur when running a REXX exec
  that issues one of the 13 REXX DBCS functions. These
  functions include:
     DBADJUST  DBBRACKET   DBUNBRACKET  DBCENTER  DBJUSTIFY
     DBLEFT    DBRIGHT     DBRLEFT      DBRRIGHT  DBTODBCS
     DBTOSBCS  DBVALIDATE  DBWIDTH
  
  The abend does not always occur for each such function
  call, but it may.
  
  The PSW address at the time of the ABEND0C1 will end in
  x'286'.  That is, the PSW address would be of the form
  'nnnnn286'x, where the failing instruction address at
  x'nnnnn284' contains x'00000000'.
  
  Also, at the time of the abend, R14 points to IXXRUF +
  x'422', where IXXRUF is a CSECT within load module
  IRXINIT, and R15 is the branch address to x'nnnnn284' that
  then results in the ABEND0C1.
  
  This problem does not occur for REXX execs that do not
  invoke any of these REXX DBCS functions.
  
  ----------------------
  PE Information:
   Users Affected: Users of TSO/E REXX running any REXX exec that
         uses one of the 13 REXX DBCS functions listed above.
  
         Causing APAR OA61900: PTF# UJ06777 for release HTE77D0
  
   User Impact: APAR OA61900 fixed the problem it reported, but
         introduced a new problem of a possible ABEND0C1 when
         invoking one of the 13 REXX DBCS functions.
  
        The original problem fixed by OA61900 was that an ABEND0C4
        could occur in REXX processing when executing from dynamic
        storage that was not obtained with the EXECUTABLE=YES
        attribute, if a certain DIAG trap was set.
  
        Unless you have REXX execs that must use the REXX DBCS
        functions, IBM recommends leaving OA61900 installed.
  

Local fix

• IBM recommends that you continue to allow PTF UJ06777 to remain
  installed on your system unless you are experiencing this
  problem.
  .
  A ++APAR is available, upon request, from TSO/E REXX support
  to resolve this issue until the official PTF becomes available.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  * All users of z/OS TSO/E V2R5 (HTE77D0) using                 *
  * TSO/E REXX execs that invoke any of the 13                   *
  * REXX DBCS functions.                                         *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  * After installing PTF UJ06777 an                              *
  * ABEND0C1 can occur when running any                          *
  * REXX exec if that exec issues any of                         *
  * the 13 DBCS REXX functions.                                  *
  *                                                              *
  * The abend occurs due to a branch from                        *
  * CSECT IXXRUF + x'420' to a word of                           *
  * x'00000000' at an address of the form                        *
  * x'nnnnn284'. The PSW at the time of                          *
  * the abend0c1 is of the form x'nnnnn286'                      *
  * where R14 points to csect IXXRUF+x'422'                      *
  * and R15 contains x'nnnnn284'.                                *
  *                                                              *
  * This problem will not occur in REXX                          *
  * execs that do not use any of the REXX                        *
  * DBCS functions.                                              *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  After applying PTF UJ06777 for APAR OA61900 on a HTE77D0
  system, an ABEND0C1 can occur when running a REXX exec that
  
  issues one of the 13 REXX DBCS functions. These functions
  
  include:
  
  
  
      DBADJUST  DBBRACKET   DBUNBRACKET  DBCENTER  DBJUSTIFY
  
      DBLEFT    DBRIGHT     DBRLEFT      DBRRIGHT  DBTODBCS
  
      DBTOSBCS  DBVALIDATE  DBWIDTH
  
  
  
  The abend does not always occur for each such function call,
  
  but it may.
  
  
  
  Within the failing exec, the user may also see messages
  
  like the following:
  
    IRX0250E System abend code 0C1, reason code 00000001.
  
    IRX0253E Abend in external function <DB_func_name>.
  
  
  
  The PSW address at the time of the ABEND0C1 will end in
  
  x'286'.  That is, the PSW address would be of the form
  
  'nnnnn286'x, where the failing instruction address at
  
  x'nnnnn284' contains '00000000'x.
  
  
  
  Also at the time of the abend, R14 points to IXXRUF+x'422',
  
  where IXXRUF is a CSECT within load module IRXINIT, and R15
  
  is the branch address to 'nnnnn284'x that then results in the
  
  ABEND0C1.
  
  
  
  This problem does not occur for REXX execs that do not invoke
  
  any of these REXX DBCS functions.
  

Problem conclusion

• CSECT IXXRUF must be re-compiled with the updated macros
  changed by APAR OA61900. IXXRUF is linked as a CSECT within
  load module IRXINIT.
  

Temporary fix

Comments

APAR Information

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

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

  UJ07166

Modules/Macros

• IXXRUF
  

Fix information

• Fixed component name

  TSO REXX

• Fixed component ID

  566528508

Applicable component levels

• R7D0 PSY UJ07166

     UP21/12/01 P F111 {

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.