YINTERACTIVE

YINTERACTIVE_REPORT

*&---------------------------------------------------------------------*
*& Report  YINTERACTIVE_REPORT
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  yinteractive_report1 NO STANDARD PAGE HEADING
                             LINE-SIZE 60
                             LINE-COUNT 255
                             MESSAGE-ID zsan.

** T Y P E    D E C L A R A T I O N **
TYPES : BEGIN OF ty_mara,
         matnr TYPE matnr,
         ernam TYPE ernam,
         pstat TYPE pstat_d,
        END OF ty_mara,

        BEGIN OF ty_makt,
         matnr TYPE matnr,
         spras TYPE spras,
         maktx TYPE maktx,
        END OF ty_makt.

** D A T A     D E C L A R A T I O N **
DATA : it_mara  TYPE STANDARD TABLE OF ty_mara,
       it_makt  TYPE STANDARD TABLE OF ty_makt,
       wa_mara  TYPE ty_mara,
       wa_makt  TYPE ty_makt,
       gv_matnr TYPE mara-matnr.

** C O N S T A N T     D E C L A R A T I O N **
CONSTANTS : c_23  TYPE matnr VALUE '23',
            c_100 TYPE matnr VALUE '100',
            c_eng TYPE spras VALUE 'E'.

** S E L E C T I O N    S C R E E N **
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-006.
SELECT-OPTIONS   : s_matnr FOR gv_matnr.
SELECTION-SCREEN : END OF BLOCK b1.

INITIALIZATION.
  s_matnr-low  = c_23.                                      "'23'.
  s_matnr-high = c_100.                                     "'100'.
  APPEND s_matnr.

START-OF-SELECTION.
  SELECT matnr   " Material Number
         ernam   " Name of Person who Created the Object
         pstat   " Maintenance status
  FROM mara INTO TABLE it_mara
  WHERE matnr IN s_matnr.
  IF sy-subrc EQ 0.
    SORT it_mara BY matnr.
    SELECT matnr
           spras
           maktx
    FROM makt INTO TABLE it_makt
    FOR ALL ENTRIES IN it_mara
    WHERE matnr = it_mara-matnr
    AND   spras = c_eng.
    IF sy-subrc NE 0.
      MESSAGE s001(zsan). " No values found
      LEAVE LIST-PROCESSING.
    ENDIF.
  ELSE.
    MESSAGE s001(zsan). " No values found
    LEAVE LIST-PROCESSING.
  ENDIF.

END-OF-SELECTION.

* Now proceed for output.
  LOOP AT it_mara INTO wa_mara.
    AT FIRST.
      ULINE.
      WRITE:/1'|',  'Material Number'(001)     COLOR 1,  19'|',
                    'Created By'(002)          COLOR 1,  32'|',
                    'Maintenance status'(003)  COLOR 1,  60'|'.
      ULINE.
    ENDAT.
    HIDE : wa_mara-matnr.
    WRITE:/1'|', wa_mara-matnr,  19'|',
                 wa_mara-ernam,  32'|',
                 wa_mara-pstat,  60'|'.
    ULINE.

    AT LAST.
      WRITE: 1'|', 'This is the end of report'(004), 60'|'.
      ULINE.
    ENDAT.

  ENDLOOP.

AT LINE-SELECTION.   " Intaractive Events

* Now proceed for output of MAKT.
  READ TABLE it_makt INTO wa_makt WITH KEY matnr = wa_mara-matnr.
  ULINE.
  WRITE:/1'|',  'Material Number'(001)     COLOR 3,  19'|',
                'Material Desc'(003)       COLOR 3,  60'|'.
  ULINE.
  WRITE:/1'|', wa_makt-matnr,  19'|',
               wa_makt-maktx,  60'|'.
  ULINE.