Classical Report Requirement - 1

 Classical  Report Requirement -1 

Requirement : Create a report to the display the data of  MARA table (General Material Data), MSEG table (Document Segment Material) and MARD table (Storage Location Data for Material), when selected the respective radio button with two display push buttons named REPORT which will display the report and EXIT which will leave the program as per the following-

Classical Report for the above requirement.

REPORT YCLASSICAL_1 NO STANDARD PAGE HEADING.

TABLES: MARA, MARD, MSEG, SSCRFIELDS.

SELECTION-SCREEN: BEGIN OF LINE.
  SELECTION-SCREEN: PUSHBUTTON (10) BUTTON1 USER-COMMAND DIS,
                    PUSHBUTTON (10) BUTTON2 USER-COMMAND CAN.
  SELECTION-SCREEN: END OF LINE.

SELECTION-SCREEN:BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-000.
  SELECT-OPTIONS: M_MATNR FOR MARA-MATNR.
SELECTION-SCREEN: END OF BLOCK B1.

SELECTION-SCREEN: BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-001.
  PARAMETERS: MARA_TAB RADIOBUTTON GROUP TTT,
              MARD_TAB RADIOBUTTON GROUP TTT,
              MSEG_TAB RADIOBUTTON GROUP TTT.
SELECTION-SCREEN: END OF BLOCK B2.

TYPES: BEGIN OF TY_STR1,
       MATNR TYPE MATNR,
       MTART TYPE MTART,
       MEINS TYPE MEINS,
       NTGEW TYPE NTGEW,
       BRGEW TYPE BRGEW,
       END OF TY_STR1,

       BEGIN OF TY_STR2,
       MATNR TYPE MATNR,
       WERKS TYPE WERKS_D,
       LGORT TYPE LGORT_D,
       LABST TYPE LABST,
       END OF TY_STR2,

       BEGIN OF TY_STR3,
       MATNR TYPE MATNR,
       BWART TYPE BWART,
       MENGE TYPE MENGE_D,
       DMBTR TYPE DMBTR,
       END OF TY_STR3.

DATA: IT1 TYPE TABLE OF TY_STR1,
      WA1 TYPE          TY_STR1,

      IT2 TYPE TABLE OF TY_STR2,
      WA2 TYPE          TY_STR2,

      IT3 TYPE TABLE OF TY_STR3,
      WA3 TYPE          TY_STR3.

INITIALIZATION.
BUTTON1 = 'REPORT'.
BUTTON2 = 'EXIT'.

AT SELECTION-SCREEN.
  IF SSCRFIELDS-UCOMM = 'DIS'.
    SSCRFIELDS-UCOMM = 'ONLI'.
  ELSEIF SSCRFIELDS-UCOMM = 'CAN'.
    LEAVE PROGRAM.
 ENDIF.

START-OF-SELECTION.
  IF MARA_TAB = 'X'.
    SELECT MATNR MTART MEINS NTGEW BRGEW
      FROM MARA INTO TABLE IT1
      WHERE MATNR IN M_MATNR.

      WRITE:/ 'MATNR', 20 'MTART', 40 'MEINS', 70 'NTGEW', 90 'BRGEW'.
       ULINE.

      LOOP AT IT1 INTO WA1.
        WRITE:/ WA1-MATNR,
              20 WA1-MTART,
              40 WA1-MEINS,
              60 WA1-NTGEW,
              80 WA1-BRGEW.
        ULINE.
       ENDLOOP.
ENDIF.

IF MARD_TAB = 'X'.
    SELECT MATNR WERKS LGORT LABST
      FROM MARD INTO TABLE IT2
      WHERE MATNR IN M_MATNR.

      WRITE:/ 'MATNR', 20 'WERKS', 40 'LGORT', 70 'LABST'.
       ULINE.

      LOOP AT IT2 INTO WA2.
        WRITE:/ WA2-MATNR,
              20 WA2-WERKS,
              40 WA2-LGORT,
              60 WA2-LABST.
        ULINE.
       ENDLOOP.
ENDIF.

IF MSEG_TAB = 'X'.
    SELECT MATNR BWART MENGE DMBTR
      FROM MSEG INTO TABLE IT3
      WHERE MATNR IN M_MATNR.

      WRITE:/ 'MATNR', 20 'BWART', 50 'MENGE', 70 'DMBTR'.
       ULINE.

      LOOP AT IT3 INTO WA3.
        WRITE:/ WA3-MATNR,
              20 WA3-BWART,
              40 WA3-MENGE,
              60 WA3-DMBTR.
        ULINE.
       ENDLOOP.
ENDIF.

TOP-OF-PAGE.
WRITE:/65 'CLASSICAL REPORT WITH PUSHBUTTONS' COLOR 6.
ULINE.
SKIP.
END-OF-PAGE.

Output-