Transaction: DFXX Task: 000C Program: DFXXP00A Offset X'000B12'   KICKS 1.5.0  
 Status (S): SOURCE CODE TRACE                                 20:08:15 14.306  
 COB program compiled 19:35:11NOV 02, 2014, now at line 67                      
                                                                                
         01  MORE-ARGS.                                                         
             05  FILLER              PIC S9(8) COMP.                            
             05  CWA-BLL             PIC S9(8) COMP.                            
                                                                                
         01  COMMON-WORK-AREA.                                                  
                                                                                
             05  CWA-DATE            PIC 9(06).                                 
                                                                                
         PROCEDURE DIVISION.                                                    
                                                                                
         0000-FORCE-USER-ABEND.                                                 
                                                                                
        *    EVALUATE TRUE                                                      
        *        WHEN EIBCALEN = ZERO                                           
                 IF EIBCALEN = ZERO                                             
                     EXEC KICKS                                                 
                         SEND TEXT FROM(START-UP-MESSAGE)                       
                                                                                
 Last Response: NORMAL                                   EIBRESP=0, EIBRESP2=0  
 PF1 - help       PF3 - goto bkpt    ENTER - step     CLEAR - Show user screen