APAR status
Closed as program error.
Error description
The cobol generated for following egl source is incorrect as it introduces an additional indicator variable, which produces a pre-compiler error message near the incorrect host variable. The problem happens when INDICATOR is used. The error message is a synatx error, for example: DSNH104I E DSNHPARS LINE 79719 COL 12 ILLEGAL SYMBOL ":". SOME SYMBOLS THAT MIGHT BE LEGAL ARE: , FROM try execute #sql{ SELECT YEAR(T99.CREATE_TIMESTAMP) INTO :JFBAE0RWD.CREATE-YEAR INDICATOR :JFBAE0RWD.CREATE-YEAR- IND FROM JFBA0200 T02, JFBA9900 T99, JFBA3100 T31 WHERE T02.FIN_ENTERP_NUM = :JFBAE0RWD.FIN-ENTERP-NUM AND T02.FIN_INSTR_NUM = :JFBAE0RWD.FIN-INSTR-NUM AND T02.FIN_VERS_NUM = :JFBAE0RWD.FIN-VERS-NUM AND T31.FIN_ENTERP_NUM = T02.FIN_ENTERP_NUM AND T31.FIN_INSTR_NUM = T02.FIN_INSTR_NUM AND T31.FIN_VERS_NUM = T02.FIN_VERS_NUM AND T99.FIN_ENTERP_NUM = T31.FIN_ENTERP_NUM AND T99.FIN_ITEM_NUM = T31.FIN_ITEM_NUM AND T99.FIN_VERS_NUM = T31.FIN_VERS_NUM }; end Note that the generated cobol program contains, incorrectly, both INDICATOR and an egl-generated host variable name for the indicator.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: * **************************************************************** * PROBLEM DESCRIPTION: * **************************************************************** * RECOMMENDATION: * **************************************************************** The SQL statement was referring to its own indicator variable using the INDICATOR keyword. EGL V7x was not checking for this and was placing its own indicator on the indicator variable, causing it to be invalid for SQL.
Problem conclusion
Software updated. Fixtest available.
Temporary fix
Comments
APAR Information
APAR number
PM14934
Reported component name
RBD EGL FOR COB
Reported component ID
5724S5001
Reported release
751
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2010-05-20
Closed date
2010-10-13
Last modified date
2010-10-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
RBD EGL FOR COB
Fixed component ID
5724S5001
Applicable component levels
R751 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.5.1","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
13 October 2010