Classical Report-8

Report with sub-routine

REPORT  ZREPORT8.

TABLES:VBAP.

DATA: BEGIN OF ITAB1 OCCURS 10,
     VBELN LIKE VBAP-VBELN,
     POSNR LIKE VBAP-POSNR,
     MATNR LIKE VBAP-MATNR,
     NETWR LIKE VBAP-NETWR,
     END OF ITAB1.

SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS: S_VBELN FOR VBAP-VBELN.

SELECTION-SCREEN: END OF BLOCK B1.

START-OF-SELECTION.

SELECT VBELN POSNR MATNR NETWR FROM VBAP INTO TABLE ITAB1 WHERE VBELN IN S_VBELN.

PERFORM GET_DATA.
INCLUDE ZINCLUDE_01.