perform stm

Former Member — Mon, 11 Jun 2007 05:56:12 GMT

plz send me one example abt perform stm.

and plz explain me abt using,

changing,

value.

Re: perform stm

Former Member — Mon, 11 Jun 2007 05:59:07 GMT

hi,

PERFORM

Variants:

1. PERFORM form.

2. PERFORM form IN PROGRAM prog.

3. PERFORM n OF form1 form2 form3 ... .

4. PERFORM form ON COMMIT.

5. PERFORM form ON ROLLBACK.

6. PERFORM form(prog).

Variant 1

PERFORM form.

Extras:

1. ... TABLES itab1 itab2 ...

2. ... USING u1 u2 u3 ...

3. ... CHANGING c1 c2 c3 ...

Effect

Calls the subroutine form defined usng a FORM statement. After the subroutine has finished, processing continues after the PERFORM statement.

Note

The order and number of parameters after TABLES, USING, and CHANGING depends strictly on the definition of the subroutine interface in the FORM statement (position parameter). If you use the TABLES addition with FORM, you must also use it at the start with PERFORM and specify the correct number of table-like actual parameters after. With PERFORM the additions USING and CHANGING are synonymous. You can specify both additions or only one. It is only essential that the number, order, and type of the specified actual parameters correspond to the formal parameters. However, for reasons of protocol you should use the additions as with the definition of the subroutine in FORM.

Example

PERFORM HELP_ME.

...

FORM HELP_ME.

...

ENDFORM.

The PERFORM statement calls the subroutine HELP_ME.

Addition 1

... TABLES itab1 itab2 ...

Effect

You must use TABLES to transfer internal tables to subroutines whose interface definitions have a TABLES addition in the FORM statement.

Example

TYPES: BEGIN OF ITAB_TYPE,

TEXT(50),

NUMBER TYPE I,

END OF ITAB_TYPE.

DATA: ITAB TYPE STANDARD TABLE OF ITAB_TYPE WITH

NON-UNIQUE DEFAULT KEY INITIAL SIZE 100,

BEGIN OF ITAB_LINE,

TEXT(50),

NUMBER TYPE I,

END OF ITAB_LINE,

STRUC like T005T.

...

PERFORM DISPLAY TABLES ITAB

USING STRUC.

FORM DISPLAY TABLES PAR_ITAB STRUCTURE ITAB_LINE

USING PAR like T005T.

DATA: LOC_COMPARE LIKE PAR_ITAB-TEXT.

WRITE: / PAR-LAND1, PAR-LANDX.

...

LOOP AT PAR_ITAB WHERE TEXT = LOC_COMPARE.

...

ENDLOOP.

ENDFORM.

Within the DISPLAY subroutine, you can use all available table operations on the transferred internal tables. For TABLES parameters the system automatically creates a header, which may be filled with the contents of the actual parameter header.

Addition 2

... USING u1 u2 u3 ...

Addition 3

... CHANGING c1 c2 c3 ...

Effect

These additions must be followed by type-related actual parameters for all USING and CHANGING parameters of the called subroutine. The two additions are equivalent. Only the order of the parameters is important. The first USING or CHANGING parameter of the PERFORM call is transferred to the first USING or CHANGING parameter of the subroutine, the second to the second, and so on. For documentation reasons you should, when calling, use the same addition as with the subroutine definition.

You can specify offset and length of a parameter as variables. If you use the addition ' ...USING p1+off(*)', the parameter p1 will be passed with the offset off, but the length will not exceed the total length of the field.

Example

DATA: NUMBER_I TYPE I VALUE 5,

NUMBER_P TYPE P VALUE 4,

BEGIN OF PERSON,

NAME(10) VALUE 'Paul',

AGE TYPE I VALUE 28,

END OF PERSON,

ALPHA(10) VALUE 'abcdefghij'.

FIELD-SYMBOLS TYPE ANY.

ASSIGN NUMBER_P TO .

PERFORM CHANGE USING 1

NUMBER_I

NUMBER_P

PERSON

ALPHA+NUMBER_I().

FORM CHANGE USING VALUE(PAR_1)

PAR_NUMBER_I

PAR_NUMBER_P

PAR_POINTER

PAR_PERSON STRUCTURE PERSON

PAR_PART_OF_ALPHA.

ADD PAR_1 TO PAR_NUMBER_I.

PAR_NUMBER_P = 0.

PAR_PERSON-NAME+4(1) = ALPHA.

PAR_PERSON-AGE = NUMBER_P + 25.

ADD NUMBER_I TO PAR_POINTER.

PAR_PART_OF_ALPHA = SPACE.

ENDFORM.

Field contents after the PERFORM statement:

NUMBER_I = 6

NUMBER_P = 6

= 6

PERSON-NAME = 'Paula'

PERSON-AGE = 25

ALPHA = 'abcde j'

Notes

If you want to pass the body of an internal table itab that has a header line, you must use the notation itab[] (see Data Objects). If you do not use the brackets, the header line of the tabel is passed.

The field types and lengths of the parameters remain the same. If a parameter is changed within the subroutine, it will still have the changed value after the subroutine has finished. This does not apply to parameters passed using VALUE. werden.

If you pass literals, they may not be changed unless you pass them to a formal parameter defined with USING VALUE.

PS:Reward if useful

Re: perform stm

santhosh_patil — Mon, 11 Jun 2007 06:00:10 GMT

Hi,

check this

DATA: num1 TYPE i,

num2 TYPE i,

res TYPE p DECIMALS 2.

num1 = 3. num2 = 4.

PERFORM divide USING num1 num2 CHANGING res.

num1 = 5. num2 = 0.

PERFORM divide USING num1 num2 CHANGING res.

num1 = 2. num2 = 3.

PERFORM divide USING num1 num2 CHANGING res.

FORM divide USING n1 TYPE any

n2 TYPE any

CHANGING r TYPE any.

CHECK n2 NE 0.

r = n1 / n2.

WRITE: / n1, '/', n2, '=', r.

ENDFORM.

--Patil

Re: perform stm

Yogitha — Mon, 11 Jun 2007 06:43:37 GMT

Hi,

The PERFORM statement transfers control explicitly to one or more procedures and implicitly returns control to the next executable statement after execution of the specified procedures is completed. It calls an ABAP subroutine (form) from any program, subject to the normal ABAP runtime authorization checking.

First, define the subroutine and then save your main program. The newly-defined subroutine appears in the navigation area. Move it to the required call point in your program by means of drag & drop. All you have to do is replace the formal parameters in the generated source code with corresponding actual parameters. Alternatively, the call generation can also be implemented using the <Pattern> pushbutton in the ABAP editor.

Syntax:

Perform < subroutine name > Using Var1 Changing <Var2>.

"using Var1" doesn't reflect any changes that we made to Var1 in the subroutine. But "changing Var2" reflects the changes we made to Var2.It is similar to the concept call by value and call by reference.

Example:

v1=10

v2=20

perform subroutine using v1 changing v2.

form subroutine

using

value a1 -> Call by value

changing

a2. -> Call by reference

a1 =30.

a2=40.

endform.

then the values of v1 = 10 v2 =40.

Regards,

Yogitha

topic Re: perform stm in Application Development and Automation Discussions

perform stm

Re: perform stm

Re: perform stm

Re: perform stm