*&---------------------------------------------------------------------*
*& Report  ZNR_TEST10
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZNR_TEST10.

data : wa TYPE lfa1 .

wa-LIFNR =  '9000100015'.
wa-LAND1 = 'IN' .
wa-NAME1 = 'ABHI'.
wa-NAME2 = 'Robertson'.
wa-LOEVM = 'X'.

MODIFY lfa1 from wa .

EXECUTE THE PROGRAM & GO TO SE11 & CHECK IT.

REPORT  ZNR_TEST20.

DATA: BEGIN OF WA,
              COL1 TYPE C,
              COL2 TYPE I,
         END OF WA.
DATA ITAB LIKE TABLE OF WA.
DO 3 TIMES.
  APPEND INITIAL LINE TO ITAB.
  WA-COL1 = SY-INDEX. WA-COL2 = SY-INDEX ** 2.
  APPEND WA TO ITAB.
ENDDO.
LOOP AT ITAB INTO WA.
  WRITE: / WA-COL1, WA-COL2.
ENDLOOP.

REPORT  ZCONCZTE.
data date(10) type c.
 write:/ sy-datum.
 CONCATENATE sy-datum+0(4) sy-datum+4(2) sy-datum+6(2) INTO date SEPARATED BY '/'.

 WRITE:/ date.

REPORT  ZNR_SPLIT.

data : str1 TYPE f VALUE '3.4',
       str2 TYPE p VALUE '4.1',
       str3 TYPE i ,
       str4 TYPE i .

 str3 = floor( str1 ).
 str4 = floor( str2 ).

       WRITE :/ str1 ,
                      str2 .

REPORT  ZCOLLECT.

data:begin of it OCCURS 0,
     cust(5) type c,
     mat(4) type c,
     qty type i,
     END OF it.

     it-cust = '1000'.
     it-mat  = 'f001'.
     it-qty  = 100.
     collect it.

     it-cust = '1000'.
     it-mat  = 'f001'.
     it-qty  = 300.
     collect it.

     it-cust = '1000'.
     it-mat  = 'f002'.
     it-qty  = 100.
     collect it.

     it-cust = '1000'.
     it-mat  = 'f002'.
     it-qty  = 400.
     collect it.

     loop at it.
       write:/ it-cust,
               it-mat,
               it-qty.
       ENDLOOP.