example code for adding more than one fields in sap script with itcsy

[Former Member]

hi all,

can anybody send an example code for adding two or more new fields using form routines in script.

[Former Member]

Hi,

you can refer the following piece of code;

in script:

/:PERFORM abc IN PROGRAM ztest_PERFORM

/: USING &EKPO-MATNR&

/: Using &EKPO-WERKS&

/: CHANGING &G_MFRPN&

/: CHANGING &G_MFRNR&

/: ENDPERFORM

in program ZTEST:

FORM abc TABLES textin_tab STRUCTURE itcsy

textout_tab STRUCTURE itcsy.

DATA: l_matnr LIKE ekpo-matnr, "Material No.

l_werks LIKE ekpo-werks, "Plant

l_mfrpn LIKE mara-mfrpn, "Manufacturer Part Number

l_mfrnr LIKE mara-mfrnr, "Number of a Manufacturer

READ TABLE textin_tab INDEX 1.

l_matnr = textin_tab-value.

CLEAR textin_tab.

READ TABLE textin_tab INDEX 2.

l_werks = textin_tab-value.

CLEAR textin_tab.

CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'

EXPORTING

input = l_matnr

IMPORTING

output = l_matnr

EXCEPTIONS

length_error = 1

OTHERS = 2.

CLEAR : l_mfrpn , l_mfrnr.

SELECT SINGLE mfrpn mfrnr FROM mara INTO (l_mfrpn ,

l_mfrnr)

WHERE matnr EQ l_matnr.

READ TABLE textout_tab INDEX 1.

textout_tab-value = l_mfrpn.

MODIFY textout_tab INDEX 1.

CLEAR textout_tab.

READ TABLE textout_tab INDEX 2.

textout_tab-value = l_mfrnr.

MODIFY textout_tab INDEX 2.

CLEAR textout_tab.

ENDFORM.

Hope this helps.

Thanks,

Rashmi.

[narin_nandivada3]

Hi,

Please check these threads

Hope these would help you.

Good luck

Narin

[former_member585060]

FORM get_rfqtxt TABLES in_tab STRUCTURE itcsy

out_tab STRUCTURE itcsy.

READ TABLE in_tab INDEX 1.

w_ebeln = in_tab-value.

READ TABLE in_tab INDEX 2.

w_ebelp = in_tab-value.

READ TABLE in_tab INDEX 3.

w_spras = in_tab-value.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = w_ebeln

IMPORTING

output = w_ebeln.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = w_ebelp

IMPORTING

output = w_ebelp.

SELECT agmem

FROM ekpo INTO w_agmem

WHERE ebeln = w_ebeln AND

ebelp = w_ebelp.

SELECT SINGLE agtxt FROM tmamt INTO w_agtxt WHERE agmem = w_agmem AND

spras = w_spras.

ENDSELECT.

READ TABLE out_tab INDEX 1.

MOVE w_agtxt TO out_tab-value.

MODIFY out_tab INDEX sy-tabix.

ENDFORM. "get_rfqtxt

[former_member585060]

Perform in SAPScript is

/: PERFORM get_rfqtxt PROGRAM <ZXXX>

/: USING &XXX-EBELN&

/: USING &XXX-EBELP&

/: USING &XXX-SPRAS&

/: CHANGING&XXX-AGTXT&

/: ENDPERFORM

If u have more fields in out_tab

Read the out_tab with index

move the value

modify the out_tab.

like wise for in_tab also.

Edited by: Bala Krishna on Aug 14, 2008 6:54 PM