Classical Report

*&---------------------------------------------------------------------*
*& Report  ZCLASS_REPORT_01_ASHU
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZCLASS_REPORT_01_ASHU.

*LOCAL STRUCTURE

TYPES : BEGIN OF TY_MARA,
          MATNR TYPE MATNR,
          ERSDA TYPE ERSDA,
          ERNAM TYPE ERNAM,
          MTART TYPE MTART,
          MATKL TYPE MATKL,
          MEINS TYPE MEINS,
        END OF TY_MARA.

*INTERNAL TABLE DEFINATION

DATA : IT_MARA TYPE TABLE OF TY_MARA,
       WA_MARA TYPE TY_MARA.

*REFERENCE FOR TABLE FIELD TO ACCESS IN SELECT OPTION

DATA: S_MATNR LIKE MARA-MATNR.

SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME.
SELECT-OPTIONS: SA_MATNR FOR S_MATNR.
PARAMETER PA_ERSDA TYPE ERSDA.
SELECTION-SCREEN : END OF BLOCK B1.

INITIALIZATION.
  PA_ERSDA = SY-DATUM.

START-OF-SELECTION.

  SELECT MATNR ERSDA ERNAM MTART MATKL MEINS
         FROM MARA
         INTO TABLE IT_MARA
         WHERE MATNR IN SA_MATNR
              OR ERSDA EQ PA_ERSDA.

END-OF-SELECTION.

  LOOP AT IT_MARA INTO WA_MARA.

    WRITE :/    WA_MARA-MATNR,
                WA_MARA-ERSDA,
                WA_MARA-ERNAM,
                WA_MARA-MTART,
                WA_MARA-MATKL,
                WA_MARA-MEINS.
  ENDLOOP.

TOP-OF-PAGE.

WRITE: / 'MATERIAL NUMBER' UNDER WA_MARA-MATNR,
         'CREATED ON' 'UNDER' WA_MARA-ERSDA,
         'NAME PERSON WHO CREATED THE OBJECT' WA_MARA-ERNAM,
         'MATERIAL TYPE' 'UNDER' WA_MARA-MTART,
         'MATERIAL GROUP',
         'BASE UNIT OF MEASURE'.