PI70644: Service for Debug Tool 13.1.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• --- Service ---
  
  -ABEND ASRA after calling a C-Program from Assembler.
   (PI62360 at 13.1)
  
  -ABENDS0C4 in EQA0STKH during remote code coverage request.
   (PI66612 at 13.1)
  
  -Debug Tool Utilities is loosing the LIBDEF settings from
   previous panels.
   (PI68652 at 13.1)
  
  -Debug Tool encounters an ABENDS0C1 or ABENDS0C4 in EQA00SVC
   due to an incorrect saved CAA address on second EXEC CICS
   LINK.
   (PI68537 at 13.1)
  
  -ABENDU4087 and ABENDS0C4 in EQA05BLK+03C4 received in
   Enterprise COBOL V5.2 debug session.
   FIXCAT KEYWORD: COB0501T/K
   FIXCAT KEYWORD: COB0502T/K
   FIXCAT KEYWORD: COB0601T/K
   (PI69273 at 13.1)
  
  -When using Debug Tools IMS Transaction Isolation, data sets
   aren't created.  This involves the Debug Tools Utilities, panel
   4.6 "Administer IMS Transaction Isolation Environment".
   (PI69679 at 13.1)
  
  -Debug Tools IMS Transaction Isolation -
   Parameter "TXNNAME10" exceeds the allowable length
   VGET (TXNNAME10).
   TXNNAMEx needs to be changed to TXNNAMExx.
   (PI69697 at 13.1)
  
  -Debug Tool Utilities 8.1.1 User settings are not used if
   original JCL does not contain a job card. Instead
   //DUMMYJC JOB ,NOTIFY=&SYSUID,USER=&SYSUID,
   // MSGCLASS=H,MSGLEVEL=1,TIME=(,15),REGION=0K
   is generated
   (PI69715 at 13.1)
  
  -Enterprise COBOL V5 and V6.
  
   If you have a table looking like following:
   01  TESTINDEX.
     05 TESTIXX               PIC X(4).
     05 TESTIYY               OCCURS  50.
        10 TESTZZ             PIC  X(08).
  
   LIST TESTZZ(2) the value for TESTZZ(1) is displayed.
  
   When you have a group inside an array, with COBOL V4 you were
   able to list a single member of the group as though it's an
   array of its own.  With COBOL V5/6, the expression evaluator
   didn't allow this.  Instead Debug Tool only listed the member
   of the first element of the array.
  
   Debug Tool has made the COBOL V5/6 expression evaluator behave
   more like it did for COBOL V4.
  
   FIXCAT KEYWORD: COB0501T/K
   FIXCAT KEYWORD: COB0502T/K
   FIXCAT KEYWORD: COB0601T/K
   (PI69885 at 13.1)
  
  --- End Service ---
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Debug Tool 13.1 users who have the problems  *
  *                 described in the Problem Description.        *
  ****************************************************************
  * PROBLEM DESCRIPTION: --- Service ---                         *
  *                                                              *
  *                      -ABEND ASRA after calling a C-Program   *
  *                       from Assembler.                        *
  *                       (PI62360 at 13.1)                      *
  *                                                              *
  *                      -ABENDS0C4 in EQA0STKH during remote    *
  *                       code coverage request.                 *
  *                       (PI66612 at 13.1)                      *
  *                                                              *
  *                      -Debug Tool Utilities is loosing the    *
  *                       LIBDEF settings from previous panels.  *
  *                       (PI68652 at 13.1)                      *
  *                                                              *
  *                      -Debug Tool encounters an ABENDS0C1 or  *
  *                       ABENDS0C4 in EQA00SVC due to an        *
  *                       incorrect saved CAA address on second  *
  *                       EXEC CICS LINK.                        *
  *                       (PI68537 at 13.1)                      *
  *                                                              *
  *                      -ABENDU4087 and ABENDS0C4 in            *
  *                       EQA05BLK+03C4 received in Enterprise   *
  *                       COBOL V5.2 debug session.              *
  *                       FIXCAT KEYWORD: COB0501T/K             *
  *                       FIXCAT KEYWORD: COB0502T/K             *
  *                       FIXCAT KEYWORD: COB0601T/K             *
  *                       (PI69273 at 13.1)                      *
  *                                                              *
  *                      -When using Debug Tools IMS             *
  *                       Transaction Isolation, data sets       *
  *                       aren't created.  This involves the     *
  *                       Debug Tools Utilities, panel 4.6       *
  *                       "Administer IMS Transaction Isolation  *
  *                       Environment".                          *
  *                       (PI69679 at 13.1)                      *
  *                                                              *
  *                      -Debug Tools IMS Transaction Isolation  *
  *                       - Parameter "TXNNAME10" exceeds the    *
  *                       allowable length VGET (TXNNAME10).     *
  *                       TXNNAMEx needs to be changed to        *
  *                       TXNNAMExx.                             *
  *                       (PI69697 at 13.1)                      *
  *                                                              *
  *                      -Debug Tool Utilities 8.1.1 User        *
  *                       settings are not used if original JCL  *
  *                       does not contain a job card. Instead   *
  *                                                              *
  *                       //DUMMYJC JOB ,NOTIFY=&SYSUID,         *
  *                       // USER=&SYSUID,                       *
  *                       // MSGCLASS=H,MSGLEVEL=1,              *
  *                       // TIME=(,15),REGION=0K                *
  *                       is generated                           *
  *                       (PI69715 at 13.1)                      *
  *                                                              *
  *                      -Enterprise COBOL V5 and V6.            *
  *                                                              *
  *                       If you have a table looking like       *
  *                       following:                             *
  *                       01  TESTINDEX.                         *
  *                         05 TESTIXX               PIC X(4).   *
  *                         05 TESTIYY               OCCURS  50. *
  *                            10 TESTZZ             PIC  X(08). *
  *                                                              *
  *                       LIST TESTZZ(2) the value for           *
  *                       TESTZZ(1) is displayed.                *
  *                                                              *
  *                       When you have a group inside an        *
  *                       array, with COBOL V4 you were able to  *
  *                       list a single member of the group as   *
  *                       though it's an array of its own.       *
  *                       With COBOL V5/6, the expression        *
  *                       evaluator didn't allow this.  Instead  *
  *                       Debug Tool only listed the member of   *
  *                       the first element of the array.        *
  *                                                              *
  *                       Debug Tool has made the COBOL V5/6     *
  *                       expression evaluator behave more like  *
  *                       it did for COBOL V4.                   *
  *                                                              *
  *                       FIXCAT KEYWORD: COB0501T/K             *
  *                       FIXCAT KEYWORD: COB0502T/K             *
  *                       FIXCAT KEYWORD: COB0601T/K             *
  *                                                              *
  *                       (PI69885 at 13.1)                      *
  *                                                              *
  *                      --- End Service ---                     *
  ****************************************************************
  * RECOMMENDATION: Installations that need these                *
  *                 problem fixes should install this service    *
  ****************************************************************
  Miscellaneous service.
  

Problem conclusion

• Service available.
  

Temporary fix

Comments

• ×**** PE16/11/23 FIX IN ERROR. SEE APAR PI72679  FOR DESCRIPTION
  

APAR Information

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

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

  UI41773

Modules/Macros

• EQA00ABE EQA00ANC EQA00CIC EQA00CND EQA00QFY EQA05BLK EQA0CINF
  EQA0SCL1 EQA0SCL2 EQA0SRP1 EQA0SRP2 EQA0STKH EQA10PRC EQA80VER
  EQAAFSPS EQADCCN0 EQADCCXR EQAEV006 EQALMA   EQANCLDE EQANICRT
  EQANIPSB EQARCCDA EQARCDBG EQARCEXP EQARCHEX EQARCI3E EQARCL4
  EQARCOBD EQARCPDC EQARCTRC EQARCVND EQASTART EQAXCJ2  EQAXIIMS
  EQAXTIMS EQAYSMMN
  

Fix information

• Fixed component name

  DEBUG TOOL Z/OS

• Fixed component ID

  5655Q1000

Applicable component levels

• RD10 PSY UI41773

     UP16/10/21 P F610

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.