IBM Support

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

Subscribe

You can track all active APARs for this component.

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 number

    PI35355

  • Reported component name

    RATL DEV FOR SY

  • Reported component ID

    5724T0700

  • Reported release

    911

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt

  • Submitted date

    2015-02-19

  • Closed date

    2015-03-24

  • Last modified date

    2015-03-24

  • 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



Document information

More support for: Rational Developer for System z

Software version: 9.1.1

Reference #: PI35355

Modified date: 24 March 2015