ABAP Subroutine Define Sample

TYPES : BEGIN OF LINE,

NAME(10),

ADD(10),

END OF LINE.

DATA : PER1 TYPE LINE.

PER1-NAME = ‘AAAA’.

PER1-ADD = ‘BBBB’.

PERFORM DISPLAY USING PER1. ” calling the subroutine – Display

WRITE :/ PER1-NAME, PER1-ADD.

*&———————————————————————*

*& Form DISPLAY

*&———————————————————————*

FORM DISPLAY USING VALUE(P_PER1) TYPE LINE.

WRITE :/ P_PER1-NAME, P_PER1-ADD.

P_PER1-NAME = ‘CCCC’.

P_PER1-ADD = ‘DDDD’.

WRITE :/ PER1-NAME, PER1-ADD.

ENDFORM. ” DISPLAY

**********OUTPUT**********

AAAA BBBB

Serkan AKKAVAK

Computer Engineer BSc

Head of SAP & Software Department

Contact : serkurumsal@yandex.com