//Code for Dynamic Select statement:
DECLARE mycursor DYNAMIC CURSOR FOR SQLSA;
ls_sql = " SELECT cast(" + 	is_column + " as LONG 
VARCHAR ) from " + is_table + " where " + ls_id_name 
+ " = " + string(il_id)

//PREPARE SQLSA FROM :ls_sql USING blob_connection;
PREPARE SQLSA FROM :ls_sql;
OPEN DYNAMIC mycursor;
IF SQLCA.SQLCODE <>  0  THEN
	MessageBox("Problem with Cursor", "SQLCODE: " 
+ STRING(SQLCA.SQLCODE) + "~r~n" + "SQLDBCODE: " + 
STRING(SQLCA.SQLDBCODE) + "~r~n" + "ERRORTEXT: "+ 
SQLCA.SQLERRTEXT, Information!, OK!)
ELSE
	FETCH mycursor INTO :ls_rtf;
	IF SQLCA.SQLCODE <>  0  THEN
		MessageBox("Problem with 
Select", "SQLCODE: " + STRING(SQLCA.SQLCODE) + "~r~n" 
+ "SQLDBCODE: " + STRING(SQLCA.SQLDBCODE) + "~r~n" 
+ "ERRORTEXT: "+ SQLCA.SQLERRTEXT, Information!, OK!)
	END IF	
END IF
				
rte_1.PasteRTF(ls_rtf, Detail! )
CLOSE mycursor;		

//Dynamic Update Statement
ls_rtf = rte_1.CopyRTF(FALSE, Detail!)

if len(ls_rtf) =  0  then
	ls_rtf = ' '
end if

ll_len = len(ls_rtf)

ls_hex = f_convert_char_to_hex(ls_rtf)

ls_rtf = ls_hex

ll_len = len(ls_rtf)

ls_rtf = '0x' + ls_rtf
lb_rtf = blob(ls_rtf)

if not isnull(lb_rtf) then
	//KEB - Actually move the file up to the db.
	SQLCA.Autocommit = TRUE

	ls_id = is_clean_table + '_id'
	
	ls_sql = " UPDATE " + is_table + " SET " + 
is_column + " = " + string(lb_rtf)
	ls_sql += " WHERE " + is_clean_table + '_id' 
+ " = " + string(il_id)
	
	execute immediate :ls_sql using sqlca; 
	
	SQLCA.Autocommit = FALSE   
	IF SQLCA.SQLCode <>  0  THEN
		MessageBox("Saving File", "SQLCode: 
~r~n" + string(SQLCA.SQLDBCode) + "~r~n" + 
SQLCA.SQLERRTEXT)
		RETURN
	END IF
			  
	IF SQLCA.SQLNRows >  0  THEN
		COMMIT USING SQLCA;
	ELSE
		MessageBox("Saving File", "Error 
saving to database")
		RETURN
	END IF
end if

//Functions to convert string to hex
// string f_convert_char_to_hex( string asString ) 
// Converts an input string into a hex character 
string

string sResult, sHexChar
decimal ld_len

decimal i

ld_len = len(asstring)

For i =  1  to Len( asString )

        sHexChar = f_convert_to_hex( Asc( Mid( 
asString, i,  1  ) ) )

        If Len( sHexChar ) =  1  Then sHexChar = "0" + 
sHexChar

        sResult = sResult + sHexChar
Next

Return sResult

// string f_convert_to_hex( long alNumber ), 
recursive:
// Recursive function to translate number into hex 
representation

If alNumber >  15  Then
        Return f_convert_to_hex( alNumber /  16  ) + 
f_dec_to_hex( Mod( alNumber,  16  ) )

Else
        Return f_dec_to_hex( alNumber )
End If

// string f_dec_to_hex ( integer aiNumber),  0  <= n <= 
 15  
// Converts integer from  0  -  15  into character hex 
representation

string sHexChar

Choose Case aiNumber
        Case  10 
                sHexChar = 'A'
        Case  11 
                sHexChar = 'B'
        Case  12 
                sHexChar = 'C'
        Case  13 
                sHexChar = 'D'
        Case  14 
                sHexChar = 'E'
        Case  15 
                sHexChar = 'F'
        Case Else
                sHexChar = String(aiNumber)
End Choose

Return sHexChar