Field catalog & internal table are not mutually convertible

Question

Hi friends,
          please help me for this problem, actually i m trying to display three alv reports from the three buttond i have given on my first basic report. its working fine till first & getting the data into the internal table for the second also. but when coming to the field catalog for the second report its giving syntax error as my "field catalog and internal table are not mutually convertible'".i have tried by giving different fieldcatalog also but its giving the same problem.please help for this & try to give an example if u can. Thanks a lot.
Regards
Pankaj

Answer 1

This is my code :
TABLES: PLAF,
        MARA,
        MAKT,
        AFPO,
        T023T,
        VSAUFK,
        T006A,
        MBEW,
        ZCDR_D.
Type Pools for ALV *************************
TYPE-POOLS: SLIS,
            ABAP.
           KKBLO.
DATA DECLARATION.  ****************************
DATA: FLAG TYPE I,
      FLAG1 TYPE I,
      FLAG2 TYPE I,
      FLAG3 TYPE I,
      FLAG4 TYPE I,
      FLAG5 TYPE I.
********Declaration for field catalog
DATA: LAYOUT TYPE SLIS_LAYOUT_ALV,
      IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
    IT_SORT TYPE SLIS_T_SORTINFO_ALV,
    WA_SORT TYPE SLIS_SORTINFO_ALV,
    WA_SUBT LIKE SLIS_EV_SUBTOTAL_TEXT,
    IT_EVENTS TYPE TABLE OF slis_alv_event WITH NON-UNIQUE DEFAULT KEY
     WITH HEADER LINE INITIAL SIZE 0,
      WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
      LAYOUT1 TYPE SLIS_LAYOUT_ALV,
      IT_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV,
    IT_SORT TYPE SLIS_T_SORTINFO_ALV,
    WA_SORT TYPE SLIS_SORTINFO_ALV,
    WA_SUBT LIKE SLIS_EV_SUBTOTAL_TEXT,
    IT_EVENTS TYPE TABLE OF slis_alv_event WITH NON-UNIQUE DEFAULT KEY
     WITH HEADER LINE INITIAL SIZE 0,
      WA_FIELDCAT1 TYPE SLIS_FIELDCAT_ALV,
      LAYOUT2 TYPE SLIS_LAYOUT_ALV,
      IT_FIELDCAT2 TYPE SLIS_T_FIELDCAT_ALV,
    IT_SORT TYPE SLIS_T_SORTINFO_ALV,
    WA_SORT TYPE SLIS_SORTINFO_ALV,
    WA_SUBT LIKE SLIS_EV_SUBTOTAL_TEXT,
    IT_EVENTS TYPE TABLE OF slis_alv_event WITH NON-UNIQUE DEFAULT KEY
     WITH HEADER LINE INITIAL SIZE 0,
      WA_FIELDCAT2 TYPE SLIS_FIELDCAT_ALV,
      LAYOUT3 TYPE SLIS_LAYOUT_ALV,
      IT_FIELDCAT3 TYPE SLIS_T_FIELDCAT_ALV,
    IT_SORT TYPE SLIS_T_SORTINFO_ALV,
    WA_SORT TYPE SLIS_SORTINFO_ALV,
    WA_SUBT LIKE SLIS_EV_SUBTOTAL_TEXT,
    IT_EVENTS TYPE TABLE OF slis_alv_event WITH NON-UNIQUE DEFAULT KEY
     WITH HEADER LINE INITIAL SIZE 0,
      WA_FIELDCAT3 TYPE SLIS_FIELDCAT_ALV.
TYPES DECLARATION.  ****************************
TYPES: BEGIN OF TY_MARA,
       MATNR LIKE MARA-MATNR,                  " Material Number
       MATKL LIKE MARA-MATKL,                  " Material Group
       END OF TY_MARA.
TYPES: BEGIN OF TY_PLAF,
       PERTR LIKE PLAF-PERTR,                  " Date
       PLNUM LIKE PLAF-PLNUM,                  " Planned Order Number
       MATNR LIKE PLAF-MATNR,                  " Material number
       PLWRK LIKE PLAF-PLWRK,                  " Plant
       KDAUF LIKE PLAF-KDAUF,                  " Sales Order Number
       KDPOS LIKE PLAF-KDPOS,                  " SO Line Item
       END OF TY_PLAF.
TYPES: BEGIN OF TY_MAKT,
       MATNR LIKE PLAF-MATNR,                  " Material Number
       MAKTX LIKE MAKT-MAKTX,                  " Material Description
       END OF TY_MAKT.
TYPES: BEGIN OF TY_AFPO,
       PLNUM LIKE AFPO-PLNUM,                  " Planned Order Number
       MATNR LIKE AFPO-MATNR,                  " Material Number
       KDAUF LIKE AFPO-KDAUF,                  " Sales Order Number
       KDPOS LIKE AFPO-KDPOS,                  " SO Line Item
       AUFNR LIKE AFPO-AUFNR,                  " Production Order
       STRMP LIKE AFPO-STRMP,
       DWERK LIKE AFPO-DWERK,
       END OF TY_AFPO.
TYPES: BEGIN OF TY_ZCDR_D,
       MANDT LIKE ZCDR_D-MANDT,                " Client
       CBNO LIKE ZCDR_D-CBNO,                  " Customs Book Number
       PLNUM LIKE ZCDR_D-PLNUM,                " Planned Order Number
       MATNR LIKE ZCDR_D-MATNR,                " Material Number
       MAKTX LIKE ZCDR_D-MAKTX,                " Material Description
       KDAUF like ZCDR_D-KDAUF,                " Sales Order Number
       KDPOS like ZCDR_D-KDPOS,                " SO Line Item
       AUFNR LIKE ZCDR_D-AUFNR,                " Production Order
       END OF TY_ZCDR_D.
TYPES: BEGIN OF TY_VSAUFK,
       INACT LIKE VSAUFK-INACT,                " Status Indicator
       END OF TY_VSAUFK.
TYPES: BEGIN OF TY_PLAF_MAKT,
       CBNO LIKE ZCDR_D-CBNO,                  " Customs Book Number
       PLNUM LIKE PLAF-PLNUM,                  " Planned Order Number
       CHK TYPE C,                             " Check Box
       MATNR LIKE PLAF-MATNR,                  " Material Number
       MAKTX LIKE MAKT-MAKTX,                  " Material Description
       KDAUF LIKE PLAF-KDAUF,                  " Sales Order Number
       KDPOS LIKE PLAF-KDPOS,                  " SO Line Item
       AUFNR LIKE AFPO-AUFNR,                  " Production Order
       END OF TY_PLAF_MAKT.
TYPES: BEGIN OF TY_HELP_ITEM,
       CBNO TYPE ZCDR_D-CBNO,                  " Customs Book Number
       PLNUM LIKE ZCDR_D-PLNUM,                " Planned Order Number
       MATNR LIKE ZCDR_D-MATNR,                " Material Number
       MAKTX LIKE ZCDR_D-MAKTX,                " Material Description
       KDAUF LIKE ZCDR_D-KDAUF,                " Sales Order Number
       KDPOS LIKE ZCDR_D-KDPOS,                " SO Line Item
       AUFNR LIKE ZCDR_D-AUFNR,                " Production Order
       END OF TY_HELP_ITEM.
WORK AREA ******************************
DATA: WA_MARA TYPE TY_MARA,
      WA_PLAF TYPE TY_PLAF,
      WA_MAKT TYPE TY_MAKT,
      WA_AFPO TYPE TY_AFPO,
      WA_ZCDR_D TYPE TY_ZCDR_D,
      WA_VSAUFK TYPE TY_VSAUFK,
      WA_PLAF_MAKT TYPE TY_PLAF_MAKT,
      WA_HELP_ITEM TYPE TY_HELP_ITEM.
INTERNAL TABLES ****************************
DATA: IT_MARA TYPE TABLE OF TY_MARA,
      IT_PLAF TYPE TABLE OF TY_PLAF,
      IT_MAKT TYPE TABLE OF TY_MAKT,
      IT_AFPO TYPE TABLE OF TY_AFPO,
      IT_ZCDR_D TYPE TABLE OF TY_ZCDR_D,
      IT_VSAUFK TYPE TABLE OF TY_VSAUFK,
      IT_PLAF_MAKT TYPE TABLE OF TY_PLAF_MAKT,
      IT_HELP_ITEM TYPE TABLE OF TY_HELP_ITEM.
*it_events TYPE TABLE OF slis_alv_event WITH NON-UNIQUE DEFAULT KEY
*WITH HEADER LINE INITIAL SIZE 0.
TYPES: BEGIN OF TY_BOM,
          MATMK LIKE STPOX-MATMK,
          MTNRV LIKE ZCDR_D-MATNR,
          IDNRK LIKE STPOX-IDNRK,
          MNGLG LIKE STPOX-MNGLG,
          MMEIN LIKE STPOX-MMEIN,
         VPRSV LIKE STPOX-VPRSV,
          UPRICE LIKE MBEW-STPRS,
          TPRICE LIKE MBEW-STPRS,
        END OF TY_BOM,
        BEGIN OF TY_QUAN,
          MATMK LIKE STPOX-MATMK,
          MTNRV LIKE ZCDR_D-MATNR,
          IDNRK LIKE STPOX-IDNRK,
          MNGLG LIKE STPOX-MNGLG,
          MMEIN LIKE STPOX-MMEIN,
          UPRICE LIKE MBEW-STPRS,
          TPRICE LIKE MBEW-STPRS,
        END OF TY_QUAN,
        BEGIN OF TY_T023T,
          MATKL LIKE T023T-MATKL,
          WGBEZ LIKE T023T-WGBEZ,
        END OF TY_T023T,
        BEGIN OF TY_T006A,
          MMEIN LIKE T006A-MSEHI,
          MSEHT LIKE T006A-MSEHT,
        END OF TY_T006A,
        BEGIN OF TY_IMP_FINAL,
          SNO TYPE SY-INDEX,
          HSCODE LIKE ZHSCODE-HSCODE,
          WGBEZ TYPE T023T-WGBEZ,
          SPEC(20) TYPE C,
          MNGLG LIKE STPOX-MNGLG,
          MSEHT LIKE T006A-MSEHT,
          CNTRY(13) TYPE C,
          UPRICE TYPE P LENGTH 16 DECIMALS 2,
          TPRICE TYPE P LENGTH 16 DECIMALS 2,
          CURRCODE TYPE C LENGTH 5,
        END OF TY_IMP_FINAL,
        BEGIN OF TY_MBEW,
          MATNR LIKE MBEW-MATNR,
          VPRSV LIKE MBEW-VPRSV,
          STPRS LIKE MBEW-STPRS,
          VERPR LIKE MBEW-VERPR,
        END OF TY_MBEW.
  DATA: WA_BOM TYPE TY_BOM,
        WA_QUAN TYPE TY_QUAN,
        WA_IMP_FINAL TYPE TY_IMP_FINAL,
        WA_T023T TYPE TY_T023T,
        WA_T006A TYPE TY_T006A,
        WA_MBEW TYPE TY_MBEW.
  DATA: IT_BOM TYPE TABLE OF TY_BOM,
        IT_QUAN TYPE TABLE OF TY_QUAN,
        IT_IMP_FINAL TYPE TABLE OF TY_IMP_FINAL,
        IT_MBEW TYPE TABLE OF TY_MBEW.
SELECTION-SCREEN **************************
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
PARAMETERS : PR_CBNO LIKE ZCDR_D-CBNO OBLIGATORY.      "Customs Book number
SELECTION-SCREEN END OF BLOCK b1.
INITIALIZATION  **************************
INITIALIZATION.
**PERFORM CLEAR_DATA.
**CLEAR: wa_layout.
*PERFORM set_events USING it_events[].
SELECT OPTION ****************************************
SELECTION-SCREEN : BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-002.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS:
        SO_PERTR for PLAF-PERTR,              "----
Date
        SO_MATNR for MARA-MATNR,              "----
Material
        SO_MATKL for MARA-MATKL,              "----
Material Group
        SO_PLWRK for PLAF-PLWRK OBLIGATORY,   "----
Plant
        SO_KDAUF for PLAF-KDAUF.              "----
Sales Order
SELECTION-SCREEN : END OF BLOCK BLK.
SELECTION SCREEN F4 HELP  *********************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR PR_CBNO.
DATA: DYNFIELDS TYPE TABLE OF DYNPREAD WITH HEADER LINE.
      DYNFIELDS-FIELDNAME = PR_CBNO.
      APPEND DYNFIELDS.
     CALL FUNCTION 'DYNP_VALUES_READ'
          EXPORTING
                DYNAME                               = SY-CPROG
                DYNUMB                               = SY-DYNNR
                TRANSLATE_TO_UPPER                   = 'X'
              REQUEST                              = ' '
              PERFORM_CONVERSION_EXITS             = ' '
              PERFORM_INPUT_CONVERSION             = ' '
              DETERMINE_LOOP_INDEX                 = ' '
              START_SEARCH_IN_CURRENT_SCREEN       = ' '
              START_SEARCH_IN_MAIN_SCREEN          = ' '
              START_SEARCH_IN_STACKED_SCREEN       = ' '
              START_SEARCH_ON_SCR_STACKPOS         = ' '
              SEARCH_OWN_SUBSCREENS_FIRST          = ' '
              SEARCHPATH_OF_SUBSCREEN_AREAS        = ' '
          TABLES
                DYNPFIELDS                           = DYNFIELDS
          EXCEPTIONS
                INVALID_ABAPWORKAREA                 = 1
                INVALID_DYNPROFIELD                  = 2
                INVALID_DYNPRONAME                   = 3
                INVALID_DYNPRONUMMER                 = 4
                INVALID_REQUEST                      = 5
                NO_FIELDDESCRIPTION                  = 6
                INVALID_PARAMETER                    = 7
                UNDEFIND_ERROR                       = 8
                DOUBLE_CONVERSION                    = 9
                STEPL_NOT_FOUND                      = 10
                 OTHERS                               = 11
        IF SY-SUBRC <> 0.
          MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
          ENDIF.
     READ TABLE DYNFIELDS WITH KEY FIELDNAME = 'CBNO'.
        PR_CBNO = DYNFIELDS-FIELDVALUE.
        SELECT
            CBNO
            PLNUM
            MATNR
            MAKTX
            KDAUF
            KDPOS
            AUFNR
            FROM ZCDR_D
            INTO TABLE IT_HELP_ITEM .
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
    DDIC_STRUCTURE         = ' '
      RETFIELD               = 'CBNO'
    PVALKEY                = ' '
     DYNPPROG               = SY-CPROG
     DYNPNR                 = SY-DYNNR
     DYNPROFIELD            = 'PR_CBNO'
    STEPL                  = 0
    WINDOW_TITLE           =
    VALUE                  = ' '
     VALUE_ORG              = 'S'
    MULTIPLE_CHOICE        = ' '
    DISPLAY                = ' '
    CALLBACK_PROGRAM       = ' '
    CALLBACK_FORM          = ' '
    MARK_TAB               =
  IMPORTING
    USER_RESET             =
    TABLES
      VALUE_TAB              = IT_HELP_ITEM
    FIELD_TAB              =
    RETURN_TAB             =
    DYNPFLD_MAPPING        =
  EXCEPTIONS
    PARAMETER_ERROR        = 1
    NO_VALUES_FOUND        = 2
    OTHERS                 = 3
  IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
***********************SELECTION SCREEN VALIDATION.*******************
AT SELECTION-SCREEN ON PR_CBNO.
  SELECT SINGLE *
  FROM ZCDR_D
  WHERE CBNO = PR_CBNO.
  IF SY-SUBRC EQ 0.
    MESSAGE E000(ZCBR) WITH PR_CBNO.
  ENDIF.
AT SELECTION-SCREEN ON SO_PERTR.
  IF SO_PERTR IS NOT INITIAL.
    SELECT SINGLE *
    FROM PLAF
    WHERE PERTR IN SO_PERTR.
    IF SY-SUBRC NE 0.
      MESSAGE W001(ZCBR) WITH SO_PERTR-LOW.
    ENDIF.
  ENDIF.
AT SELECTION-SCREEN ON SO_MATNR.
  IF SO_MATNR IS NOT INITIAL.
    SELECT SINGLE *
      FROM MARA
      WHERE MATNR IN SO_MATNR.
    IF SY-SUBRC NE 0.
      MESSAGE W002(ZCBR) WITH SO_MATNR-LOW.
    ENDIF.
  ENDIF.
AT SELECTION-SCREEN ON SO_MATKL.
  IF SO_MATKL IS NOT INITIAL.
    SELECT SINGLE *
      FROM MARA
      WHERE MATKL IN SO_MATKL.
    IF SY-SUBRC NE 0.
      MESSAGE W003(ZCBR) WITH SO_MATKL-LOW.
    ENDIF.
  ENDIF.
AT SELECTION-SCREEN ON SO_PLWRK.
  IF SO_PLWRK IS NOT INITIAL.
    SELECT SINGLE * FROM PLAF
      WHERE PLWRK IN SO_PLWRK.
    IF SY-SUBRC NE 0.
      MESSAGE W004(ZCBR) WITH SO_PLWRK-LOW.
    ENDIF.
  ENDIF.
AT SELECTION-SCREEN ON SO_KDAUF.
  IF SO_KDAUF IS NOT INITIAL.
    SELECT SINGLE * FROM PLAF
    WHERE KDAUF IN SO_KDAUF.
    IF SY-SUBRC NE 0.
      MESSAGE W005(ZCBR) WITH SO_KDAUF-LOW.
    ENDIF.
  ENDIF.
*********************START-OF-SELECTION.*****************************
START-OF-SELECTION.
  IF so_pertr IS NOT INITIAL.
    FLAG = 1.
  ENDIF.
  IF SO_MATNR IS NOT INITIAL.
    FLAG1 = 1.
  ENDIF.
  IF so_matkl IS NOT INITIAL.
    FLAG2 = 1.
  ENDIF.
  IF so_plwrk IS NOT INITIAL.
    FLAG3 = 1.
  ENDIF.
  IF so_kdauf IS NOT INITIAL.
    FLAG4 = 1.
  ENDIF.
   Select data into its internal table from different database tables
  SELECT
    MATNR
    MATKL
   MTART
    INTO CORRESPONDING FIELDS OF TABLE IT_MARA
    FROM MARA
    WHERE MTART = 'ZFGS'.
  IF FLAG2 NE 0.
    DELETE IT_MARA WHERE
    NOT ( MATKL IN SO_MATKL )
  ENDIF.
  IF FLAG1 NE 0.
    DELETE IT_MARA WHERE
    NOT ( MATNR IN SO_MATNR )
  ENDIF.
  SELECT
     PERTR
     PLNUM
     MATNR
     PLWRK
     KDAUF
     KDPOS
     FROM PLAF
     INTO CORRESPONDING FIELDS OF TABLE IT_PLAF
     FOR ALL ENTRIES IN IT_MARA
     WHERE PLWRK IN SO_PLWRK
     AND MATNR = IT_MARA-MATNR.
    SELECT
      MATNR
      PLNUM
      AUFNR
      KDAUF
      KDPOS
      STRMP
      DWERK
    INACT
      FROM AFPO
      INTO CORRESPONDING FIELDS OF TABLE IT_AFPO
      FOR ALL ENTRIES IN IT_MARA
      WHERE DWERK IN SO_PLWRK
      AND MATNR = IT_MARA-MATNR.
     WHERE MATNR = IT_MARA-MATNR
     AND STRMP = IT_PLAF-PERTR
     AND KDAUF = IT_PLAF-KDAUF
     AND DWERK = IT_PLAF-PLWRK.
    End of Data selection
   Keep only those records which the user wants from his selection screen
  IF FLAG NE 0.
    DELETE IT_PLAF WHERE
    NOT ( PERTR IN SO_PERTR )
    DELETE IT_AFPO WHERE
    NOT ( STRMP IN SO_PERTR )
  ENDIF.
  IF FLAG3 NE 0.
    DELETE IT_PLAF WHERE
    NOT ( PLWRK IN SO_PLWRK )
    DELETE IT_AFPO WHERE
    NOT ( DWERK IN SO_PLWRK )
  ENDIF.
  IF FLAG4 NE 0.
    DELETE IT_PLAF WHERE
    NOT ( KDAUF IN SO_KDAUF )
    DELETE IT_AFPO WHERE
    NOT ( KDAUF IN SO_KDAUF )
  ENDIF.
    SELECT
     MATNR
     MAKTX
     FROM MAKT
     INTO CORRESPONDING FIELDS OF TABLE IT_MAKT
     FOR ALL ENTRIES IN IT_PLAF
     WHERE MATNR = IT_PLAF-MATNR
     AND SPRAS = 'EN'.
  SELECT
    FROM ZCDR_D
    INTO TABLE IT_ZCDR_D.
          Put data into final internal table from different internal tables
LOOP AT IT_MARA INTO WA_MARA.
  LOOP AT IT_PLAF INTO WA_PLAF WHERE MATNR = WA_MARA-MATNR.
    READ TABLE IT_ZCDR_D
    INTO WA_ZCDR_D
    WITH KEY PLNUM = WA_PLAF-PLNUM.
    IF SY-SUBRC <> 0.
      MOVE WA_PLAF-PLNUM TO WA_PLAF_MAKT-PLNUM.
      MOVE WA_PLAF-MATNR TO WA_PLAF_MAKT-MATNR.
      MOVE WA_PLAF-KDAUF TO WA_PLAF_MAKT-KDAUF.
      MOVE WA_PLAF-KDPOS TO WA_PLAF_MAKT-KDPOS.
      READ TABLE IT_AFPO INTO WA_AFPO WITH KEY PLNUM = WA_PLAF-PLNUM.
          MOVE WA_AFPO-AUFNR TO WA_PLAF_MAKT-AUFNR.
       SELECT
         SINGLE * FROM VSAUFK
         INTO TABLE IT_VSAUFK
         WHERE AUFNR = WA_AFPO-AUFNR
         AND STAT = 'I0012'.
       IF SY-SUBRC <> 0.
         MOVE WA_AFPO-AUFNR TO IT_PLAF_MAKT-AUFNR.
       ELSE.
         CHECK IT_VSAUFK-INACT = 'X'.
         MOVE WA_AFPO-AUFNR TO IT_PLAF_MAKT-AUFNR.
       ENDIF.
    ENDLOOP.
         READ TABLE IT_MAKT
            INTO WA_MAKT
            WITH KEY MATNR = WA_MARA-MATNR.
            MOVE WA_MAKT-MAKTX TO WA_PLAF_MAKT-MAKTX.
            APPEND WA_PLAF_MAKT TO IT_PLAF_MAKT.
            CLEAR WA_PLAF_MAKT.
    ENDIF.
  ENDLOOP.
ENDLOOP.
LOOP AT IT_PLAF_MAKT .
LOOP AT IT_MARA INTO WA_MARA.
LOOP AT IT_PLAF INTO WA_PLAF WHERE MATNR = WA_MARA-MATNR.
   LOOP AT IT_AFPO INTO WA_AFPO WHERE MATNR = WA_MARA-MATNR.
    READ TABLE IT_ZCDR_D
    INTO WA_ZCDR_D
    WITH KEY PLNUM = WA_AFPO-PLNUM.
    IF SY-SUBRC <> 0.
       LOOP AT IT_AFPO INTO WA_AFPO.
         WHERE MATNR IN SO_MATNR
         AND STRMP = SO_PERTR
         AND PLNUM IN SO_PLNUM
         AND KDAUF IN SO_-KDAUF
         AND MATKL IN SO_MATKL.
        SELECT
          SINGLE INACT FROM VSAUFK
          INTO WA_VSAUFK
          WHERE AUFNR = WA_AFPO-AUFNR
          AND STAT = 'I0012'.
        IF SY-SUBRC <> 0.
          WA_PLAF_MAKT-PLNUM = WA_AFPO-PLNUM.
          WA_PLAF_MAKT-KDAUF = WA_AFPO-KDAUF.
          WA_PLAF_MAKT-KDPOS = WA_AFPO-KDPOS.
          WA_PLAF_MAKT-MATNR = WA_AFPO-MATNR.
          WA_PLAF_MAKT-AUFNR = WA_AFPO-AUFNR.
          READ TABLE IT_MAKT INTO WA_MAKT WITH KEY MATNR = WA_AFPO-MATNR.
          WA_PLAF_MAKT-MAKTX = WA_MAKT-MAKTX.
          APPEND WA_PLAF_MAKT TO IT_PLAF_MAKT .
         APPEND WA_AFPO TO IT_PLAF_MAKT.
         MOVE WA_AFPO-AUFNR TO IT_PLAF_MAKT-AUFNR.
        ELSE.
          CHECK WA_VSAUFK-INACT = 'X'.
          WA_PLAF_MAKT-PLNUM = WA_AFPO-PLNUM.
          WA_PLAF_MAKT-KDAUF = WA_AFPO-KDAUF.
          WA_PLAF_MAKT-KDPOS = WA_AFPO-KDPOS.
          WA_PLAF_MAKT-MATNR = WA_AFPO-MATNR.
          WA_PLAF_MAKT-AUFNR = WA_AFPO-AUFNR.
          READ TABLE IT_MAKT INTO WA_MAKT WITH KEY MATNR = WA_AFPO-MATNR.
          WA_PLAF_MAKT-MAKTX = WA_MAKT-MAKTX.
          APPEND WA_PLAF_MAKT TO IT_PLAF_MAKT .
         APPEND WA_AFPO TO IT_PLAF_MAKT.
         MOVE WA_AFPO-AUFNR TO IT_PLAF_MAKT-AUFNR.
        ENDIF.
        ENDIF.
    ENDLOOP.
     EXIT.
   ENDIF.
  ENDLOOP.
ENDLOOP.
  LOOP AT IT_PLAF_MAKT INTO WA_PLAF_MAKT.
    WA_PLAF_MAKT-CBNO = PR_CBNO.
    MODIFY IT_PLAF_MAKT FROM WA_PLAF_MAKT TRANSPORTING CBNO.
  ENDLOOP.
ENDLOOP.
  PERFORM CHANGE_CATALOG.
  PERFORM ALV_DISPLAY.
*&      Form  CHANGE_CATALOG
      text
FORM CHANGE_CATALOG.
   LAYOUT-ZEBRA = 'X'.
  DATA: L_POS TYPE I.
  L_POS = L_POS + 1.
  WA_FIELDCAT-col_pos   = L_POS.
  WA_FIELDCAT-SELTEXT_M = 'Planned Order Nos.'.
  WA_FIELDCAT-TABNAME = WA_PLAF_MAKT.
  WA_FIELDCAT-FIELDNAME = 'PLNUM'.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  CLEAR WA_FIELDCAT.
  L_POS = L_POS + 1.
  WA_FIELDCAT-COL_POS   = L_POS.
  WA_FIELDCAT-INPUT = 'X'.
  WA_FIELDCAT-SELTEXT_M = 'Check Box'.
  WA_FIELDCAT-TABNAME = WA_PLAF_MAKT.
  WA_FIELDCAT-CHECKBOX  = 'X'.
  WA_FIELDCAT-EDIT = abap_true.
  WA_FIELDCAT-FIELDNAME = 'CHK'.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  CLEAR WA_FIELDCAT.
  L_POS = L_POS + 1.
  WA_FIELDCAT-COL_POS   = L_POS.
  WA_FIELDCAT-OUTPUTLEN = '12'.
  WA_FIELDCAT-SELTEXT_M = 'Material'.
  WA_FIELDCAT-TABNAME = WA_PLAF_MAKT.
  WA_FIELDCAT-FIELDNAME = 'MATNR'.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  CLEAR WA_FIELDCAT.
  L_POS = L_POS + 1.
  WA_FIELDCAT-COL_POS   = L_POS.
  WA_FIELDCAT-OUTPUTLEN = '35'.
  WA_FIELDCAT-SELTEXT_M = 'Material Description'.
  WA_FIELDCAT-TABNAME = WA_PLAF_MAKT.
  WA_FIELDCAT-FIELDNAME = 'MAKTX'.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  CLEAR WA_FIELDCAT.
  L_POS = L_POS + 1.
  WA_FIELDCAT-COL_POS   = L_POS.
  WA_FIELDCAT-SELTEXT_M = 'Sales Order Number'.
  WA_FIELDCAT-TABNAME = WA_PLAF_MAKT.
  WA_FIELDCAT-FIELDNAME = 'KDAUF'.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  CLEAR WA_FIELDCAT.
  L_POS = L_POS + 1.
  WA_FIELDCAT-COL_POS   = L_POS.
  WA_FIELDCAT-SELTEXT_M = 'S O Line Item'.
  WA_FIELDCAT-TABNAME = WA_PLAF_MAKT.
  WA_FIELDCAT-FIELDNAME = 'KDPOS'.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  CLEAR WA_FIELDCAT.
  L_POS = L_POS + 1.
  WA_FIELDCAT-COL_POS   = L_POS.
  WA_FIELDCAT-OUTPUTLEN = '13'.
  WA_FIELDCAT-SELTEXT_M = 'Production Order'.
  WA_FIELDCAT-TABNAME = WA_PLAF_MAKT.
  WA_FIELDCAT-FIELDNAME = 'AUFNR'.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  CLEAR WA_FIELDCAT.
*GS_LAYOUT-TOTALS_BEFORE_ITEMS = 'X'.
*data : text like slis_ev_subtotal_text value 'total'.
*gs_layout-subtotals_text = text.
*gs_layout-totals_only = 'X'.
gs_layout-subtotals_text = 'total'.
endform. "  CHANGE_CATALOG
*********************event*************************************
*&      Form  ALV_DISPLAY
      text
FORM ALV_DISPLAY.
*data: LC_GLAY TYPE LVC_S_GLAY.
   LC_GLAY-EDT_CLL_CB = 'X'.
   gs_layout-colwidth_optimize = 'X'.
   gs_layout-zebra = 'X'.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
                   I_INTERFACE_CHECK                 = ' '
                   I_BYPASSING_BUFFER                = ' '
                   I_BUFFER_ACTIVE                   = ' '
     I_CALLBACK_PROGRAM                = SY-REPID
     I_CALLBACK_PF_STATUS_SET          = 'SET_PF_STATUS'
     I_CALLBACK_USER_COMMAND           = 'USER_COMMAND'
                   I_CALLBACK_TOP_OF_PAGE            = ' '
                   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
                   I_CALLBACK_HTML_END_OF_LIST       = ' '
                   I_STRUCTURE_NAME                  =
                   I_BACKGROUND_ID                   = ' '
     I_GRID_TITLE                      = 'PLANNED ORDERS'
                   I_GRID_SETTINGS                   = LC_GLAY
    IS_LAYOUT                         = LAYOUT
     IT_FIELDCAT                       = IT_FIELDCAT[]
                   IT_EXCLUDING                      =
                   IT_SPECIAL_GROUPS                 =
                   IT_SORT                           =
                   IT_FILTER                         =
                   IS_SEL_HIDE                       =
                   I_DEFAULT                         = 'X'
    I_SAVE                            = 'X'
                   IS_VARIANT                        =
                   IT_EVENTS                         = IT_EVENTS[]
                   IT_EVENT_EXIT                     =
                   IS_PRINT                          =
                   IS_REPREP_ID                      =
                   I_SCREEN_START_COLUMN             = 0
                   I_SCREEN_START_LINE               = 0
                   I_SCREEN_END_COLUMN               = 0
                   I_SCREEN_END_LINE                 = 0
                   I_HTML_HEIGHT_TOP                 = 0
                   I_HTML_HEIGHT_END                 = 0
                   IT_ALV_GRAPHICS                   =
                   IT_HYPERLINK                      =
                   IT_ADD_IT_FIELDCAT                   =
                   IT_EXCEPT_QINFO                   =
                   IR_SALV_FULLSCREEN_ADAPTER        =
                 IMPORTING
                   E_EXIT_CAUSED_BY_CALLER           =
                   ES_EXIT_CAUSED_BY_USER            =
    TABLES
      T_OUTTAB                          = IT_PLAF_MAKT
                 EXCEPTIONS
                   PROGRAM_ERROR                     = 1
                   OTHERS                            = 2
  IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
REFRESH IT_FIELDCAT[].
ENDFORM.                    "ALV_DISPLAY
*&      Form  USER_COMMAND
      text
     -->UCOMM      text
     -->SELFIELD   text
FORM USER_COMMAND
  USING UCOMM LIKE SY-UCOMM
  SELFIELD TYPE SLIS_SELFIELD.
  Data: REF1 TYPE REF TO CL_GUI_ALV_GRID.
DATA WA LIKE LINE OF IT_PLAF_MAKT.
  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      E_GRID = REF1.
  CALL METHOD REF1->CHECK_CHANGED_DATA.
  CASE UCOMM.
    WHEN '&BACK'.
      LEAVE TO SCREEN 0.
    WHEN  '&EXIT'.
      LEAVE TO SCREEN 0.
    WHEN '&CANC'.
      LEAVE TO SCREEN 0.
    WHEN '&SAVE'.
      CLEAR IT_ZCDR_D[].
      LOOP AT IT_PLAF_MAKT INTO WA_PLAF_MAKT WHERE CHK = 'X'.
        CLEAR WA_ZCDR_D.
        WA_ZCDR_D-MANDT = SY-MANDT.
        WA_ZCDR_D-CBNO = WA_PLAF_MAKT-CBNO.
        WA_ZCDR_D-plnum = WA_PLAF_MAKT-PLNUM.
        WA_ZCDR_D-MATNR = WA_PLAF_MAKT-MATNR.
        WA_ZCDR_D-MAKTX = WA_PLAF_MAKT-MAKTX.
        WA_ZCDR_D-KDAUF = WA_PLAF_MAKT-KDAUF.
        WA_ZCDR_D-KDPOS = WA_PLAF_MAKT-KDPOS.
        WA_ZCDR_D-AUFNR = WA_PLAF_MAKT-AUFNR.
        APPEND WA_ZCDR_D to IT_ZCDR_D.
      ENDLOOP.
      LOOP AT IT_ZCDR_D INTO WA_ZCDR_D.
        INSERT ZCDR_D FROM WA_ZCDR_D.
        CLEAR WA_ZCDR_D.
      ENDLOOP.
      IF SY-SUBRC EQ 0.
        MESSAGE S021(ZCBR) WITH PR_CBNO.
      ENDIF.
      IF IT_ZCDR_D IS INITIAL.
        MESSAGE 'Select Atleast one Check Box' TYPE 'E' .
      ENDIF.
    WHEN 'IMPORT_INF'.
      PERFORM IMPORT_REPORT.
   WHEN 'EXPORT_INF'.
     PERFORM EXPORT_REPORT.
   WHEN 'UNIT_CONSU'.
     PERFORM UNIT_CONSUMPTION.
  ENDCASE.
ENDFORM.                    "USER_COMMAND
FORM set_events USING it_events TYPE slis_t_event.
DATA: x_event TYPE slis_alv_event.
clear x_event.
x_event-name = 'USER_COMMAND'.
x_event-form = 'USER_COMMAND'.
append x_event to it_events.
CLEAR x_event.
call function 'REUSE_ALV_EVENTS_GET'
  EXPORTING
    I_LIST_TYPE           = 0
  IMPORTING
    ET_EVENTS             = IT_EVENTS
  EXCEPTIONS
    LIST_TYPE_WRONG       = 1
    OTHERS                = 2
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
read table it_events into x_event with key name = slis_ev_user_command.
      if sy-subrc = 0.
      x_event-form = 'USER_COMMAND'.
      modify it_events from x_event index sy-tabix transporting form .
      endif.
ENDFORM.
*&      Form  set_pf_status
      text
     -->RT_EXTAB   text
FORM SET_PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.
  SET PF-STATUS 'Z_PFSTAT'.
ENDFORM.            " set_pf_status
FORM IMPORT_REPORT.
TYPES: BEGIN OF TY_BOM,
         MATMK LIKE STPOX-MATMK,
         MTNRV LIKE ZCDR_D-MATNR,
         IDNRK LIKE STPOX-IDNRK,
         MNGLG LIKE STPOX-MNGLG,
         MMEIN LIKE STPOX-MMEIN,
         VPRSV LIKE STPOX-VPRSV,
         UPRICE LIKE MBEW-STPRS,
         TPRICE LIKE MBEW-STPRS,
       END OF TY_BOM,
       BEGIN OF TY_QUAN,
         MATMK LIKE STPOX-MATMK,
         MTNRV LIKE ZCDR_D-MATNR,
         IDNRK LIKE STPOX-IDNRK,
         MNGLG LIKE STPOX-MNGLG,
         MMEIN LIKE STPOX-MMEIN,
         UPRICE LIKE MBEW-STPRS,
         TPRICE LIKE MBEW-STPRS,
       END OF TY_QUAN,
       BEGIN OF TY_T023T,
         MATKL LIKE T023T-MATKL,
         WGBEZ LIKE T023T-WGBEZ,
       END OF TY_T023T,
       BEGIN OF TY_T006A,
         MMEIN LIKE T006A-MSEHI,
         MSEHT LIKE T006A-MSEHT,
       END OF TY_T006A,
       BEGIN OF TY_IMP_FINAL,
         SNO TYPE SY-INDEX,
         HSCODE LIKE ZHSCODE-HSCODE,
         WGBEZ TYPE T023T-WGBEZ,
         SPEC(20) TYPE C,
         MNGLG LIKE STPOX-MNGLG,
         MSEHT LIKE T006A-MSEHT,
         CNTRY(13) TYPE C,
         UPRICE TYPE P LENGTH 16 DECIMALS 2,
         TPRICE TYPE P LENGTH 16 DECIMALS 2,
         CURRCODE TYPE C LENGTH 5,
       END OF TY_IMP_FINAL,
       BEGIN OF TY_MBEW,
         MATNR LIKE MBEW-MATNR,
         VPRSV LIKE MBEW-VPRSV,
         STPRS LIKE MBEW-STPRS,
         VERPR LIKE MBEW-VERPR,
       END OF TY_MBEW.
DATA: WA_BOM TYPE TY_BOM,
       WA_QUAN TYPE TY_QUAN,
       WA_IMP_FINAL TYPE TY_IMP_FINAL,
       WA_T023T TYPE TY_T023T,
       WA_T006A TYPE TY_T006A,
       WA_MBEW TYPE TY_MBEW.
DATA: IT_BOM TYPE TABLE OF TY_BOM,
       IT_QUAN TYPE TABLE OF TY_QUAN,
       IT_IMP_FINAL TYPE TABLE OF TY_IMP_FINAL,
       IT_MBEW TYPE TABLE OF TY_MBEW.
  DATA:  IT_STPO TYPE STANDARD TABLE OF STPOX,
         WA_STPO TYPE STPOX.
      SELECT
          MATNR
          VPRSV
          STPRS
          VERPR
           FROM MBEW
            INTO CORRESPONDING FIELDS OF TABLE IT_MBEW.
                WHERE MATNR EQ IT_MARA-MATNR.    "MBEW
*I_STPO2 TYPE STANDARD TABLE OF STPOX.
LOOP AT IT_PLAF_MAKT INTO WA_PLAF_MAKT WHERE CHK = 'X'.
  LOOP AT IT_ZCDR_D INTO WA_ZCDR_D .
      CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'