A fix is available
APAR status
Closed as program error.
Error description
If the first character of the string to be matched is found before the end of identifier-1, a subsequent match may incorrectly take place with part of the item following identifier-1. For example, if adjacent items contain |MANY MOR|ENCHILADAS| ^^^^^ an INSPECT looking for all instances of "MORE" in the first item will erroneously produce a match including the initial "E" of the second item.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL 6.1 and above * * compiling and running programs containing * * INSPECT TALLYING or INSPECT REPLACING * * statements with a source string of 20 or * * more characters and a search string of 4 or * * more characters. * * * **************************************************************** * PROBLEM DESCRIPTION: Incorrect output at runtime: An * * INSPECT statement may find a match in * * which the last character is part of * * the following data item. For example, * * searching for "ABCD" may match if the * * source string ends with "ABC" and the * * next data item starts with "D". * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * * * **************************************************************** An off-by-one error in the code generated for the INSPECT statement causes it to terminate the search one byte later than it should.
Problem conclusion
The compiler was modified to generate the correct code.
Temporary fix
Comments
APAR Information
APAR number
PI79963
Reported component name
ENT COBOL FOR Z
Reported component ID
5655EC600
Reported release
610
Status
CLOSED PER
PE
YesPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2017-04-13
Closed date
2017-04-25
Last modified date
2017-05-01
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
IGYQCBE
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655EC600
Applicable component levels
R610 PSY UI46711
UP17/04/29 P F704 Ø
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":"BU048","label":"IBM Software"},"Product":{"code":"SS6SG3","label":"Enterprise COBOL for z\/OS"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"6.1","Edition":"","Line of Business":{"code":"LOB70","label":"Z TPS"}}]
Document Information
Modified date:
11 September 2024