Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

Long text

Former Member
0 Kudos

Hi

How To Display Long text in production order using SAVE_TEXT

can any one send sample program

1 ACCEPTED SOLUTION

Former Member
0 Kudos

hi,

using BDC only it is possible..

i have done like that only..

Regards,

deepthi.

3 REPLIES 3

Former Member
0 Kudos

hi,

using BDC only it is possible..

i have done like that only..

Regards,

deepthi.

0 Kudos

Hi deepthi ,

can u send the sample code what u done

Former Member
0 Kudos

Hi, this is a example:

DATA BEGIN OF t_tline OCCURS 0.

INCLUDE STRUCTURE tline.

DATA END OF t_tline.

MOVE 'AUFK' TO t_header-tdobject.

MOVE v_header TO t_header-tdname.

MOVE 'AVOT' TO t_header-tdid.

MOVE 'I' TO t_header-tdspras.

  • MOVE '0072' TO t_header-tdlinesize.

  • MOVE '00001' TO t_header-tdtxtlines.

  • T_TLINE

PERFORM riempi_tline.

  • Salvare il testo su database

CALL FUNCTION 'SAVE_TEXT'

EXPORTING

  • CLIENT = SY-MANDT

header = t_header

  • INSERT = ' '

savemode_direct = 'X'

  • OWNER_SPECIFIED = ' '

  • IMPORTING

  • FUNCTION =

  • NEWHEADER =

TABLES

lines = t_tline

  • EXCEPTIONS

  • ID = 1

  • LANGUAGE = 2

  • NAME = 3

  • OBJECT = 4

  • OTHERS = 5

.

IF sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

for display use FM 'READ_TEXT'

CALL FUNCTION 'READ_TEXT'

EXPORTING

id = 'AVOT'

language = sy-langu

name = w_name

object = 'AUFK'

TABLES

lines = tab

EXCEPTIONS

id = 1

language = 2

name = 3

not_found = 4

object = 5

reference_check = 6

wrong_access_to_archive = 7

OTHERS = 8.

IF NOT tab[] IS INITIAL.

MOVE icon_display_text TO tb_mod-desc_lav.

ELSE.

CLEAR tb_mod-desc_lav.

ENDIF.