A fix is available
APAR status
Closed as program error.
Error description
When using the using the figurative constant SPACES as the substitution field of an INSPECT REPLACING statement of a DBCS field, not all characters may be replaced.
Local fix
Define a DBCS data item as spaces; then use this data item as the substitution field on the INSPECT REPLACING.
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL V6.2 compiling * * and running programs that contain INSPECT * * statements with REPLACING ALL where * * identifier-1 and identifier-3 are DBCS data * * items and literal-3 is the figurative * * constant SPACE. * **************************************************************** * PROBLEM DESCRIPTION: Incorrect output. Not all * * substitutions will be properly made by * * INSPECT. * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * **************************************************************** The compiler was incorrectly generating a single DBCS character for the figurative constant SPACE, and not a DBCS literal of the correct length for the REPLACING ALL phrase of the INSPECT. This resulted in only the first DBCS character in indentifier-1 getting replaced by a DBCS space, and not the entire DBCS data item in identifier-3.
Problem conclusion
The compiler has been updated so that it treats the figurative constant SPACE as a DBCS literal of the required length, when it appears in the context of an INSPECT statement with REPLACING ALL where identifier-1 and identifier-3 are DBCS data items.
Temporary fix
Comments
APAR Information
APAR number
PI97624
Reported component name
ENT COBOL FOR Z
Reported component ID
5655EC600
Reported release
620
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2018-05-04
Closed date
2018-05-28
Last modified date
2018-06-04
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
IGY8RWTU IGYCASMB IGYCCBE IGYCCCRT IGYCCICS IGYCCSRV IGYCDGEN IGYCDIAG IGYCDMAP IGYCDOPT IGYCEN$0 IGYCEN$1 IGYCEN$2 IGYCEN$3 IGYCEN$4 IGYCEN$5 IGYCEN$8 IGYCEN$D IGYCEN$R IGYCFGEN IGYCFREE IGYCINIT IGYCJA$0 IGYCJA$1 IGYCJA$2 IGYCJA$3 IGYCJA$4 IGYCJA$5 IGYCJA$8 IGYCJA$D IGYCJA$R IGYCLIBH IGYCLIBO IGYCLIBR IGYCLSTR IGYCLVL0 IGYCLVL1 IGYCLVL2 IGYCLVL3 IGYCLVL8 IGYCMALL IGYCOB2 IGYCOPI IGYCOPT IGYCOSCN IGYCPGEN IGYCRCTL IGYCRDPR IGYCRDSC IGYCREAL IGYCRWT IGYCSCAN IGYCSIMD IGYCUE$0 IGYCUE$1 IGYCUE$2 IGYCUE$3 IGYCUE$4 IGYCUE$5 IGYCUE$8 IGYCUE$D IGYCUE$R IGYCXREF IGYDRV IGYEQCWI IGYMSGE IGYMSGK IGYMSGT IGYQCBE IGYZQDRV IGYZQENU IGYZQJPN
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655EC600
Applicable component levels
R620 PSY UI56120
UP18/06/01 P F805
R621 PSY UI56121
UP18/06/01 P F805
R622 PSY UI56122
UP18/06/01 P F805
R62H PSY UI56123
UP18/06/01 P F805
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":"620","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
12 December 2023