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

*& Report  YPRACTICE_DIALOG_103                                        *

*&                                                                     *

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

*&                                                                     *

*&                                                                     *

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

REPORT  ypractice_dialog_103                    .

*----------------------------------------------------------------------*

*GLOBAL VARIABLE DECRALATION

*----------------------------------------------------------------------*

TYPES: BEGIN OF ty_header,

        matkl LIKE mara-matkl,  " Material Group

        matnr LIKE mara-matnr,  " Material Number

        maktx LIKE makt-maktx,  " Material Description

        bismt LIKE mara-bismt,  " Old material number

        meins LIKE mara-meins,  " Base Unit of Measure

        mseht LIKE t006a-mseht, " Unit of Measurement Text

        cek,

      END OF ty_header.

* Or You can using this code bellow

*TYPES: BEGIN OF ty_header.

*        INCLUDE STRUCTURE yta_header_101.

*TYPES:  cek,

*       END OF ty_header.

* Deklarasi Internal Table

DATA: gi_header TYPE STANDARD TABLE OF ty_header WITH HEADER LINE,

      gi_makt LIKE STANDARD TABLE OF makt WITH HEADER LINE,

      gi_t006a LIKE STANDARD TABLE OF t006a WITH HEADER LINE.

DATA: gv_matkl LIKE mara-matkl.

DATA : ok_code LIKE sy-ucomm,

       save_ok LIKE sy-ucomm.

DATA : gv_message1(100),

       gv_message2(100).

*----------------------------------------------------------------------*

*Set First Screen to Displayed

*----------------------------------------------------------------------*

CALL SCREEN 2000.

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

*&      Module  STATUS_2000  OUTPUT

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

*       text

*----------------------------------------------------------------------*

MODULE status_2000 OUTPUT.

  SET PF-STATUS 'ST_2000'.

  SET TITLEBAR 'TL_2000'.

ENDMODULE.                 " STATUS_2000  OUTPUT

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

*&      Module  USER_COMMAND_2000  INPUT

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

*       text

*----------------------------------------------------------------------*

MODULE user_command_2000 INPUT.

  save_ok = ok_code.

  CLEAR ok_code.

  CASE save_ok.

    WHEN 'BACK'.

      LEAVE TO SCREEN 0.

    WHEN 'DISPLAY'.

      CALL FUNCTION 'YFM_RFC_PRACTICE_101'

       EXPORTING

         gv_matkl         = gv_matkl

*         GV_MATNR         =

         gv_max_row       = 0

       TABLES

         gi_header        = gi_header

                .

    WHEN OTHERS.

  ENDCASE.

  CLEAR ok_code.

ENDMODULE.                 " USER_COMMAND_2000  INPUT

*&SPWizard: Data incl. inserted by SP Wizard. DO NOT CHANGE THIS LINE!

INCLUDE ypractice_dialog_103_header .