APAR status
Closed as program error.
Error description
Rational Business Developer V7.1.0.2: For COBOL target environments, if the record used in a function I/O statement is IndexedRecord, RelativeRecord or SerialRecord, the record variable used in the I/O statement must be either defined in the function or in the program. It cannot be passed in as an argument to the function and used in I/O statements. Generation should prevent file I/O records passed as arguments to functions from being used in I/O statements in that function when generating for COBOL target environments. Currently, this is allowed and produces the following compiler errors during COBOL generation: IGYPS2121-S "EZESTA-FILE1-74-EOF" was not defined as a data-name. The statement was discarded. IGYPS2096-S An incomplete condition was found in a conditional expression. The operand(s) was(were) discarded. This COBOL restriction is only for indexed, relative and serial records.
Local fix
The workaround is to either define the record at the function level if data does not need to be shared outside the function or at the program level so all functions within the program's scope has access to the data.
Problem summary
Apparently, cobol can not deal with program parms that are used as targets of file I/O operations.
Problem conclusion
I have added a generation time check to prevent this from reaching cobol generation.
Temporary fix
Comments
APAR Information
APAR number
PK81768
Reported component name
RATL BUS DEV
Reported component ID
5724S5000
Reported release
710
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2009-03-03
Closed date
2009-04-13
Last modified date
2009-04-13
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
R710 PSN
UP
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSMQ79","label":"Rational Business Developer"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"7.1","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
13 April 2009