COBASV02
...
	 2200-FETCH-CURSOR.                                                    
...                                                                        
      * SET BONUS PERCENTAGE ACCORDING TO THE SALARY OF THE EMPLOYEE 
      
               EVALUATE WS-SALARY
               WHEN < 1000
                  MOVE 30    TO WS-BONUS-PERCENT    
               WHEN < 2000
                  MOVE 29    TO WS-BONUS-PERCENT    
               WHEN < 3000
                  MOVE 28    TO WS-BONUS-PERCENT    
               WHEN < 4000
                  MOVE 27    TO WS-BONUS-PERCENT    
               WHEN < 5000
                  MOVE 26    TO WS-BONUS-PERCENT    
               WHEN < 6000
                  MOVE 25    TO WS-BONUS-PERCENT    
               WHEN < 7000
                  MOVE 24    TO WS-BONUS-PERCENT    
               WHEN < 8000
                  MOVE 23    TO WS-BONUS-PERCENT    
               WHEN < 9000
                  MOVE 22    TO WS-BONUS-PERCENT    
               WHEN < 10000
                  MOVE 21    TO WS-BONUS-PERCENT    
               WHEN < 11000
                  MOVE 20    TO WS-BONUS-PERCENT    
               WHEN < 12000
                  MOVE 19    TO WS-BONUS-PERCENT    
               WHEN < 13000
                  MOVE 18    TO WS-BONUS-PERCENT    
               WHEN < 14000
                  MOVE 17    TO WS-BONUS-PERCENT    
               WHEN < 15000
                  MOVE 16    TO WS-BONUS-PERCENT    
               WHEN < 16000
                  MOVE 15    TO WS-BONUS-PERCENT    
               WHEN < 17000
                  MOVE 14    TO WS-BONUS-PERCENT    
               WHEN < 18000
                  MOVE 13    TO WS-BONUS-PERCENT    
               WHEN < 19000
                  MOVE 12    TO WS-BONUS-PERCENT    
               WHEN < 10000
                  MOVE 11    TO WS-BONUS-PERCENT    
               WHEN < 21000
                  MOVE 10    TO WS-BONUS-PERCENT    
               WHEN < 22000
                  MOVE 9     TO WS-BONUS-PERCENT    
               WHEN < 23000
                  MOVE 8     TO WS-BONUS-PERCENT    
               WHEN < 24000
                  MOVE 7     TO WS-BONUS-PERCENT    
               WHEN < 25000
                  MOVE 6     TO WS-BONUS-PERCENT.
          
                PRINT WS-PRT-DETAIL.
...