PK88204: sysvar.Errorcode does not contain error code

Rational Business Developer Fix Pack 4 (7.1.0.4) for 7.1

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 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