to display long texts in footer window

[Former Member]

hi

I have text of 10 lines which has to be displayed in the footer window. i wrote the following code:

CALL FUNCTION 'READ_TEXT'

EXPORTING

id = '0001'

language = 'E'

name = VBDPA-TDNAME

object = 'VBBK'

tables

lines = GETTXT.

IF NOT GETTXT[] IS INITIAL .

LOOP AT GETTXT.

CLEAR passval .

MOVE gettxt-tdline TO passval.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

WINDOW = 'FOOTER'.

ENDLOOP.

ENDIF .

but the in result it shows only the last line but it does not display all the lines.

my footer window is of type 'VAR'.

pls help me.

Deepak

[Former Member]

Deepak,

For displaying long text, I think you need to use something like INCLUDE TEXT and give the right parameters to it.

regards,

Ravi

Note : Please mark the helpful answers

[Former Member]

Hi

In the FOOTER window insert a line like this:

/: INCLUDE &VBDPA-TDNAME& OBJECT VBBK ID 0001 LANGUAGE EN.

Max

[Former Member]

Hi Deepak,

In the variable window , Cursor is not scrollable.So it display last record.So u will take 4 variables and move each line of internal table data to each variable.then u will use this variables in sap script form.Then it is working.

regards,

srinivasarao.oleti

[former_member188685]

Hi deepak,

you need to use the incldue text with the text id and text object. try to insert this code in the footer window.

/: INCLUDE &TDNAME& OBJECT VBBP ID 0001 LANGUAGE EN.

Regards

vijay

[Former Member]

Hi Deepak,

Instead of reading long text in the program, you can directly display the long text in the SAPScript.

In the footer window, do the following:

Goto Menu option "Insert" -> "Text" -> "Standard" -> Give <Text name>, <Text Id> and <Language>.

Hope it helps.

Regards,

Neeraj Gupta

[Former Member]

Hi,

do like this.

data: wa_var1(80) type c,

wa_var2(80) type c,

wa_var3(80) type c,

wa_var4(80) type c,

wa_var5(80) type c.

CALL FUNCTION 'READ_TEXT'

EXPORTING

id = '0001'

language = 'E'

name = VBDPA-TDNAME

object = 'VBBK'

tables

lines = GETTXT.

Loop At GETTXT.

case sy-tabix.

when '1'.

wa_var1 = GETTXT-tdline.

when '2'.

wa_var2 = GETTXT-tdline.

when '3'.

wa_var3 = GETTXT-tdline.

when '4'.

wa_var4 = GETTXT-tdline.

when '5'.

wa_var5 = GETTXT-tdline.

endcase.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

FUNCTION = set

WINDOW = FOOTER

endloop.

regards,

srinivasarao.oleti