compile function remove_rds_ovr()
begin condition
pre:
post:
end condition
$insert logical
$insert rlist_equates
$insert msg_equates
$insert rds_equ
declare function utility, msg
		        
open 'RDS' TO RdsTable else
    Void = msg( '', 'Unable to open RDS...' )
    return 0
end
*Void = utility( 'CURSOR', 'H' )
Stmt = 'SELECT RDS WITH WAFERS_SCHEDULED_OVR <> ""'
rlist( Stmt, target_activelist$, '', '', '' )
if @reccount then
	NoLockRds = ''
	Eof = false$
	loop
	    readnext @id else Eof = true$
	  until Eof
	    lock RdsTable, @id then
	         writev '' on RdsTable, @id, rds_wafers_scheduled_ovr$ else
	             Void = msg( '', 'Unable to write to RDS ':@id )
	             return 0
	         end
	         unlock RdsTable, @id else 
	             Void = msg( '', 'Unable to unlock RDS ':@id )
	             return 0
	         end
	     end else
	         NoLockRds := @id:', '
	     end
   	repeat
	if NoLockRds then
        NoLockRds[-2,2] = '.' 
        Mtext = 'Unable to lock the following RDS will have to manually remove wafers_shceduled_ovr or try later...':NoLockRds
        Void = msg( '', Mtext )
    end
end
*Void = utility( 'CURSOR', 'A' )
return 0
