P7

Download as txt, pdf, or txt
Download as txt, pdf, or txt
You are on page 1of 1

*&---------------------------------------------------------------------*

*& Report ZSREENU_PROGRAM7


*
*&
*
*&---------------------------------------------------------------------*
*&
*
*&
*
*&---------------------------------------------------------------------*
REPORT ZSREENU_PROGRAM7
.
**************FIRST INTERNAL TABLE*************
DATA : BEGIN OF ITAB OCCURS 6,
A TYPE I,
B TYPE I,
END OF ITAB.
DO 6 TIMES.
ITAB-A = SY-INDEX.
ITAB-B = SY-INDEX * 10.
APPEND ITAB.
ENDDO.
WRITE :'ITAB HEADER :'.
WRITE : / ITAB-A,ITAB-B.
WRITE : / 'ITAB BODY :'.
LOOP AT ITAB.
WRITE : / ITAB-A,ITAB-B.
ENDLOOP.
*************SECOND INTERNAL TABLE**************
DATA : JTAB LIKE ITAB OCCURS 5 WITH HEADER LINE.
DO 5 TIMES.
JTAB-A = SY-INDEX.
JTAB-B = SY-INDEX * 100.
APPEND JTAB .
ENDDO.
*
*
*

APPEND ITAB TO JTAB.


APPEND LINES OF ITAB TO JTAB.
APPEND LINES OF ITAB FROM 2 TO 4 TO JTAB.
WRITE : / 'HEADER OF JTAB'.
WRITE : / JTAB-A,JTAB-B.
WRITE :/ 'BODY OF JTAB :'.
LOOP AT JTAB.
WRITE : / JTAB-A,JTAB-B.
ENDLOOP.

You might also like