compile function dont_use_mods_manual_delete()
begin condition
pre:
post:
end condition

$insert logical
$insert rlist_equates
$insert msg_equates
declare function utility, msg, mods_load_control
declare subroutine record_lock, recompile_proc 

* PLACE THE SELECT STATEMENT HERE I.E. SELECT THE ROWS YOU WISH TO DELETE
Stmt = 'SELECT MODS WITH MOD_ID "[ERROR]"'

Stat = utility( 'CURSOR', 'H' )

rlist( Stmt, target_activelist$, '', '', '' )
*rlist( Stmt, target_savelist$, 'MODS_TO_DEL', '', '' )
DEBUG
Stat = utility( 'CURSOR', 'A' )

DeletedRows = 0
if @reccount then
   Stat = utility( 'CURSOR', 'H' )
   open 'MODS' to ModsTable else
      Void = msg( '', 'Unable to open MODS...' )
      return 0
   end
	Eof    = false$
	loop
	  readnext Id else Eof = true$
	 until eof
	   record_lock( ModsTable, 'MODS', Id )	 	 
      delete ModsTable, Id else
         Void = msg( '', 'Unable to delete ':Id:' in MODS' )
         return 0
      end
      unlock ModsTable, Id else
         Void = msg( '', 'Unable to unlock ':Id:' in MODS' )
         return 0
      end
	   DeletedRows += 1
	repeat
	Stat = utility( 'CURSOR', 'A' )
	MsgInfo = ''
	MsgInfo<mtext$> = DeletedRows:' rows were deleted...'
	MsgInfo<micon$> = '!'
	Void = msg( '', MsgInfo )
end else
   MsgInfo = ''
   MsgInfo<mtext$> = 'There are no rows in the MODS table...that match the select statement'
   MsgInfo<micon$> = '!'
   Void = msg( '', MsgInfo )
   return 0
end
return 0

