!
!
! ***** PBW_EVE$CHGCASE_CALLS ***** - CAPITALIZE all subroutine names.
!                                                                  
PROCEDURE pbw_eve$chgcase_calls

   LOCAL mark1,			! Marker for starting position
	mark2,			! Marker for ending position
	find_range,		! Range returned by search
	match_pattern,	 	! Pattern to search for
	this_position;		! Marker for current position

   on_error			! Disable error warnings
   endon_error

   this_position := MARK(none);
   POSITION (BEGINNING_OF(CURRENT_BUFFER));
   loop
      find_range := SEARCH ('call ',FORWARD,NO_EXACT);
      if find_range = 0 then 
         MESSAGE ("End of CALL search."); 
         POSITION (this_position);
         RETURN;
      else        
         POSITION (find_range);
         MOVE_HORIZONTAL(5);
         mark1 := MARK(none);
         match_pattern := ANCHOR & SCAN('(');
         find_range := SEARCH (match_pattern,forward,no_exact);
         if find_range = 0 then
	    MOVE_HORIZONTAL(LENGTH(CURRENT_LINE)-CURRENT_OFFSET);
	    mark2 := MARK(none);
	    find_range := CREATE_RANGE(mark1,mark2,none);
         endif;
         CHANGE_CASE(find_range,upper);
      endif;
   endloop;

ENDPROCEDURE;