PI35355: RATIONAL DEVELOPER FOR SYSTEM Z (RDZ): ZUNIT "GENERATE TEST PROGRAM" WIZARD FAILS TO REPLACE THE INDEX DATA ITEM.

Rational Developer for System z Fix Pack 1 (9.1.1.1) for 9.1.1.
Rational Developer for System z Fix Pack 1 (9.1.1.2) for 9.1.1.
Rational Developer for System z Fix Pack 1 (9.1.1.3) for 9.1.1.
Rational Developer for System z Interim Fix 1 for 9.1.1.3
Rational Developer for System z Fix Pack 1 (9.1.1.4) for 9.1.1.
Rational Developer for System z Fix Pack 1 (9.1.1.5) for 9.1.1.
Rational Developer for System z Fix Pack 1 (9.1.1.6) for 9.1.1.
Rational Developer for System z Fix Pack 1 (9.1.1.7) for 9.1.1.
Rational Developer for System z Fix Pack 1 (9.1.1.8) for 9.1.1
Rational Developer for System z Fix Pack 9 (9.1.1.9) for 9.1.1

APAR status

• Closed as program error.

Error description

• Rational Developer for System z - RDz - V9.1.1
  
  Consider a program that calls a copybook with a 'REPLACING BY'
  statement:
  
        Copy CPYB001 Replacing ==:Tag:== By ==L-AREA==.
  
  
  Consider that the copybook contains an 'OCCURS INDEXED BY' or
  a 'REDEFINES' statement:statement:
           10 :Tag:-Entry       Occurs 5 times
                                Indexed by :Tag:-Index.
     ....
     10 :Tag:-R-Item  Redefines :Tag:-Base-Item Pic X(4).
  
  The zUnit "Generate Test Program" wizard against that program
  will not replace the index/redefined data item .
  
  Steps to reproduce:
  
  Copybook CPYB001.cpy contains an OCCURS INDEXED BY and a
  REDEFINES statement:
  
        01 :Tag:-Area.
             05  :Tag:-No-of-Entries          Pic 9(4).
             05  :Tag:-Table.
                 10 :Tag:-Entry               Occurs 5 times
                                  Indexed by :Tag:-Index.
                    15 :Tag:-SourcePointer    Pointer.
                    15 :Tag:-SourceLength     Pic s9(9) Comp.
  
       05 :Tag:-Base-Item    Pic X(4).
             05 :Tag:-R-Item  Redefines :Tag:-Base-Item Pic X(4).
  
  Program PROG001 calls copybook CPYB001:
  
        Copy CPYB001 Replacing ==:Tag:== By ==L-AREA==.
  
  
  In the generated program, the string ";tag:" has not been
  replaced by "L-AREA" in the 'OCCURS INDEXED BY' and/or in the
  REDEFINES statement:
  
         LINKAGE SECTION.
         1 L-AREA-AREA.
           5 L-AREA-NO-OF-ENTRIES Pic 9(4).
           5 L-AREA-TABLE.
           10 L-AREA-ENTRY Occurs 5 times INDEXED BY :Tag:-Index.
           15 L-AREA-SOURCEPOINTER Pointer.
           5 L-AREA-BASE-ITEM Pic X(4).
           5 L-AREA-R-Item    Redefines :Tag:-Base-Item Pic
  X(4).
  

Local fix

Problem summary

• Consider a program that calls a copybook with a 'REPLACING BY'
  statement:
        Copy CPYB001 Replacing ==:Tag:== By ==L-AREA==.
  
  Consider that the copybook contains an 'OCCURS INDEXED
  BY'/REDEFINES
  statement:
                 10 :Tag:-Entry       Occurs 5 times
                                      Indexed by :Tag:-Index.
              5 :Tag:-Base-Item    Pic X(4).
              5 :Tag:-R-Item       Redefines :Tag:-Base-Item Pic
  X(4).
  The zUnit "Generate Test Program" wizard against that program
  will not replace the index data item and redefined data item.
  

Problem conclusion

• zUnit Source Generation has been corrected so that name of all
  data items would be replaced correctly.
  
  The problem listed in this APAR has been resolved with
  IBM Rational Developer for System z V9.1.1.1 Fix Pack which
  is available from the Recommended Fixes support download page:
  http://www-1.ibm.com/support/docview.wss?rs=2294&uid=swg27006335
  

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:

Fix information

• Fixed component name

  RATL DEV FOR SY

• Fixed component ID

  5724T0700

Applicable component levels

• R911 PSY

     UP