FOR ALL ENTRIES ( JOIN TABLE)

 ----------------------------------------------------------*
*& Report  ZREPOR_FOR_ALL
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZREPOR_FOR_ALL.

TABLES: MARA.

SELECT-OPTIONS: S_MATNR FOR MARA-MATNR.

DATA: BEGIN OF IMARA OCCURS 0,
       MATNR TYPE MARA-MATNR,
       MBRSH TYPE MARA-MBRSH,
       MTART TYPE MARA-MTART,
      END OF IMARA.


DATA: BEGIN OF IMARC OCCURS 0,
       MATNR TYPE MARC-MATNR,
       WERKS TYPE MARC-WERKS,
      END OF IMARC.


DATA: BEGIN OF FINAL OCCURS 0,
      MATNR TYPE MARA-MATNR,
      MBRSH TYPE MARA-MBRSH,
      MTART TYPE MARA-MTART,
      WERKS TYPE MARC-WERKS,
      END OF FINAL.




SELECT MATNR MBRSH MTART FROM MARA
      INTO TABLE IMARA WHERE MATNR IN S_MATNR.


IF NOT  IMARA[] IS INITIAL.


  SELECT MATNR WERKS FROM MARC
        INTO TABLE IMARC
        FOR ALL ENTRIES IN IMARA
    WHERE MATNR = IMARA-MATNR.





  SORT IMARC BY MATNR.


  LOOP AT  IMARA.



    READ TABLE IMARC WITH KEY  MATNR = IMARA-MATNR BINARY SEARCH.


    IF  SY-SUBRC = 0.


      MOVE: IMARA-MATNR TO FINAL-MATNR,
            IMARA-MBRSH TO FINAL-MBRSH.
      MOVE: IMARA-MTART TO FINAL-MTART.
      MOVE: IMARC-WERKS TO FINAL-WERKS.

      APPEND FINAL.

      CLEAR: FINAL.
      CLEAR: IMARA.
      CLEAR: IMARC.





    ENDIF.

  ENDLOOP.




  LOOP AT  FINAL.

    WRITE:/ FINAL-MATNR,
            FINAL-MBRSH,
            FINAL-MTART,
            FINAL-WERKS.

  ENDLOOP.




ENDIF.




SAVE AND ACTIVE


RUN 


Comments

Post a Comment

Popular posts from this blog

FOR ALL ENTRIES (FAE) -4 TABLES USING ALV_GRID_DISPLAY

Image
*&---------------------------------------------------------------------* *& Report  ZFAE_ALV *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT   ZFAE_ALV. TYPE-POOLS: SLIS. TYPES:  BEGIN  OF  TY_VBAK,         VBELN  TYPE  VBAK-VBELN,         ERNAM  TYPE  VBAK-ERNAM,         KUNNR  TYPE  VBAK-KUNNR,        END  OF  TY_VBAK.  TYPES:  BEGIN  OF  TY_VBAP,          VBELN  TYPE  VBAP-VBELN,          POSNR  TYPE  VBAP-POSNR,         ...
Read more

RADIO-BUTTONS IN BASIC REPORT

Image
*&---------------------------------------------------------------------* *& Report  ZSAPRADIO *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT   ZSAPRADIO. TYPES:  BEGIN  OF  TY_VBAK,         VBELN  TYPE  VBAK-VBELN,         ERDAT  TYPE  VBAK-ERDAT,         VKORG  TYPE  VBAK-VKORG,        END  OF  TY_VBAK. TYPES:  BEGIN  OF  TY_VBAP,         VBELN  TYPE  VBAP-VBELN,         POSNR  TYPE  VBAP-POSNR,         MATNR  TYPE  VBAP-MATNR, ...
Read more

MODULE POOL -TABLE CONTROL_1:

Image
DECLARE  TABLES NAME AND STRUCTURE AND INTERNAL TABLES AND WORK AREA   CREATE SCREEN 9001 CLICK LAYOUT SEE THAT LAYOUT PAGE THEN WE DO THAT LIKE CLICK WIZARD AND DRAG INTO SCREEN  WE GET SCREEN LIKE SO AFTER WE CAN CREATE THAT STEPS  AFTER WE SEE SCREEN DESIGN IN AUTOMATICALLY IN TABLE CONTROL  SAVE AND CHECK AND ACTIVE  THEN MOVE TO BACK WE SEE THAT AUTOMATIC CODING WILL APPEAR   ENTER CALL SCREEN 9001. GO TO SCREEN 9001. THEN WE CAN FETCH DATA FROM PROGRAM SO    WE CAN CREATE MODULE   AND DESCRIBED ALL CODE IN SIDE OF MODULE. WE CAN GO TO  PAI SIDE  CLICK THAT MODULE AND ENTER  THAT CODING . AFTER SAVE AND ACTIVE PROGRAM  THEN WE CREATE T.CODE IN Z OR Y HERE I CAN CREATE T.CODE LIKE ZTABCLA ...
Read more