Fixes are available
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
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