Dual Nature for Abap code.

Question

Hi,
Requirment is
For a Material,
Orders  required quantity
components for that material
their requirment.
my program takes material and orders from RESB table.
to get components i am looping through header table using Function module -'CS_BOM_EXPL_MAT_V2'.
If i do the debugginf i am able to see that data is going properly to internal table. but when i execute, Components data is missing.
Any body can help me in this?
What might be the cause?
Regards,
Lijo Joseph

Answer 1

REPORT  zpp_cut_mat_issue LINE-SIZE 130 LINE-COUNT 65(3) "LINE-COUNT 90(3)
NO STANDARD PAGE HEADING    .
*Tables
TABLES : resb,makt,marc,mara,aufk.
DATA: l_bdmng LIKE resb-bdmng.
*Inputs
*PARAMETERS :
*Lead Production Order No.
             P_AUFNR LIKE AFPO-AUFNR OBLIGATORY.
SELECT-OPTIONS :
*From No. to No.
              s_matnr FOR resb-matnr ,
              s_bdter FOR resb-bdter ,  "
              s_ekgrp FOR marc-ekgrp,
              s_mtyp FOR mara-extwg NO-EXTENSION NO INTERVALS ," TYPE  C OBLIGATORY.
              s_aufnr FOR resb-aufnr,  "production order
              s_dispo FOR marc-dispo,  "MRP type
              s_erdat FOR aufk-erdat,  "prdn order creation date
              s_werks for resb-werks.
*Raw Material /Assembly
RANGES :      r_resb FOR afko-rsnum.
*Constants
*Type Pools
TYPE-POOLS : cs01.
*Data Declaration
DATA :
       ismast TYPE cs01_mastb OCCURS 0 WITH HEADER LINE,
       topmat TYPE cstmat OCCURS 0 WITH HEADER LINE,
       stb TYPE stpox OCCURS 0 WITH HEADER LINE,
       matcat TYPE cscmat OCCURS 0 WITH HEADER LINE,
       dstst TYPE csdata-xfeld.
START-OF-SELECTION.
DATA it_resb LIKE resb OCCURS 0 WITH HEADER LINE.
  DATA: BEGIN OF it_resb OCCURS 0,
  matnr LIKE resb-matnr,
  aufnr LIKE resb-aufnr,
  bdmng LIKE resb-bdmng,
  meins LIKE resb-meins,
  bdter LIKE resb-bdter,
  werks LIKE resb-werks,
  pmatnr LIKE afpo-matnr,
  pmaktx LIKE makt-maktx,
  sbmng LIKE afko-sbmng,
  baugr LIKE resb-baugr,
  END OF it_resb.
*Variables
  DATA l_lead_aufnr LIKE afpo-aufnr.
  DATA l_pmatnr LIKE afpo-matnr.
  DATA l_sbmng LIKE afko-sbmng.
  DATA l_sbmeh LIKE afko-sbmeh.
  DATA l_slno TYPE i.
  data l_labst like mard-labst.
  SELECT aufnr matnr werks bdmng meins bdter baugr INTO CORRESPONDING FIELDS OF TABLE it_resb FROM resb
  WHERE aufnr IN s_aufnr AND matnr IN s_matnr and werks in s_werks
  ORDER BY baugr.
  IF sy-subrc <> 0.
    MESSAGE 'No Values Found' TYPE 'I'.
    LEAVE LIST-PROCESSING.
  ENDIF.
  DELETE it_resb WHERE aufnr = space.
  LOOP AT it_resb.
    SELECT SINGLE lead_aufnr sbmng sbmeh INTO (l_lead_aufnr,l_sbmng,l_sbmeh) FROM afko WHERE aufnr = it_resb-aufnr.
    SELECT SINGLE matnr INTO it_resb-pmatnr FROM afpo WHERE aufnr = l_lead_aufnr.
    SELECT SINGLE maktx INTO it_resb-pmaktx FROM makt WHERE matnr = it_resb-pmatnr.
    MODIFY it_resb TRANSPORTING pmatnr pmaktx.
  ENDLOOP.
  SORT it_resb BY matnr baugr pmatnr .
  LOOP AT it_resb.
    ON CHANGE OF it_resb-matnr.
      FORMAT COLOR COL_HEADING ON.
      WRITE:/ sy-uline.
      WRITE:/ sy-vline,it_resb-matnr,it_resb-baugr,it_resb-meins,sy-uline.
      FORMAT COLOR OFF.
      l_slno = 1.
    ENDON.
    WRITE:/1 sy-vline,2(3) l_slno,sy-vline,(12) it_resb-aufnr,sy-vline,it_resb-bdmng,it_resb-meins,it_resb-baugr,it_resb-pmaktx.
l_slno = l_slno + 1.
    AT END OF matnr .
      READ TABLE it_resb INDEX sy-tabix.
      SUM.
      l_bdmng = it_resb-bdmng.
      WRITE:/ sy-uline.
      FORMAT COLOR COL_TOTAL ON.
      WRITE:/ 'Total:',l_bdmng.
      FORMAT COLOR OFF.
      PERFORM bom_explode .
    ENDAT.
  ENDLOOP.
*&      Form  bom_explode
      text
-->  p1        text
<--  p2        text
FORM bom_explode .
  CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
    EXPORTING
      aufsw                 = ' '
      aumng                 = 0
      capid                 = 'PP01'
      datuv                 = sy-datum
      ehndl                 = '1'
      emeng                 = it_resb-bdmng
      mktls                 = 'X'
      mehrs                 = 'X'
      mtnrv                 = it_resb-matnr
      stpst                 = 0
      svwvo                 = 'X'
      werks                 = it_resb-werks
      vrsvo                 = 'X'
    IMPORTING
      topmat                = topmat
      dstst                 = dstst
    TABLES
      stb                   = stb
      matcat                = 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.
   MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
           WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ELSE.
    WRITE:/ sy-uline.
    LOOP AT stb.
      WRITE:/ stb-idnrk,stb-menge,stb-meins,stb-mnglg,stb-meins,l_labst.
    ENDLOOP.
    WRITE:/ sy-uline.
    SKIP 1.
  ENDIF.
ENDFORM.                    " bom_explode
TOP-OF-PAGE.
  CALL FUNCTION 'ZCA_REPORT_HEADER'
    EXPORTING
      hdval  = 'Cutting List For Stores'
      rpsize = 130
      plant  = 'BLR'.
  COMMIT WORK.