topic Re: reports in Application Development and Automation Discussions

reports

Former Member — Wed, 05 Jul 2006 05:18:05 GMT

hi,

i want to read long text , WHICH IS tcode FB03, an and its disply on one particular field upto 75 char.

Re: reports

Simha_ — Wed, 05 Jul 2006 05:20:10 GMT

Hi,

Use the F.M<b> READ_TEXT</b>

cheers,

Simha.

Re: reports

Former Member — Wed, 05 Jul 2006 05:21:05 GMT

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

Re: reports

Former Member — Wed, 05 Jul 2006 05:24:04 GMT

You have to use READ_TEXT with these paramters.

Text Name

Language EN

Text ID

Text object

Re: reports

Former Member — Wed, 05 Jul 2006 05:28:38 GMT

You can use FM READ_TEXT. Also refer the Table STXH and TTXID.

Berry

Re: reports

andreas_mann3 — Wed, 05 Jul 2006 05:55:20 GMT

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

Re: reports

Former Member — Wed, 05 Jul 2006 08:22:28 GMT

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.

Re: reports

Former Member — Wed, 05 Jul 2006 08:32:43 GMT

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