07-05-2006 6:18 AM
hi,
i want to read long text , WHICH IS tcode FB03, an and its disply on one particular field upto 75 char.
07-05-2006 6:21 AM
Hi Puram ,
u have to read the Long text by using FM read_text or BSEG-SGTXT.
if u are using FM u have to pass text id , Object Name etc.
<b>CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = '0001'
language = sy-langu
name = it_thead-tdname
object = 'DOC_ITEM'
ARCHIVE_HANDLE = 0
LOCAL_CAT = ' '
IMPORTING
HEADER =
TABLES
lines = it_lines
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8
.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.</b>
Regards
Prabhu
07-05-2006 6:20 AM
07-05-2006 6:21 AM
Hi Puram ,
u have to read the Long text by using FM read_text or BSEG-SGTXT.
if u are using FM u have to pass text id , Object Name etc.
<b>CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = '0001'
language = sy-langu
name = it_thead-tdname
object = 'DOC_ITEM'
ARCHIVE_HANDLE = 0
LOCAL_CAT = ' '
IMPORTING
HEADER =
TABLES
lines = it_lines
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8
.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.</b>
Regards
Prabhu
07-05-2006 6:24 AM
You have to use READ_TEXT with these paramters.
Text Name
Language EN
Text ID
Text object
07-05-2006 6:28 AM
Hi
You can use FM READ_TEXT. Also refer the Table STXH and TTXID.
Berry
07-05-2006 6:55 AM
hi
addition to Prabhu:
data : begin of struc,
bukrs type bseg-bukrs,
belnr type bseg-belnr,
gjahr type bseg-gjahr,
buzei type bseg-buzei,
end of struc.
...
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = '0001'
language = sy-langu
name = <b>struc</b>
...
Andreas
07-05-2006 9:22 AM
Plz try this It will really fulfill ur Requ.
call Function module READ_TEXT
and pass following parameters.
CLIENT 200
ID 0001
LANGUAGE EN
NAME X10049000000612006001
OBJECT DOC_ITEM
ARCHIVE_HANDLE 0
LOCAL_CAT
Description of name parameter.
X100 is company code.
4900000061 is Doc. no
2006 is fiscal year.
001 is line item no.
07-05-2006 9:32 AM
Hai Raghuveer
Go through the following Code
DATA: BEGIN OF XTHEAD.
INCLUDE STRUCTURE THEAD.
DATA: END OF XTHEAD.
DATA: BEGIN OF ZZTLINE OCCURS 10.
INCLUDE STRUCTURE TLINE.
DATA: END OF ZZTLINE.
XTHEAD-TDID = 'ZPPM'. "TEXT-ID
XTHEAD-TDSPRAS = SY-LANGU. "Language
XTHEAD-TDNAME = 'ZTKF'. "identification
CONCATENATE SY-TCODE(5) ITAB0300POS-AUFNR
INTO XTHEAD-TDNAME.
XTHEAD-TDOBJECT = 'TEXT'. "Object type top/position
CALL FUNCTION 'READ_TEXT'
EXPORTING
ID = XTHEAD-TDID
LANGUAGE = XTHEAD-TDSPRAS
NAME = XTHEAD-TDNAME
OBJECT = XTHEAD-TDOBJECT
IMPORTING
HEADER = XTHEAD
TABLES
LINES = ZZTLINE
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8.
IF SY-SUBRC = 0.
REFRESH ZZTLINE.
ZZTLINE-TDLINE = ITAB0300POS-BEM.
APPEND ZZTLINE.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
HEADER = XTHEAD
IMPORTING
FUNCTION = ZFUNCTION
NEWHEADER = XTHEAD
TABLES
LINES = ZZTLINE
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
OBJECT = 4
OTHERS = 5.
ELSE.
XTHEAD-TDID = 'ZPPM'. "TEXT-ID
XTHEAD-TDSPRAS = SY-LANGU. "Language
XTHEAD-TDNAME = 'ZTKF'. "identification
CONCATENATE SY-TCODE(5) ITAB0300POS-AUFNR
INTO XTHEAD-TDNAME.
XTHEAD-TDOBJECT = 'TEXT'. "Object type top/position
REFRESH ZZTLINE.
ZZTLINE-TDLINE = ITAB0300POS-BEM.
APPEND ZZTLINE.
CALL FUNCTION 'CREATE_TEXT'
EXPORTING
FID = XTHEAD-TDID
FLANGUAGE = XTHEAD-TDSPRAS
FNAME = XTHEAD-TDNAME
FOBJECT = XTHEAD-TDOBJECT
TABLES
FLINES = ZZTLINE
EXCEPTIONS
NO_INIT = 01
NO_SAVE = 02.
ENDIF.
Thanks & regards
Sreenivasulu P