Decoding BASE64 in ABAP

Code Gallery
Decoding BASE64 in ABAP
Skip to end of metadata
Created by Frank Klausner, last modified by Manish Kumar on Aug 21, 2013 Go to start of metadata
Author: Frank Klausner
Submitted: June 26, 2007
There are routines proposed below, first one is to convert base64 to a string, and second one to a xstring.
Third one was mentioned by Sandra in comments section.
A small form routine to decode base64 (TYPE STRING) into plaintext (TYPE STRING) :
FORM decode_base64
USING
base64     TYPE string,
CHANGING
plaintext  TYPE string.

CHECK base64 IS NOT INITIAL.

CONSTANTS:
lc_op_dec TYPE x VALUE 37.
DATA:
l_xstr TYPE xstring,
lr_conv TYPE REF TO cl_abap_conv_in_ce.

CALL 'SSF_ABAP_SERVICE'
ID 'OPCODE' FIELD   lc_op_dec
ID 'BINDATA' FIELD   l_xstr
ID 'B64DATA' FIELD   base64. "#EC CI_CCALL

TRY.

lr_conv = cl_abap_conv_in_ce=>create( input = l_xstr ).
lr_conv->read( IMPORTING data = plaintext ).

CATCH cx_sy_conversion_codepage.
CLEAR plaintext.
MESSAGE i999(samx) WITH text-004 text-005.
ENDTRY.

ENDFORM.

A small form routine to decode base64 (TYPE STRING) into xstring (TYPE XSTRING) :
FORM decode_base64_to_xstring
USING
i_base64   TYPE string
CHANGING
e_xstring  TYPE xstring.

CALL FUNCTION 'SSFC_BASE64_DECODE'
EXPORTING
b64data = i_base64
IMPORTING
bindata = e_xstring
EXCEPTIONS
OTHERS  = 8.

ENDFORM.
Conversion from base64 to string may also be achieved by this small code :
CALL METHOD cl_http_utility=>if_http_utility~decode_base64
EXPORTING
encoded = l_string_base64
RECEIVING
decoded = l_string.
snippet abap web conversion
1 Comment
User icon: c0cbtrx
Sandra Rossi
Conversion from base64 to string may also be achieved by this small code :
CALL METHOD cl_http_utility=>if_http_utility~decode_base64
EXPORTING
encoded = l_string_base64
RECEIVING
decoded = l_string.