Objective

Transaction Code

SE38 - ABAP Editor

Tables

MARA - General Material Data

Support

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

*& Report  YEXAMPLES_05                                                *

*&                                                                     *

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

*&                                                                     *

*&                                                                     *

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

REPORT  yexamples_05                            .

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

*GLOBAL VARIABLE DECRALATION

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

TYPES: BEGIN OF ty_header,

        matkl LIKE mara-matkl,  " Material Group

        matnr LIKE mara-matnr,  " Material Number

      END OF ty_header.

* Internal Table Declaration

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

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

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

*Input Screen/Selection

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

parameters: pa_matkl like mara-matkl default '001'.

*======================================================================*

*MAIN PROGRAM

*Execute after Input Screen

*======================================================================*

*  Collect Master Material

  SELECT matnr matkl bismt meins

    INTO CORRESPONDING FIELDS OF TABLE gi_header

  FROM mara

  WHERE

    matkl = pa_matkl.

*  Display Data to Screen

  LOOP AT gi_header.

    write :  /'|' no-gap,(9)  gi_header-matkl centered,

              '|' no-gap,(18) gi_header-matnr,

              '|' no-gap.

  ENDLOOP.