Recently I had to work around some limitations in SAP Business One’s Service Layer. As a result, I had to decode some BASE64 string that was stored in our customer’s database, modify the (unencoded) string and then save it back, all from within a native SAP HANA Stored Procedure.

To my surprise, there is no native function to achieve this, at least not that I could find in my couple of hours of investigation.

So I set out to build my own function to allow for decoding Base64 strings on the database level.

I am posting this function here, so that others can save themselves a few hours if they are ever presented with the same problem.

Note: This is probably not the most performant way of doing this, but since it’s not going to be executed massively it is good enough for our purpose. The function returns the decoded value of a 400-character string in 1-2 ms on our test server. If you do have have performance improvements, please share!

CREATE OR REPLACE FUNCTION "CEODO_FN_Base64Decode"
(
	base64 varchar(8000)
)
RETURNS decoded nvarchar(4000)
LANGUAGE SQLSCRIPT
SQL SECURITY INVOKER
DETERMINISTIC
AS
BEGIN

	declare i int;
	declare binstring varchar(16);

	binstring = '';
	decoded = '';
	
	FOR i IN 1..LENGTH(:base64) DO
	
		binstring := binstring ||
			CASE 
				SUBSTRING(:base64, i, 1)
				WHEN 'A' THEN '000000'
				WHEN 'B' THEN '000001'
				WHEN 'C' THEN '000010'
				WHEN 'D' THEN '000011'
				WHEN 'E' THEN '000100'
				WHEN 'F' THEN '000101'
				WHEN 'G' THEN '000110'
				WHEN 'H' THEN '000111'
				WHEN 'I' THEN '001000'
				WHEN 'J' THEN '001001'
				WHEN 'K' THEN '001010'
				WHEN 'L' THEN '001011'
				WHEN 'M' THEN '001100'
				WHEN 'N' THEN '001101'
				WHEN 'O' THEN '001110'
				WHEN 'P' THEN '001111'
				WHEN 'Q' THEN '010000'
				WHEN 'R' THEN '010001'
				WHEN 'S' THEN '010010'
				WHEN 'T' THEN '010011'
				WHEN 'U' THEN '010100'
				WHEN 'V' THEN '010101'
				WHEN 'W' THEN '010110'
				WHEN 'X' THEN '010111'
				WHEN 'Y' THEN '011000'
				WHEN 'Z' THEN '011001'
				WHEN 'a' THEN '011010'
				WHEN 'b' THEN '011011'
				WHEN 'c' THEN '011100'
				WHEN 'd' THEN '011101'
				WHEN 'e' THEN '011110'
				WHEN 'f' THEN '011111'
				WHEN 'g' THEN '100000'
				WHEN 'h' THEN '100001'
				WHEN 'i' THEN '100010'
				WHEN 'j' THEN '100011'
				WHEN 'k' THEN '100100'
				WHEN 'l' THEN '100101'
				WHEN 'm' THEN '100110'
				WHEN 'n' THEN '100111'
				WHEN 'o' THEN '101000'
				WHEN 'p' THEN '101001'
				WHEN 'q' THEN '101010'
				WHEN 'r' THEN '101011'
				WHEN 's' THEN '101100'
				WHEN 't' THEN '101101'
				WHEN 'u' THEN '101110'
				WHEN 'v' THEN '101111'
				WHEN 'w' THEN '110000'
				WHEN 'x' THEN '110001'
				WHEN 'y' THEN '110010'
				WHEN 'z' THEN '110011'
				WHEN '0' THEN '110100'
				WHEN '1' THEN '110101'
				WHEN '2' THEN '110110'
				WHEN '3' THEN '110111'
				WHEN '4' THEN '111000'
				WHEN '5' THEN '111001'
				WHEN '6' THEN '111010'
				WHEN '7' THEN '111011'
				WHEN '8' THEN '111100'
				WHEN '9' THEN '111101'
				WHEN '+' THEN '111110'
				WHEN '/' THEN '111111'
				ELSE '' END;
		
		IF (LENGTH(:binstring) >= 8) THEN
		
			decoded := decoded || CHAR(
				TO_INT(SUBSTRING(:binstring, 1, 1)) * 128 +
				TO_INT(SUBSTRING(:binstring, 2, 1)) * 64 +
				TO_INT(SUBSTRING(:binstring, 3, 1)) * 32 +
				TO_INT(SUBSTRING(:binstring, 4, 1)) * 16 +
				TO_INT(SUBSTRING(:binstring, 5, 1)) * 8 +
				TO_INT(SUBSTRING(:binstring, 6, 1)) * 4 +
				TO_INT(SUBSTRING(:binstring, 7, 1)) * 2 +
				TO_INT(SUBSTRING(:binstring, 8, 1)) * 1);
			
			binstring := SUBSTRING(:binstring, 9);
		
		END IF;
	
	END FOR;
Sara Sampaio

Sara Sampaio

Author Since: March 10, 2022

0 0 votes
Article Rating
Subscribe
Notify of
0 Comments
Inline Feedbacks
View all comments
0
Would love your thoughts, please comment.x
()
x