Fixes are available
APAR status
Closed as program error.
Error description
In RBD 9.5.1 its observed that where the EGL source includes a Set empty statement eg: SET arcSerWkArea.xatRecInOut empty; Then the generated COBOL throws a compilation error ie IGYPS2145-E A PERIOD WAS REQUIRED. A PERIOD WAS ASSUMED BEFORE "IN" associated with the section name where this entry is initialized. This has been identified as a defect by development.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: * * Users that use the set statement against an embedded * * structured record within a flex record. * **************************************************************** * PROBLEM DESCRIPTION: * * A cobol compiler error can occur is trying to set an * * embedded structured record within a flex record is done. * * This mismatch of record types caused the name of the routine * * to be invalid. * **************************************************************** * RECOMMENDATION: * ****************************************************************
Problem conclusion
A workaround is to keep structured records within structured records and not within flex records. However, the software has been updated.
Temporary fix
Comments
APAR Information
APAR number
PI72494
Reported component name
RATL BUS DEV
Reported component ID
5724S5000
Reported release
950
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2016-11-17
Closed date
2019-01-17
Last modified date
2019-01-17
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 BUS DEV
Fixed component ID
5724S5000
Applicable component levels
R901 PSY
UP
R911 PSY
UP
R950 PSY
UP
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSMQ79","label":"Rational Business Developer"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"950","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
19 October 2021