*&---------------------------------------------------------------------*
*& Report ZCLASS_REPORT_01_ASHU
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZCLASS_REPORT_01_ASHU.
*LOCAL STRUCTURE
TYPES : BEGIN OF TY_MARA,
MATNR TYPE MATNR,
ERSDA TYPE ERSDA,
ERNAM TYPE ERNAM,
MTART TYPE MTART,
MATKL TYPE MATKL,
MEINS TYPE MEINS,
END OF TY_MARA,
BEGIN OF TY_MAKT,
MATNR TYPE MATNR,
MAKTX TYPE MAKTX,
END OF TY_MAKT.
*INTERNAL TABLE DEFINATION.
DATA: IT_MARA TYPE TABLE OF TY_MARA,
IT_MAKT TYPE TABLE OF TY_MAKT,
WA_MARA TYPE TY_MARA,
WA_MAKT TYPE TY_MAKT.
*REFERENCE FOR TABLE FIELD TO ACCESS IN SELECT OPTION
DATA: S_MATNR LIKE MARA-MATNR.
SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME.
SELECT-OPTIONS: SA_MATNR FOR S_MATNR.
PARAMETER PA_ERSDA TYPE ERSDA.
SELECTION-SCREEN : END OF BLOCK B1.
INITIALIZATION.
PA_ERSDA = SY-DATUM.
START-OF-SELECTION.
SELECT MATNR ERSDA ERNAM MTART MATKL MEINS
FROM MARA
INTO TABLE IT_MARA
WHERE MATNR IN SA_MATNR
OR ERSDA EQ PA_ERSDA.
IF SY-SUBRC = 0.
SELECT MATNR MAKTX
FROM MAKT
INTO TABLE IT_MAKT
FOR ALL ENTRIES IN IT_MARA
WHERE MATNR = IT_MARA-MATNR
AND SPRAS = SY-LANGU.
ENDIF.
END-OF-SELECTION.
LOOP AT IT_MARA INTO WA_MARA.
WRITE :/ WA_MARA-MATNR,
WA_MARA-ERSDA,
WA_MARA-ERNAM,
WA_MARA-MTART,
WA_MARA-MATKL,
WA_MARA-MEINS.
READ TABLE IT_MAKT INTO WA_MAKT WITH KEY MATNR = WA_MARA-MATNR.
IF SY-SUBRC = 0.
WRITE : WA_MAKT-MAKTX.
ENDIF.
ENDLOOP.
TOP-OF-PAGE.
WRITE: / 'MATERIAL NUMBER' UNDER WA_MARA-MATNR,
'CREATED ON' UNDER WA_MARA-ERSDA,
'NAME PERSON WHO CREATED THE OBJECT' UNDER WA_MARA-ERNAM,
'MATERIAL TYPE' UNDER WA_MARA-MTART,
'MATERIAL GROUP',
'BASE UNIT OF MEASURE'.
I have been a blogger too but you post much technical details. Thank you for sharing your knowledge. The creating experts was my first trainer in SAP ABAP got in depth learning from them
ReplyDeletehttp://thecreatingexperts.com/sap-abap-training-in-chennai/
contact +91-08122241286