" Eae Galera, lembra do ultimo post Sobre como criar um Objeto de texto,
" então agora vou mostrar como usar esse objeto de texto pra gravar textos,
" rsrsrs eh verdade..... rrsrs, abaixo tenho a função funcionando certinho,
" se vocês não lembram duq eu to falando .... Acessem..
" http://abapjuniores.blogspot.com.br/2012/05/transacao-se75-criacao-de-objeto-de.html
report z_create_text.
data :
it_flines type table of tline,
st_flines type tline.
start-of-selection.
perform zf_cria_texto.
*&---------------------------------------------------------------------*
*& Form ZF_CRIA_TEXTO
*&---------------------------------------------------------------------*
form zf_cria_texto .
st_flines-tdline = 'texto teste 001'.
append st_flines to it_flines.
call function 'CREATE_TEXT'
exporting
fid = 'OBSE' " Id do Objeto de texto
flanguage = sy-langu " Idioma
fname = '01' " Chave
fobject = 'ZTEXTOS' " Objeto de texto
* SAVE_DIRECT = 'X'
* FFORMAT = '*'
tables
flines = it_flines " Tabela com os textos.
exceptions
no_init = 1
no_save = 2
others = 3
.
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
endform. " ZF_CRIA_TEXTO
" Como todo bom observador que nós somos, devemos executar a função
" 'READ_TEXT' pra ver se o negócio funcionou mesmo, vejam link abaixo
" http://abapjuniores.blogspot.com.br/2011/10/funcao-read-text.html
" Mas se vocês querem fazer de uma forma mais rápida, vão na transação
" SE37 entra na função 'READ_TEXT' e façam igual a imagem abaixo,
" Com isso vocês conseguiram ver ser o conteúdo foi mesmo pro objeto.
" Obrigadaum pessoal e como sempre qualquer dúvida comentem ou mandem email.