A fix is available
APAR status
Closed as program error.
Error description
The dynamic call library routine IGZXFCA1 contains fast path logic for calls when under CICS and CBLPSHPOP(OFF). While this code passes the correct R1 to the callee, so the callee sees the parameters it expects, IGZXFCA1's save area doesn't reflect this R1 value. Any introspection code or person examining the IGZXFCA1 save area will see an inappropriate R1 value. The R0 in the save area is also incorrect, though this generally doesn't cause immediate problems.
Local fix
Check the initial caller's save area for the true R0, R1 values.
Problem summary
**************************************************************** * USERS AFFECTED: Enterprise COBOL V5 users running under CICS * * and using the CBLPSHPOP(OFF) runtime option. * * * **************************************************************** * PROBLEM DESCRIPTION: Incorrect results from tools that * * follow the save area chain and need * * Register 1 to be set correctly: When an * * Enterprise COBOL V5 program dynamically * * calls another COBOL V5 program under * * CICS while the CBLPSHPOP runtime option * * is off, the dynamic call routine * * IGZXFCA1 optimizes the call by skipping * * over the target program's bootstrap * * code. While the caller's parameters are * * being passed correctly to the target * * program in register R1, IGZXFCA1 missed * * saving the R1 value in its save area. * * * **************************************************************** * RECOMMENDATION: Apply provided service. * **************************************************************** The fastpath logic in IGZXFCA1 that handles calling COBOL V5 programs under CICS with CBLPSHPOP(OFF) in effect is not correctly saving R1 in its save area.
Problem conclusion
IGZXFCA1 is corrected to save R1 in its save area.
Temporary fix
Comments
APAR Information
APAR number
PI49902
Reported component name
LE ENT COBOL LI
Reported component ID
568819812
Reported release
790
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2015-10-05
Closed date
2015-10-16
Last modified date
2015-11-04
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
106PC1
Modules/Macros
IGZXLPKA
Fix information
Fixed component name
LE ENT COBOL LI
Fixed component ID
568819812
Applicable component levels
R7A0 PSY UI32124
UP15/10/23 P F510
R780 PSY UI32125
UP15/10/23 P F510
R790 PSY UI32126
UP15/10/23 P F510
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":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SSCVR7X","label":"Runtime"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
14 December 2020