topic How to psss a table from sapscript to routine program in Application Development and Automation Discussions

How to psss a table from sapscript to routine program

Former Member — Mon, 15 Dec 2008 12:10:02 GMT

HI,

i want to pass a table from sapscript to routine program.

the requirment is to sor the table by material number wise.

how do we pass throug itcsy structure.

Regards,

Balachandran

Re: How to psss a table from sapscript to routine program

Former Member — Mon, 15 Dec 2008 12:15:06 GMT

REPORT YMMR_TDS_LPRG .

TABLES: ADRC."Central address administration

----

FORM FETCH_VEN_ADD *

----

........ *

----

--> IN_TAB *
--> OUT_TAB *

----

FORM FETCH_VEN_ADD TABLES IN_TAB STRUCTURE ITCSY

OUT_TAB STRUCTURE ITCSY.

DATA: L_STREET4 LIKE ADRC-CITY2,

L_STREET5 LIKE ADRC-LOCATION,

L_INDEX1 LIKE SY-TABIX.

DATA: LEN TYPE I.

DATA: Z1(5) VALUE '00000'.

LEN = STRLEN( IN_TAB-VALUE ).

IF LEN = 5.

CONCATENATE '00000' IN_TAB-VALUE INTO IN_TAB-VALUE.

ELSEIF LEN = 6.

CONCATENATE '0000' IN_TAB-VALUE INTO IN_TAB-VALUE.

ENDIF.

SELECT CITY2 LOCATION FROM ADRC

INTO (L_STREET4,L_STREET5)

WHERE ADDRNUMBER = IN_TAB-VALUE.

IF SY-SUBRC = 0.

LOOP AT OUT_TAB.

CLEAR L_INDEX1.

IF OUT_TAB-NAME = 'ADRC-CITY2'.

L_INDEX1 = SY-TABIX.

OUT_TAB-VALUE = L_STREET4.

MODIFY OUT_TAB INDEX L_INDEX1 TRANSPORTING VALUE.

ELSE.

L_INDEX1 = SY-TABIX.

OUT_TAB-VALUE = L_STREET5.

MODIFY OUT_TAB INDEX L_INDEX1 TRANSPORTING VALUE.

ENDIF.

ENDLOOP.

ENDIF.

ENDSELECT.

ENDFORM.

Se71

/:PERFORM FETCH_VEN_ADD IN PROGRAM YMMR_TDS_LPRG

/:USING &T001-ADRNR&

/:CHANGING &ADRC-CITY2&

/:CHANGING &ADRC-LOCATION&

/:ENDPERFORM

Re: How to psss a table from sapscript to routine program

che_eky — Mon, 15 Dec 2008 12:15:16 GMT

You cannot pass a table from sapscript to a routine program.

Re: How to psss a table from sapscript to routine program

Former Member — Mon, 15 Dec 2008 12:16:22 GMT

Hi Bala,

Please see the code below.

This is the Sub-Routine call in SAP Script.


PERFORM ZGET_TOTAL_AMOUNT IN PROGRAM ZFARFINVADDR
USING &BSEG-FWBAS&
USING &BSET-FWSTE&
USING &BKPF-WAERS&
USING &TOTFLAG&
USING &BSET-SHKZG&
CHANGING &TOT-TOT&
ENDPERFORM

This is the Sub-Routine in the program


FORM zget_total_amount TABLES t_in STRUCTURE itcsy
                                                    t_out STRUCTURE itcsy.
ENDFORM.

As you see in the above example, you need to pass value by value to the structure ITCSY.

The structurre needs Name and Value as the parameters.

While reading the tables in the sub-routine, you need to follow the below given procedure.


READ TABLE t_in WITH KEY name = 'BSEG-FWBAS'.
CHECK sy-subrc = 0.
ws_fwbas = t_in-value.

Read the table using the name and in the record that you retreive, in the field VALUE, you will have the real value.

Hope this is helpful.

Best Regards,

Ram.

Re: How to psss a table from sapscript to routine program

Former Member — Mon, 07 Nov 2011 06:03:37 GMT

Answerd