A fix is available
APAR status
Closed as program error.
Error description
This happens if hex 0F of DBCS is in column 72 of the source. Example- SET CHK_LIST_ERR_KBN = :.テXᅥ{テOテCニ@ᅠ₩テEテLトdト■トヘᅥeニᆰ.
Local fix
Edit the DBCS source. Move it to the left one or more bytes. The hex 0F, which is the SHIFT-IN, must not be in column 72.
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL V5.1 using the * * SQL compiler option with a host variable * * that is a DBCS user defined name in an * * EXEC SQL statement and the DBCS name ends * * in column 72. * * * **************************************************************** * PROBLEM DESCRIPTION: When an EXEC SQL statement references * * a host variable that is a DBCS user * * defined name that ends in column 72, * * the compiler runs out of storage. * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * * * **************************************************************** When a DBCS name that is a host variable name in an EXEC SQL statement ends in column 72, the compiler did not recognize that it was done with the name, and the compiler would reprocess the line that contained the host variable name over and over until the compiler ran out of storage.
Problem conclusion
The compiler was changed to recognize the end of DBCS host variable name even when it ended in column 72.
Temporary fix
Comments
APAR Information
APAR number
PI05657
Reported component name
ENT COBOL FOR Z
Reported component ID
5655W3200
Reported release
510
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2013-11-06
Closed date
2013-11-14
Last modified date
2014-02-05
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
IGYSSQL
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655W3200
Applicable component levels
R510 PSY UI14448
UP14/01/25 P F401
Fix is available
Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SS6SG3","label":"Enterprise COBOL for z\/OS"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"5.1","Edition":"","Line of Business":{"code":"LOB17","label":"Mainframe TPS"}},{"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":"5.1","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
05 February 2014