# Begin the SQL Stuff
eval
{	
	###############################	
	# Begin stu_drop.updt section #
	###############################
	
	print "Beginning stu_drop.updt section...\n";
	
	# Open stu_drop.log file
	open(LOG, ">stu_drop.log") or die "Couldn't open log file: $@\n";

	$sql = "UPDATE saturn.sfrstcr SET
				sfrstcr_rsts_code = 'DB',
				sfrstcr_error_flag = 'D',
				sfrstcr_rsts_date = SYSDATE,
				sfrstcr_activity_date = SYSDATE
			WHERE
				sfrstcr_term_code = '$term_code' 
				AND sfrstcr_rsts_code LIKE 'R%'
				AND sfrstcr_pidm IN (SELECT DISTINCT pidm FROM studrop)";
	
	$sth = $dbh->prepare($sql);
	$sth->execute();
	$rows_affected = $sth->rows;
	$sth->finish();
	
	print "Rows affected by stu_drop.updt: $rows_affected\n";
	print LOG "$sql\n\nRows affected: $rows_affected\n\n";

	$sql = "SELECT
				count(*) THE_COUNT
			FROM
				sfrstcr,
				spriden
			WHERE
				sfrstcr_term_code='$term_code'
			    AND	sfrstcr_pidm in
				(
					SELECT 
						pidm    
				    FROM 
						studrop
				)
				AND sfrstcr_rsts_code like 'R%'
				AND sfrstcr_pidm=spriden_pidm
				AND spriden_change_ind IS NULL
				AND spriden_entity_ind ='P'";
	
	$sth2 = $dbh2->prepare($sql);
	$sth2->execute();
	
	print LOG $sql . "\n";
		
	while(@row = $sth2->fetchrow_array)
	{
		($row_count) = @row;
		print LOG "Rows pulled from stu_drop_list: $row_count\n";
	}
	
	$sth2->finish();

	if ($row_count == $rows_affected)
	{
			print "No prob with counts\n";
	}
	else
	{
			print "stu_drop_list = $row_count but other = $rows_affected!\n";
			$dbh->rollback;
			$dbh->disconnect();
			$dbh2->disconnect();
			exit 1;
	}
	
	close(LOG);