Scribd
Upload
5 views

Zlcl With Abstract

Uploaded by

sri m
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
5 views

Zlcl With Abstract

Uploaded by

sri m
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 2

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

*& Report ZLCL_WITH_ABSTRACT


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

REPORT ZLCL_WITH_ABSTRACT.
CLASS LCL_MATERIALS DEFINITION DEFERRED .
DATA : OBJ_LCL_CH TYPE REF TO LCL_MATERIALS .
PARAMETERS : P_MATNR TYPE MARA-MATNR ,
P_WERKS TYPE MARC-WERKS .
DATA : WA_MARC TYPE MARC .

*----------------------------------------------------------------------*
* CLASS LCL_MATERIALS DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS LCL_MATERIALS DEFINITION INHERITING FROM ZCL_MATERIALS_ABS .
PUBLIC SECTION .
methods : GET_MAT_PLANT REDEFINITION .

ENDCLASS . "LCL_MATERIALS DEFINITION

START-OF-SELECTION .
CREATE OBJECT OBJ_LCL_CH .

CALL METHOD OBJ_LCL_CH->GET_MAT_PLANT


EXPORTING
IM_MATNR = P_MATNR
IM_WERKS = P_WERKS
RECEIVING
EX_MARC = WA_MARC.

WRITE : / WA_MARC-MATNR , WA_MARC-WERKS , WA_MARC-PSTAT , WA_MARC-EKGRP .

*----------------------------------------------------------------------*
* CLASS LCL_MATERIALS IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS LCL_MATERIALS IMPLEMENTATION .
method GET_MAT_PLANT .
SELECT SINGLE * FROM MARC INTO EX_MARC
WHERE MATNR = IM_MATNR AND WERKS = IM_WERKS .
ENDMETHOD . "GET_MAT_PLANT
ENDCLASS . "LCL_MATERIALS IMPLEMENTATION

You might also like