APAR status
Closed as program error.
Error description
The source EGL program has the following sql statement: get record with sql# { select 1 from ... } The purpose is to check the existence of a record, not to retrieve it. In this case the generated cobol creates FETCH record INTO without a valid INTO argument. This cause a precompiler failure. DSNH104I E DSNHPARS LINE 14868 COL 12 ILLEGAL SYMBOL '?END- OF-STATEMENT?'. SOME SYMBOLS THAT MIGHT BE LEGAL ARE: : ?IDENTIF IER? DESCRIPTOR
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: * **************************************************************** * PROBLEM DESCRIPTION: * **************************************************************** * RECOMMENDATION: * **************************************************************** The problem was that the fetch statement, was expecting a list of variables to be used, but instead was given a simple number (1). The logic had previously started the order item list with the keyword "INTO" but nothing got added to it. The solution was to check for this situation and remove the INTO item if nothing was added. This was also a problem on the USING clause and has been fixed as well.
Problem conclusion
Software updated. Fixtest available.
Temporary fix
Comments
APAR Information
APAR number
PM16168
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-06-08
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