topic Re: SAP SCRIPT PERFORM ERROR in Application Development and Automation Discussions

SAP SCRIPT PERFORM ERROR

Former Member — Mon, 25 Jun 2007 17:28:31 GMT

HI,

I AM USING FOLLOWING CODE IN SAP SCRIPT

/: PERFORM SUM IN PROGRAM ZSUM

/: USING &REGUD-WRBTR&

/: USING &REGUD-WABZG&

/: CHANGING &VAR&

/: ENDPERFORM

AND PROGRAM

FORM SUM USING TABLES IN_PAR STRUCTURE ITCSY

changing OUT_PAR STRUCTURE ITCSY.

READ TABLE IN_PAR WITH KEY NAME = ‘VAR1’.

var1_sc = IN_PAR-VALUE.

READ TABLE IN_PAR WITH KEY NAME = ‘VAR2’.

var2_sc = IN_PAR-VALUE.

tot = var1_sc - var2_sc.

READ TABLE OUT_PAR WITH KEY NAME = ‘VAR’.

Out_PAR-VALUE = tot.

ENDFORM.

NOW ITS GIVING DUMP TELLING "This routine contains 3 formal para , but the current call contains 4 actual parameters." IF I COMMENT CODE IN FORM.

IF I REMOVE CODE IN FORM THEN IT GIVE SYSTAX ERROR :

& ALSO in_PAR IS NOT INTERNAL TABLE\

PLEASE HELP ME

Re: SAP SCRIPT PERFORM ERROR

Former Member — Mon, 25 Jun 2007 17:32:53 GMT

You are using 2 parameters ®UD-WRBTR&

®UD-WABZG& only with perform

see the sample code and do accordingly

How to call a subroutine form SAPscripts

The Form :

/:PERFORM CDE_CENT IN PROGRAM ZKRPMM_PERFORM_Z1MEDRUCK

/:USING &EKKO-EBELN&

/:CHANGING &CDECENT&

/:ENDPERFORM

The report :

REPORT zkrpmm_perform_z1medruck .

DATA : BEGIN OF it_input_table OCCURS 10.

INCLUDE STRUCTURE itcsy.

DATA : END OF it_input_table.

déclaration de la table output_table contenant les

variables exportées

DATA : BEGIN OF it_output_table OCCURS 0.

INCLUDE STRUCTURE itcsy.

DATA : END OF it_output_table.

DATA : w_ebeln LIKE ekko-ebeln,

w_vbeln LIKE vbak-vbeln,

w_zcdffa LIKE vbak-zcdffa.

*----

FORM CDE_CENT

*----

FORM cde_cent TABLES input output.

it_input_table[] = input[].

it_output_table[] = output[].

READ TABLE it_input_table INDEX 1.

MOVE it_input_table-value TO w_ebeln.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = w_ebeln

IMPORTING

output = w_ebeln.

SELECT SINGLE zcdffa FROM ekko

INTO w_zcdffa

WHERE ebeln = w_ebeln.

it_output_table-name = 'CDECENT'.

MOVE w_zcdffa TO it_output_table-value.

MODIFY it_output_table INDEX 1.

output[] = it_output_table[].

ENDFORM.

*************************************************************************

REPORT ZMPO1 .

form get_freight tables in_par structure itcsy out_par structure itcsy.

tables: ekko,konv,t685t.

data: begin of itab occurs 0,

ebeln like ekko-ebeln,

knumv like ekko-knumv,

end of itab.

data: begin of itab1 occurs 0,

knumv like konv-knumv,

kposn like konv-kposn,

kschl like konv-kschl,

kbetr like konv-kbetr,

waers like konv-waers,

kwert like konv-kwert,

end of itab1.

data: begin of iout occurs 0,

kschl like konv-kschl,

vtext like t685t-vtext,

kbetr like konv-kbetr,

kwert like konv-kwert,

end of iout.

data v_po like ekko-ebeln.

read table in_par with key 'EKKO-EBELN'.

if sy-subrc = 0.

v_po = in_par-value.

select

ebeln

knumv

from ekko

into table itab

where ebeln = v_po.

if sy-subrc = 0.

loop at itab.

select

knumv

kposn

kschl

kbetr

waers

kwert

into table itab1

from konv

where knumv = itab-knumv and

kappl = 'M'.

endloop.

loop at itab1.

if itab1-kposn <> 0.

select single * from t685t

where kschl = itab1-kschl

and kappl = 'M'

and spras = 'EN'.

iout-vtext = t685t-vtext.

iout-kschl = itab1-kschl.

iout-kbetr = itab1-kbetr.

iout-kwert = itab1-kwert.

append iout.

clear iout.

endif.

endloop.

sort itab1 by kposn.

loop at iout.

sort iout by kschl.

if ( iout-kschl eq 'GSDC' OR

iout-kschl eq 'GSFR' OR

iout-kschl eq 'GSIR' ).

at end of kschl.

read table iout index sy-tabix.

sum.

write:/ iout-kschl,iout-vtext,iout-kwert.

out_par-name = 'A1'.

out_par-value = iout-vtext.

append out_par.

out_par-name = 'A2'.

out_par-value = iout-kwert.

append out_par.

endat.

endif.

endloop.

endif.

endform.

IN THE FORM I AM WRITING THIS CODE.

/:DEFINE &A1& = ' '

/:DEFINE &A2& = ' '

/:PERFORM GET_FREIGHT IN PROGRAM ZMFORM_PO1

/:USING &EKKO-EBELN&

/:CHANGING &A1&

/:CHANGING &A2&

/:ENDPERFORM

&A1&
&A2&

Reward points for useful Answers

Regards

Anji

Message was edited by:

Anji Reddy Vangala

Re: SAP SCRIPT PERFORM ERROR

RichHeilman — Mon, 25 Jun 2007 17:35:07 GMT

Not sure if this is going to make a difference or not, try putting quotes around the name of the FORM routine and the program name.

/: PERFORM 'SUM' IN PROGRAM 'ZSUM'

Regards,

Rich Heilman

Re: SAP SCRIPT PERFORM ERROR

RichHeilman — Mon, 25 Jun 2007 17:37:02 GMT

Oh yea, also these are TABLES parameter. So in the sapscript it is fine, but in your program make it like so. Remove the word Changing

FORM SUM USING TABLES IN_PAR STRUCTURE ITCSY
                                           OUT_PAR STRUCTURE ITCSY.

REgards,

RIch Heilman

Re: SAP SCRIPT PERFORM ERROR

Former Member — Mon, 25 Jun 2007 17:37:48 GMT

can you tell me, what should i change in code

Re: SAP SCRIPT PERFORM ERROR

RichHeilman — Mon, 25 Jun 2007 17:39:04 GMT

Change this line to be like this, with the CHANGING removed. Both are TABLES parameters, don't change anything in the sapscript form.

FORM SUM USING TABLES IN_PAR STRUCTURE ITCSY
                                  OUT_PAR STRUCTURE ITCSY.

REgards.

Rich Heilman