SALFIT ASCII PROCEDURE

CREATE PROC SALFIT_ASKY          
(          
@STRING VARCHAR(100)          
)          
AS BEGIN  
DELETE FROM ASCII_SALFIT
/*    
CREATE TABLE ASCII_SALFIT
(  
ASCII INT NULL,  
LETTER VARCHAR(100)    
)  
*/      
SET TEXTSIZE 0          
SET NOCOUNT ON          
-- SELECT LOWER(@STRING)        
DECLARE @POSITION INT          
SET @POSITION = 1          
WHILE @POSITION <= DATALENGTH(@STRING)          
   BEGIN          
INSERT INTO ASCII_SALFIT          
   SELECT ASCII(SUBSTRING(@STRING, @POSITION, 1)),          
      CHAR(ASCII(SUBSTRING(@STRING, @POSITION, 1)))          
    SET @POSITION = @POSITION + 1          
   END          
DELETE FROM ASCII_SALFIT WHERE LETTER = ''
SET NOCOUNT OFF          
       
DECLARE @NAMES VARCHAR(8000)      
     
SELECT @NAMES = COALESCE(@NAMES +'','') + LETTER FROM ASCII_SALFIT    
     
INSERT INTO ASCII_SALFIT(LETTER)      
SELECT @NAMES    
DELETE FROM ASCII_SALFIT WHERE ASCII IS NOT NULL  
UPDATE ASCII_SALFIT SET LETTER = LOWER(LETTER) WHERE ASCII IS NULL
SELECT * FROM ASCII_SALFIT  
END          
         
-- EXEC SALFIT_ASKY 'ARKA GUPTA'