how to change code into a stope procedure in here

[sql]

Hiall,
Is that possible to change this part into a store procedure?? since I don't know how to handle the @UserText is not user input and @word is what I want in table.
My jsp upload interface is not finfished yet. but the organization have every heavy upload file duty. need someone else to help on this part , I don't want to show this part of code to them, what can I do ??


************************************************** **********************************************

Declare @UserText varchar(7000)

Set @UserText =' 1 CTCGATTATT TGTGTATTGG GCGTCTTGAA TAGGGTAAGC GTTGTTCTTT

51 TGGGTCAACC ATCTCATGCT TCTGTAGAAT GAATCTGAAC ATGCTTTGCT

101 TGTCCCACTG TAAGACACAT TCCAGATTGT GTCTGGAAAG ATCTGGATCC

151 TTTGGTAAGA ACTAGCAGAA CTAAAAAGTG ACCTTAGTTC TTCTAGGTTT

201 TCTACATTCC CGGGGTAACA CAATCCATTA ACAGCCGATG TAGCAAAAGC

251 AGGGGAATTT CACATCCACT CAAGATGGAA ACATTATCAC TAATAACTAT

301 AATAGTAGTA GTAACAGTAA GCAATGCAGA TAAAATCTGC ATCGGTTACC

351 AATCAACAAA CTCCACAGAA ACAGTAGACA CGCTAACAGA AAACAATGTC

401 CCTGTGACAC ATGCCAAAGA ATTGCTCCAC ACAGAGCACA ATGGGATGCT

451 GTGTGCAACA AATCTGGGAC ACCCTTCTTA TTCTAGACAC CTGTACCATT

501 GAAGGACTAA TCTATGGCAA CCCTTCTTGT GATCTACTGT TGGGAGGAAG

551 AGAATGGTCC TACATCGTCG AAAGACCATC GGCTGTTAAT GGATTGTGTT

601 ACCCCGGGAA TGTAGAAAAC CTAGAAGAAC TAAGGTCACT TTTTAGTTCT

651 GCTAGTTCTT ACCAAAGGAT CCAGATCTTT CCAGACACAA TCTGGAATGT

701 GTCTTACAGT GGGACAAGCA AAGCATGTTC AGATTCATTC TACAGAAGCA

751 TGAGATGGTT GACCCAAAAG AACAACGCTT ACCCTATTCA AGACGCCCAA

801 TACACAAATA ATCGAGGGAA AAACATTCTT TTCATGTGGG GCATAAATCA

851 CCCACCCACC GATACAGCGC AGACAAATCT GTACACAAGG ACTGACACAA

901 CAACAAGTGT GGCAACAGAA GATATAAATA GGACCTTCAA CCATTGATAG

951 GGCCAAGGCC TCTTGTAATG GTCTACAGGG AAGAATTGAT TAATATTGGT

1001 CGGTATTGAA ACCAGGTCAA CACTGCGAGT ACGGTCCAAT GGGAATCTAA

1051 TCGCTCCATG GTATGGACAC ATTCTTTCAG GAGAGAGCCA TGGAAGAATC

1101 CTGAAGACTG ATTTAAAAAG TGGTAACTGT GCAGTGCAAT GTCAGACAGA

1151 AAAAGGTGGC TTGAATACAA CATTGCCATT CCAAAATGTA AGTAAGTACG

1201 CATTTGGAAA CTGCCCGAAA TATGTTGGAG TAAAGAGTCT CAAACTGGCA

1251 GTTGGTCTGA GGAATGTGCC TGCCAGATCA AGTAGAGGAC TATTCGGGGC

1301 CATAGCTGGA TTCATAGAGG GAGGTTGGTC AGGGCTAGTT GCTGGTTGGT

1351 ATGGGTTCCA GCATTCAAAT GATCAAGGGG TTGGTATGGC AGCAGATAGA

1401 GACTCAACTC AAAGGGCAAT TGACAAAATA ACATCCAAAG TTAATAACAT

1451 AGTCGATAAA ATGAACAAAC AGTATGAAAT TATTGATCAT GAATTCAGCG

1501 AAGTTGAAAA TAGACTCAAC ATGATCAATA ATAAGATTGA TGACCAAATC

1551 CAAGACATAT GGGCATATAA CGCAGAATTG CTAGTGCTGC TTGAAAACCA

1601 GAAAACACTC GATGAGCATG ATGCGAATGT AAACAATCTA TATAATAAAG

1651 TGAAGAGGGC ATTGGGTTCC AATGCAGTGG AAGATGGGAA AGGATGTTTC

1701 GAGCTATACC ATAAATGTGA TGACCAGTGC ATGGAGACAA TTCGAAACGG

1751 GACCTACAAC AGGAGGAAGT ATAAAGAGGA ATCCAAATTA GAAAGACAGA

1801 AAATAGAAGG GGTCAAGCTG GAATCTGAAG GAACTTACAA AATCCTCACC

1851 ATTTAGAAGA CTGTCGCCTC AT

'


declare @counter smallint
declare @len1 smallint
declare @char1 char
declare @i int
declare @word varchar(7000)

set @counter=0
set @word=''

declare @output varchar(51)
set @len1 = len(@UserText)

While @counter <=@len1
begin
/* substring(expression, star, length)*/


set @char1 =substring(@UserText,@counter,1)
if( ascii(@char1) between 65 and 90) or
( ascii(@char1) between 97 and 122)
begin
set @word=@word+substring(@UserText,@counter,1)
end
Set @counter = @counter + 1
end



insert into Sec02 select 'Pa/ST/49/2002' ,'HA', @word, '1872','H9', 'ST', '2002'
________
(AUTOMOBILE)

[sql]

I got it
________
CITY TURBO