Line 000018 will cause a 1097 condition/abend and due to CEEWUCHA           
being active the ABNDRTN label will be "called".  The EXEC CICS DUMP        
command at line 000023 will cause FA to be invoked which is while the       
application is still active ie there hasn't been any LE termination at      
this point.  When FA is invoked at line 000023 the 1097 CIB isn't           
available.  The request for this RFE is that the 1097 CIB be left in        
place (chained) and if necessary flagged as "inactive/old/handle abend      
related" etc.                                                               

000001        ID DIVISION.            
000002        PROGRAM-ID. COB1097.    
000003        ENVIRONMENT DIVISION.   
000004        DATA DIVISION.          
000005        WORKING-STORAGE SECTION.
000006        01  A PIC X(12)X(8).    
000007        01  B PIC 9(9)V99(8).   
000008        01  MESSAGEAREAS.                                        
000009            03  MSGOUT                 PIC X(200).               
000010            03  INMSG                  PIC X(20).                
000011        LINKAGE SECTION.                                         
000012        PROCEDURE DIVISION.                                      
000013            MOVE ' AB99C ' TO A.                                 
000014            MOVE 'IN COB1097' TO MSGOUT.                         
000015            EXEC CICS SEND TEXT FROM(MSGOUT) LENGTH(80) ERASE    
000016               WAIT END-EXEC                                     
000017            EXEC CICS HANDLE ABEND LABEL(ABNDRTN) END-EXEC.      
000018            COMPUTE B = FUNCTION NUMVAL(A).                      
000019            EXEC CICS RETURN END-EXEC.                           
000020            GOBACK.                                              
000021         ABNDRTN.                                                
000022                                                                 
000023            EXEC CICS DUMP DUMPCODE('DS97') END-EXEC.   
000024            EXEC CICS RETURN END-EXEC.