sub insert_the_string {
	
    my $old_file = shift;
	my $new_file = $old_file . "sql2";
	my $line = '';

	open(OLD, "< $old_file");
	open(NEW, "> $new_file");

	my $text .= concatenate_string_to_insert(); # documentation header
	$text .= "as\n";
	my $as_RE = "AS";  # replace the first occurance of 'AS' after the stored procedure definition
	

	select(NEW); # new default for print
	
	while (defined($line = <OLD>) ){
#		chomp $line;
		if ($line =~ s/$as_RE/$text/) {
			chomp $line;
			$line .= <OLD>;
			redo unless eof(OLD);
		}
		
		print NEW $line;
	}
	close(OLD);
	close(NEW);
	
	rename($old_file, "$old_file.orig");
	rename($new_file, $old_file);

}

##</code><code>##

/****** Object:  Stored Procedure dbo.a_sp_D_Add    Script Date: 02/04/2002 17:00:18 ******/
&#2573;&#12032;&#10752;&#10752;&#10752;&#10752;&#10752;&#10752;&#8192;&#2304;&#3328;&#3328;
	Marina Motchkina 
&#2573;&#8192;&#8192;&#8192;&#8192;&#8192;&#8192;&#8192;&#8192;&#8192;&#8192;&#2304;&#12288;&#13312;&#12032;&#12288;&#13056;&#12032;&#12288;&#12800;&#3328;&#3328;

&#2573;&#2304;&#21248;&#20736;&#19456;&#8192;&#26112;&#28416;&#29184;&#8192;&#17408;&#30720;&#30720;&#30720;&#8192;&#25344;&#28416;&#27904;&#28672;&#28416;&#28160;&#25856;&#28160;&#29696;&#29440;&#3328;&#3328;
 ******/
&#2573;&#3328;&#3328;
CREATE PROCEDURE a_sp_D_Add
&#2573;&#2304;&#16384;&#21504;&#24832;&#25088;&#27648;&#25856;&#19968;&#24832;&#27904;&#25856;&#8192;&#30208;&#24832;&#29184;&#25344;&#26624;&#24832;&#29184;&#10240;&#13056;&#12288;&#10496;&#3328;&#3328;

&#2573;&#3328;&#3328;
as
&#2573;&#2304;&#25600;&#25856;&#25344;&#27648;&#24832;&#29184;&#25856;&#8192;&#16384;&#29440;&#29696;&#29184;&#21248;&#20736;&#19456;&#8192;&#30208;&#24832;&#29184;&#25344;&#26624;&#24832;&#29184;&#10240;&#13312;&#12288;&#12288;&#12288;&#10496;&#3328;&#3328;
	select @strSQL='SELECT ' + @TableName+'.* '+ ' FROM ' + @TableName +'  WITH (NOLOCK)  WHERE '+ @TableName+'.'+@TableName+'Counter =0'
&#2573;&#3328;&#3328;

&#2573;&#3328;&#3328;

&#2573;&#3328;&#3328;
GO
&#2573;&#21248;&#17664;&#21504;&#8192;&#20736;&#21760;&#20224;&#21504;&#17664;&#17408;&#24320;&#18688;&#17408;&#17664;&#19968;&#21504;&#18688;&#17920;&#18688;&#17664;&#20992;&#8192;&#20224;&#17920;&#17920;&#8192;&#3328;&#3328;
GO
&#2573;&#21248;&#17664;&#21504;&#8192;&#16640;&#19968;&#21248;&#18688;&#24320;&#19968;&#21760;&#19456;&#19456;&#21248;&#8192;&#20224;&#19968;&#8192;&#3328;&#3328;
GO
&#2573;&#3328;&#3328;