APAR status
Closed as program error.
Error description
A cobol compile error results when manipulating a basicrecord c ontaining a dynamic array. The error is reproduced with a simpler testcase, as below. package tester; //Put EGL Source File Contents Here record incident type BasicRecord REF_NO int; QUERY query[]{MaxLen = 50}; end record query type BasicRecord SIRA_NO int; SQL_TEXT string; SQL_TIP char(1); end record statement type sqlRecord{} SIRA_NO int; SQL_TEXT string; SQL_TIP char(1); end program MEHMET type basicProgram{} function main() Incident incident; Statements statement[]{maxSize = 500}; i int = 1; Incident.QUERY[i].SQL_TEXT = '***'; // ok Incident.QUERY[sysLib.size(Incident.QUERY)].SQL_TEXT = ' ***'; //err end
Local fix
Problem summary
The logic was using the SizeOfExpression's IR directly, instead of the expression that it was pointing to. This caused the default linkage section template for the record to be used, which wasn't generated.
Problem conclusion
Software updated.
Temporary fix
Comments
APAR Information
APAR number
PM03991
Reported component name
RATL COBOL RT Z
Reported component ID
5655R2900
Reported release
601
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2009-12-21
Closed date
2010-04-14
Last modified date
2010-04-14
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 COBOL RT Z
Fixed component ID
5655R2900
Applicable component levels
R601 PSN
UP
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSN27B","label":"Rational COBOL Runtime for zSeries"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"6.0.1","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"6.0.1","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
14 April 2010