IBM Support

PK80990: EXIT STACK WITH LABEL NOT HONORED IN 7102

Subscribe

You can track all active APARs for this component.

 

APAR status

  • Closed as program error.

Error description

  • Here is part of the EGL code that I ran:
    
        TXPVP04: TXPVP04();
        writestdout('TXPVP04');  // ?-- The ?exit stack TXPVP06? inc
    orrectly returns here
        if (ZZOPTSEL == 'A')
          TXPVM01.VAGen_EZEMSG = 'Record is already on file';
          goto TXPVP02;
        else
          move TXPVR01 to TXPVM02 byName;
          goto TXPVP1B;
        end
    
        TXPVP06: TXPVP06();  //  ?--  The ?exit stack TXPVP06? shoul
    d return here
        writestdout('TXPVP06');
    
    Function TXPVP04()
      move TXPVM01 to TXPVR01 byName;
      try
        get TXPVR01 forUpdate ;
        onException
        writestdout('gottoexception');
        exit stack TXPVP06 ;
      end
      writestdout('got past try block');
      if (ZZOPTSEL == 'D')
        TXPVS10();
      end
    end // end TXPVP04
    

Local fix

Problem summary

  • Support for exit stack with a label was not originally in
    7102, but was in 751. Support has been added to 7103
    

Problem conclusion

  • Software update. Fixtest available
    

Temporary fix

Comments

APAR Information

  • APAR number

    PK80990

  • Reported component name

    RBD EGL FOR COB

  • Reported component ID

    5724S5001

  • Reported release

    710

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt

  • Submitted date

    2009-02-19

  • Closed date

    2009-03-20

  • Last modified date

    2009-03-20

  • 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

  • R710 PSN

       UP

[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSMQ79","label":"Rational Business Developer"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"7.1","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]

Document Information

Modified date:
20 March 2009