BOM Data after explosion

Question

Hi Gurus,
I am working on to get BOM information in BI and using a FM which is calling Function  CS_BOM_EXPL_MAT_V2.
Here is the entire FM.
FUNCTION ybwpp_bom_exp_itm_3rd_lvl.
""Local Interface:
*"  IMPORTING
*"     REFERENCE(I_REQUNR) TYPE  SRSC_S_IF_SIMPLE-REQUNR
*"     REFERENCE(I_DSOURCE) TYPE  SRSC_S_IF_SIMPLE-DSOURCE OPTIONAL
*"     REFERENCE(I_MAXSIZE) TYPE  SRSC_S_IF_SIMPLE-MAXSIZE OPTIONAL
*"     REFERENCE(I_INITFLAG) TYPE  SRSC_S_IF_SIMPLE-INITFLAG OPTIONAL
*"     REFERENCE(I_READ_ONLY) TYPE  SRSC_S_IF_SIMPLE-READONLY OPTIONAL
*"     REFERENCE(I_REMOTE_CALL) TYPE  SBIWA_FLAG OPTIONAL
*"  TABLES
*"      I_T_SELECT TYPE  SRSC_S_IF_SIMPLE-T_SELECT OPTIONAL
*"      I_T_FIELDS TYPE  SRSC_S_IF_SIMPLE-T_FIELDS OPTIONAL
*"      E_T_DATA STRUCTURE  YPPBW_MAST_STPO OPTIONAL
*"  EXCEPTIONS
*"      ERROR_PASSED_TO_MESS_HANDLER
*"      NO_MORE_DATA
======================================================================
Function Module Name - YBWPP_BOM_EXP_ITM_3RD_LVL                     *
===============================REVISIONS==============================
            Cut                                                      *
Programmer  Over   Date    MOC#  Description                         *
======================================================================
Maximum number of lines for DB table
  STATICS: s_s_if TYPE srsc_s_if_simple,
counter
          s_counter_datapakid LIKE sy-tabix,
cursor
          s_cursor TYPE cursor.
  DATA: lt_stb TYPE STANDARD TABLE OF stpox WITH HEADER LINE,
        lt_matcat TYPE STANDARD TABLE OF cscmat WITH HEADER LINE.
  DATA wa_mast_stpo TYPE yppbw_mast_stpo.
initialization mode (first call by sapi) or data transfer mode
(following calls) ?
  IF i_initflag = sbiwa_c_flag_on.
Initialization: check input parameters
                buffer input parameters
                prepare data selection
   CHECK datasource VALIDITY
    CASE i_dsource.
      WHEN 'YBWPPBOMITMMASTSTPO'.
      WHEN OTHERS.
        IF 1 = 2.
          MESSAGE e009(r3).
        ENDIF.
      This is a typical log call. Write every error message like
        log_write 'E'                  "message type
                  'R3'                 "message class
                  '009'                "message number
                  i_dsource            "message variable 1
                  ' '.                 "message variable 2
        RAISE error_passed_to_mess_handler.
    ENDCASE.
    APPEND LINES OF i_t_select TO s_s_if-t_select.
Fill parameter buffer for data extraction calls
    s_s_if-requnr    = i_requnr.
    s_s_if-dsource = i_dsource.
    s_s_if-maxsize   = i_maxsize.
Fill field list table for an optimized select statement
(in case that there is no 1:1 relation between InfoSource fields
and database table fields this may be far from beeing trivial)
    APPEND LINES OF i_t_fields TO s_s_if-t_fields.
  ELSE.                 "Initialization mode or data extraction ?
Data transfer: First Call      OPEN CURSOR + FETCH
               Following Calls FETCH only
First data package -> OPEN CURSOR
    IF s_counter_datapakid = 0.
Fill range tables BW will only pass down simple selection criteria
of the type SIGN = 'I' and OPTION = 'EQ' or OPTION = 'BT'.
      LOOP AT s_s_if-t_select INTO l_s_select.
        CASE l_s_select-fieldnm.
          WHEN 'YYMATNR'.
            MOVE-CORRESPONDING l_s_select TO r_matnr.
            APPEND r_matnr.
          WHEN 'YYWERKS'.
            MOVE-CORRESPONDING l_s_select TO r_werks.
            APPEND r_werks.
          WHEN 'YYSTLAN'.
            MOVE-CORRESPONDING l_s_select TO r_stlan.
            APPEND r_stlan.
          WHEN 'YYSTLAL'.
            MOVE-CORRESPONDING l_s_select TO r_stlal.
            APPEND r_stlal.
        ENDCASE.
      ENDLOOP.
Determine number of database records to be read per FETCH statement
from input parameter I_MAXSIZE. If there is a one to one relation
between DataSource table lines and database entries, this is trivial.
In other cases, it may be impossible and some estimated value has to
be determined.
*-- Fill the Range Table for Plants.
      r_werks-sign = 'I'.
      r_werks-option = 'EQ'.
      r_werks-low =  '1027'.
      APPEND r_werks.
      r_werks-low =  '1028'.
      APPEND r_werks.
      r_werks-low =  '1037'.
      APPEND r_werks.
      r_werks-low =  '1042'.
      APPEND r_werks.
      r_werks-low =  '1043'.
      APPEND r_werks.
      r_werks-low =  '1077'.
      APPEND r_werks.
      r_werks-low =  '1088'.
      APPEND r_werks.
      r_werks-low =  '1315'.
      APPEND r_werks.
*-- Retrive Valid Material Number, Plant, BoM Usage & Alternative UoM
      OPEN CURSOR WITH HOLD s_cursor FOR
          SELECT matnr werks stlan stlal
          FROM mast
          WHERE matnr IN r_matnr AND
                werks IN r_werks AND
                stlan IN r_stlan AND
                stlal IN r_stlal.
    ENDIF.                 "First data package ?
Fetch records into interface table.
    FETCH NEXT CURSOR s_cursor
               INTO TABLE  gt_mast
               PACKAGE SIZE s_s_if-maxsize.
    IF sy-subrc NE 0.
      CLOSE CURSOR s_cursor.
      RAISE no_more_data.
    ENDIF.
    LOOP AT gt_mast INTO  wa_mast.
*-- Get BOM explosion for material
      CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
        EXPORTING
          capid                 = 'STD1'
          datuv                 = sy-datum
          mktls                 = 'X'
          mehrs                 = 'X'
          mtnrv                 = wa_mast-matnr
         stlal                 = wa_mast-stlal
         stlan                 = wa_mast-stlan
         werks                 = wa_mast-werks
        TABLES
          stb                   = lt_stb
          matcat                = lt_matcat
        EXCEPTIONS
          alt_not_found         = 1
          call_invalid          = 2
          material_not_found    = 3
          missing_authorization = 4
          no_bom_found          = 5
          no_plant_data         = 6
          no_suitable_bom_found = 7
          conversion_error      = 8
          OTHERS                = 9.
      IF sy-subrc = 0.
*-- Get BOM item record
        PERFORM get_bom_item_stpo TABLES lt_stb .
      ENDIF.
     MOVE-CORRESPONDING   wa_mast TO wa_mast_stpo.
      LOOP AT lt_stb.
        CLEAR wa_mast_stpo.
        PERFORM move_mast_records_finaltab USING wa_mast_stpo.
        PERFORM move_bom_exp_to_finaltab USING lt_stb
                                               wa_mast_stpo.
       MOVE-CORRESPONDING   lt_stb TO wa_mast_stpo.
        READ TABLE gt_stpo INTO wa_stpo
                          WITH KEY stlty = lt_stb-stlty
                                   stlnr = lt_stb-stlnr
                                   stlkn = lt_stb-stlkn
                                   stpoz = lt_stb-stpoz.
        IF sy-subrc = 0.
          PERFORM move_stpo_to_finaltab USING wa_mast_stpo.
         MOVE-CORRESPONDING   wa_stpo TO wa_mast_stpo.
        ENDIF.
        APPEND wa_mast_stpo TO e_t_data.
        CLEAR  e_t_data.
      ENDLOOP.
    ENDLOOP.
    s_counter_datapakid = s_counter_datapakid + 1.
  ENDIF.
ENDFUNCTION.
I am not getting any output. Can someone please tell me what am I doing wrong in here.
Thanks
Edited by: Ray_Ray on Jul 30, 2010 1:02 AM

Answer 1

Hi,
I am not sure as to what values are getting passed into your function module because all the cursor statements look OK.
My suggestion would be that you put a break-point at the function module for BOM CS_BOM_EXPL_MAT_V2 and then go to RSA3. Provide your datasource and execute it. At the breakpoint you should be able to see if the values that are getting passed are valid or not and whether this function module is returning any value. Also, check if your internal table gs_nast is getting any values or not after the fetch cursor statement.