A fix is available
APAR status
Closed as program error.
Error description
In V6, the following code is generated for a call to a program ( remote DPL).... EXEC CICS LINK PROGRAM(EZEPROGM) COMMAREA(EZECOMMAREA) LENGTH(22) SYNCONRETURN END-EXEC IF EIBRESP NOT = DFHRESP(NORMAL) MOVE 'Y' TO EZEAPP-BAD-RESP IF EIBRESP = DFHRESP(PGMIDERR) MOVE '00000204' TO EZERT8 ELSE IF EIBRESP = DFHRESP(SYSIDERR) AND EIBRCODE(2:1) = X'08' MOVE '00000208' TO EZERT8 ELSE IF EIBRESP = DFHRESP(SYSIDERR) MOVE '00000207' TO EZERT8 ELSE MOVE EIBFN(1:1) TO EZECHRWK8(1:1) MOVE EIBRCODE TO EZECHRWK8(2:3) MOVE 4 TO EZERTS-HEX-SRC-STR-LEN MOVE 8 TO EZERTS-HEX-TGT-STR-LEN MOVE EZERTS-HEX-EXPAND-STR TO EZERTS-HEX-SVCS-NUM CALL 'ELARSVCS' USING EZERTS-CONTROL-BLOCK EZERTS-HEX-REQUEST-BLOC K EZECHRWK8 EZERT8 END-CALL END-IF END-IF END-IF GO TO EZECONDLBL-1 In summary, it sets EZERT8 either to a predefined value or a com bination of the EIBFN and EIBRCODE fields. In V7, when the same program is moved to V7.5.1.3, the migration tool adds the v60ExceptionCompatibility=YES program property (r ightfully so). This is supposed to mean that sysvar.ErrorCode should still contain the return codes...but it is always zero. To compound things...since we are in v60ExceptionCompatibility = yes...none of the exception messages/ids are available in COBOL Gen.
Local fix
Problem summary
Checks were added for the various error conditions.
Problem conclusion
Software updated.
Temporary fix
Comments
APAR Information
APAR number
PK88204
Reported component name
RBD EGL FOR COB
Reported component ID
5724S5001
Reported release
750
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2009-06-08
Closed date
2009-07-13
Last modified date
2009-07-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
R750 PSN
UP
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSMQ79","label":"Rational Business Developer"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"7.5","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
07 December 2021