IBM Support

PK88204: sysvar.Errorcode does not contain error code

Subscribe

You can track all active APARs for this component.

 

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