Passing Internal Table from Subroutine to Script

[Former Member]

Hi,

Can I know whether this piece of code will work.

FORM TERMS_OF_PAYMENT TABLES IN_TAB STRUCTURE ITCSY

OUT_TAB STRUCTURE ITCSY.

READ TABLE IN_TAB WITH KEY NAME = 'EKKO-ZTERM'.

IF SY-SUBRC = 0.

E_ZTERM = IN_TAB-VALUE.

CALL FUNCTION 'FI_PRINT_ZTERM'

EXPORTING

I_ZTERM = E_ZTERM

I_LANGU = SY-LANGU

TABLES

T_ZTEXT = ZTERM.

ENDIF.

LOOP AT ZTERM.

READ TABLE OUT_TAB WITH KEY NAME = 'ZTERM-T_ZTEXT'.

IF SY-SUBRC = 0.

OUT_TAB-VALUE = ZTERM-T_ZTEXT.

MODIFY OUT_TAB INDEX SY-TABIX.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'TERM_OF_PAYMENT'

WINDOW = 'TERM_PAY'.

ENDIF.

ENDLOOP.

Can anyone please help...

Vijay.

[Former Member]

Modify the code like this - do not use loop and do not use write_form

READ TABLE OUT_TAB WITH KEY NAME = 'ZTERM-T_ZTEXT'.

IF SY-SUBRC = 0.

OUT_TAB-VALUE = ZTERM-T_ZTEXT.

MODIFY OUT_TAB INDEX SY-TABIX.