how i pass parameters

[Former Member]

i wrote a simple program like this...

REPORT ZMYTESTPRG36 .

DATA: A TYPE I, B TYPE I.

A = 5.

B = 4.

PERFORM ADD_DATA using A B.

FORM ADD_DATA using x y.

DATA Z TYPE I.

x = 2.

y = 5.

Z = X + Y.

WRITE : 'THE SUM OF ', a , b , 'IS ', Z.

ENDFORM.

i am getting the result as 7.

how i get the result as 9.

with call by reference concept..

i wanna pass the actual parameters to the subroutine...

Message was edited by:

balaji velpuri

[Former Member]

i wrote a simple program like this...

REPORT ZMYTESTPRG36 .

DATA: A TYPE I, B TYPE I.

A = 5.

B = 4.

PERFORM ADD_DATA using A B.

FORM ADD_DATA using x y.

DATA Z TYPE I.

x = 2.

y = 5.

Z = X + Y.

WRITE : 'THE SUM OF ', a , b , 'IS ', Z.

ENDFORM.

i am getting the result as 7.

how i get the result as 9.

with call by reference concept..

i wanna pass the actual parameters to the subroutine...

Message was edited by:

balaji velpuri

[Former Member]

HI,

if you don't define the parameters new.

Delete the lines

x = 2.

y = 5.

and it shoult work.

regards

NIcole

[Former Member]

REPORT ZMYTESTPRG36 .

DATA: A TYPE I, B TYPE I.

A = 5.

B = 4.

PERFORM ADD_DATA using A B.

FORM ADD_DATA using x y.

DATA Z TYPE I.

<b>*x = 2.

*y = 5.</b>

Z = X + Y.

WRITE : 'THE SUM OF ', a , b , 'IS ', Z.

ENDFORM.

Comment the values of X and Y in the subroutine. You'll get the output as 9.

Regards,

Pavan

[Former Member]

use following

REPORT ZMYTESTPRG36 .

DATA: A TYPE I, B TYPE I.

data: z type i.

A = 5.

B = 4.

PERFORM ADD_DATA using A B.

Z = A + B.

WRITE : 'THE SUM OF ', a , b , 'IS ', Z.

FORM ADD_DATA using x y.

DATA Z TYPE I.

x = 2.

y = 5.

Z = X + Y.

WRITE : 'THE SUM OF ', a , b , 'IS ', Z.

ENDFORM.

[varma_narayana]

Hi Balaji..

Try this code:

REPORT ZMYTESTPRG36 .

DATA: A TYPE I, B TYPE I.

A = 5.

B = 4.

PERFORM ADD_DATA using A B.

FORM ADD_DATA using x y.

DATA Z TYPE I.

Z = X + Y.

WRITE : 'THE SUM OF ', a , b , 'IS ', Z.

ENDFORM.

<b>REWARD IF HELPFUL.</b>

[Former Member]

Hi Balaji,

'using' will act as call by value and 'changing' will act as call by reference.

Refer the below code.

x = 4.

y = 5.

Perform ADD_DATA using x y changing s

WRITE : 'THE SUM OF ', x , y , 'IS ', S.

FORM ADD_DATA VALUES x y CHANGING S.

DATA Z TYPE I.

S = X + Y.

ENDFORM.

Regards,

Sheron