IBM Support

PI71542: IBM/RATIONAL DEVELOPER FOR SYSTEM Z 9.5.1.1 OR 9.1.1 BMS MAP EDITOR DOES NOT GENERATE SYMBOLIC MAP WITH OCCURS=2 CORRECTLY

Subscribe

You can track all active APARs for this component.

 

APAR status

  • Closed as program error.

Error description

  • With a BMS map set created using RDz BMS Map Editor, the map
    contains a field definition with option OCCURS=2 set.
    
    When the symbolic map is generated from the map set, a copybook
    is generated, but OCCURS 2 TIMES is not included.
    
    The editor allows an entry for a value of OCCURS under the
    Advanced properties for a field and the parser does handle it.
    However, the field is not showing properly on the BMS Editor
    Design page and also not getting generated as part of Symbolic
    Map generation.
    
    The particular Cobol BMS source has 2 entries for options in
    map sets:
    01  MAP1I.
               02     DFHMS                 PIC X(12).
               02     DFHMS01 OCCURS 2 TIMES.
    
        01  MAP1O REDEFINES MAP1I.
               02     DFHMS                 PIC X(12).
               02     DFHMS02 OCCURS 2 TIMES.
    
    The BMS map definition has the entry included:
    
    OCCURS   DFHMSD
    TYPE=&SYSPARM,MODE=INOUT,LANG=COBOL,STORAGE=AUTO,      *
                   CTRL=FREEKB,EXTATT=YES,TERM=3270-2,TIOAPFX=YES,
    *
                   MAPATTS=(COLOR,HILIGHT,OUTLINE,PS,SOSI),
    *
                   DSATTS=(COLOR,HILIGHT,OUTLINE,PS,SOSI)
    INPUT    DFHMDF POS=(1,1),LENGTH=1,
    *
    
    ATTRB=(UNPROT,NORM),HILIGHT=UNDERLINE,COLOR=GREEN,      *
                   OCCURS=2
    OCCURS   DFHMSD TYPE=FINAL
             END
    
    The resulting copybook with no OCCURS 2 TIMES:
    
       01 MAP1I.
              02 FILLER                    PIC X(12).
          *
              02 INPUTL                    PIC S9(4) COMP.
              02 INPUTF                    PIC X.
              02 FILLER          REDEFINES INPUTF.
                 03 INPUTA                 PIC X.
              02 FILLER                    PIC X(6).
              02 INPUTI                    PIC X(1).
          * *******************************************
           01 MAP1O REDEFINES MAP1I.
              02 FILLER                    PIC X(12).
          *
              02 FILLER                    PIC X(3).
              02 INPUTC                    PIC X.
              02 INPUTP                    PIC X.
              02 INPUTH                    PIC X.
              02 INPUTV                    PIC X.
              02 INPUTU                    PIC X.
              02 INPUTM                    PIC X.
              02 INPUTO                    PIC X(1).
          *
          *
    ***************************************************************
          * Length of structure
          *
    ***************************************************************
           01 MAP1.
              02 MAP1-LENGTH      COMP PIC S9(4)  VALUE +22.
          *
    ***************************************************************
    

Local fix

Problem summary

  • ****************************************************************
    USERS AFFECTED: Rational Developer for System z (RDz) users
    generating Symbolic maps for BMS with OCCURS.
    ****************************************************************
    PROBLEM DESCRIPTION:  An incorrect COBOL copybook is generated
    for BMS maps containing a DFHMDF macro defining a field that
    uses the OCCURS operand.
    ****************************************************************
    

Problem conclusion

  • ****************************************************************
    Problem Resolution: The Symbolic Map generator required updating
    in order to generate similar COBOL data items as the BMS Map
    assembly utility on System z.
    ****************************************************************
    
    The problem listed in this APAR has been resolved with
    IBM Rational Developer for System z V9.1.1.5 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

    PI71542

  • Reported component name

    DEV FOR Z SYS

  • Reported component ID

    5724T0700

  • Reported release

    910

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt / Xsystem

  • Submitted date

    2016-10-31

  • Closed date

    2017-01-25

  • Last modified date

    2017-01-25

  • 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

    DEV FOR Z SYS

  • Fixed component ID

    5724T0700

Applicable component levels

  • R911 PSY

       UP

[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSTRMM","label":"IBM Developer for z\/OS"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"910","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]

Document Information

Modified date:
18 October 2021