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