method onactionupload2 .
data lo_el_context type ref to if_wd_context_element.
data ls_context type wd_this->element_context.
data lv_zraw type wd_this->element_context-zraw.
* get element via lead selection
lo_el_context = wd_context->get_element( ).
* @TODO handle not set lead selection
if lo_el_context is initial.
endif.
* get single attribute
lo_el_context->get_attribute(
exporting
name = `ZRAW`
importing
value = lv_zraw ).
data :
l_fname type string ,
lv_x type x,
lv_string type string.
lv_x = lv_zraw.
l_fname = '/ECD/RAHSIAXSTRING2.PGP'.
data: lit_binary_content type solix_tab.
call function 'SCMS_XSTRING_TO_BINARY'
exporting
buffer = lv_zraw
* APPEND_TO_TABLE = ' '
* IMPORTING
* OUTPUT_LENGTH =
tables
binary_tab = lit_binary_content.
.
open dataset l_fname for output in binary mode .
loop at lit_binary_content assigning field-symbol(
transfer
endloop.
close dataset l_fname.
endmethod.
No comments:
Post a Comment