Please help me about report doesn't working proparly .

Question

Let's define shortly . I want to get mvke s001 join material vtext from t179t table .
prodh            stufe    vtext
13010102           4     extra
1301010201         5     long .
REPORT  YPRODH.
tables:
t179,t179t,vbap,S001,MVKE.
data: begin of i_stufe occurs 100,
      stufe like t179-stufe,
      digit(2) ,
      end of i_stufe.
data: begin of i_stufe1 occurs 100,
      stufe like t179-stufe,
      digit(2) ,
      end of i_stufe1.
data: begin of i_stufe2 occurs 100,
      stufe like t179-stufe,
      digit(2) ,
      end of i_stufe2.
data: begin of i_svy occurs 100,
      svy like t179-stufe,
      end of i_svy.
data: b(3).
i_svy-svy = 1.
APPEND i_svy.
data:v_n type i,
      v_n1 type i,
      v_prodh like t179-prodh,
      v_digit type i.
data i_repid like sy-repid.
data i_lines like sy-tabix.
Data for ALV display ************************
TYPE-POOLS slis.
DATA : ls_slis_layo TYPE slis_layout_alv,
         lt_slis_fcat TYPE slis_t_fieldcat_alv ,
         it_sort TYPE slis_t_sortinfo_alv,
         ls_sort TYPE slis_sortinfo_alv.
DATA : wa_slis_fcat TYPE slis_fieldcat_alv.
DATA : alvfcwa TYPE slis_fieldcat_alv.
DATA: begin of itab occurs 0 ,
vkorg like s001-vkorg,
vtweg like s001-vtweg,
spart like s001-spart,
kunnr like s001-kunnr,
matnr like s001-matnr,
prodh like t179-prodh,
vtext like t179t-vtext,
select type c ,
p1 LIKE prodh-zzprodh1,
  t1 LIKE t179t-vtext,
  p2 LIKE prodh-zzprodh2,
  t2 LIKE t179t-vtext,
  p3 LIKE prodh-zzprodh3,
  t3 LIKE t179t-vtext,
  p4 LIKE prodh-zzprodh4,
  t4 LIKE t179t-vtext,
  p5 LIKE prodh-zzprodh5,
  t5 LIKE t179t-vtext,
  p6 LIKE prodh-zzprodh6,
  t6 LIKE t179t-vtext,
  p7 LIKE prodh-zzprodh7,
  t7 LIKE t179t-vtext,
  p8 LIKE prodh-zzprodh8,
  t8 LIKE t179t-vtext,
  p9 LIKE prodh-zzprodh9,
  t9 LIKE t179t-vtext,
  p like t179-prodh,
END OF itab.
data : begin of gt_prodh occurs 0 .
        include structure mvke.
data: end of gt_prodh .
DATA:X(1),
      p(20),
      t(20),
      y(1),
      v_hier(20).
DATA:v_digiteski(2).
v_digiteski = 0.
data:check(1).
DATA: BEGIN OF gt_t179 OCCURS 0,
    stufe LIKE t179-stufe,
    prodh LIKE t179-prodh,
  END OF gt_t179.
DATA: v_max TYPE i.
selection-screen  begin of block  part1 with frame title text-001.
select-options:  s_vkorg for s001-vkorg,
               s_vtweg for s001-vtweg,
               s_spart for s001-spart,
               s_kunnr for s001-kunnr,
               s_matnr for s001-matnr.
selection-screen end of block  part1 .
select-options:spart for vbap-spart.
concatenate spart-low '*' into b.
ranges vprodh for t179-prodh.
vprodh-sign = 'I'.
vprodh-option = 'CP'.
vprodh-low = b.
append vprodh .
clear vprodh.
start-of-selection.
read data into table imat
  do 9 times.
    SELECT SINGLE prodh FROM t179 INTO v_prodh
    WHERE STUFE EQ i_svy-svy.
    IF sy-SUBRC = 0.
      IF STRLEN( v_prodh ) LE 18.
        i_stufe-stufe = i_svy-svy.
        i_stufe1-stufe = i_svy-svy.
        i_stufe1-digit = STRLEN( v_prodh ).
        i_stufe-digit = STRLEN( v_prodh ) - v_digit.
        v_digit = STRLEN( v_prodh ).
        APPEND i_stufe.
        CLEAR i_stufe.
        APPEND i_stufe1.
        CLEAR i_stufe1.
        APPEND i_stufe2.
        CLEAR i_stufe2.
      ENDIF.
    ELSE.
      EXIT.
    ENDIF.
    i_svy-svy = i_svy-svy + 1.
    APPEND i_svy.
  enddo.
  SORT i_stufe DESCENDING BY stufe.
  LOOP AT i_stufe.
    v_max = i_stufe-stufe.
    EXIT.
  ENDLOOP.
  SELECT * FROM t179 INTO CORRESPONDING FIELDS OF TABLE gt_t179
  where prodh in vprodh.
  select * from s001 into corresponding fields of itab where matnr
in s_matnr.
    select single vkorg vtweg prodh from mvke into corresponding
    fields of itab where matnr = s_matnr
    and vtweg in s_vtweg
    and vkorg in s_vkorg.
    select single vtext from t179t into corresponding fields of itab
    where prodh = itab-prodh .
    append itab.
    clear itab.
  endselect.
  SORT i_stufe2 DESCENDING BY stufe.
  LOOP at i_stufe2.
    LOOP AT gt_t179 WHERE stufe = v_max.
      clear check.
      PERFORM kontrol using gt_t179-prodh.
      CLEAR  i_stufe1-digit.
      LOOP AT i_stufe1.
        if check = 'X'.
          exit.
        endif.
        do 1 times.
          read table i_stufe into i_stufe
           with key stufe = i_stufe1-stufe.
          if i_stufe-stufe > v_max.
            exit.
          endif.
          SELECT SINGLE vtext FROM T179T INTO v_hier
          WHERE spras = sy-langu
          AND prodh = gt_t179-prodh(i_stufe1-digit).
          FIELD-SYMBOLS <p> TYPE C.
          FIELD-SYMBOLS <t> TYPE C.
          CONCATENATE 'result-p' i_stufe1-stufe INTO p.
          CONCATENATE 'result-t' i_stufe1-stufe INTO t.
          ASSIGN (p) TO <p>.
          ASSIGN (t) TO <t>.
assign gt_t179-prodh+v_digiteski(i_stufe-digit) to <p>.
assign v_hier to <t>.
        <p> =  gt_t179-prodh+v_digiteski(i_stufe-digit).
         <t> = v_hier.
          itab-p = gt_t179-prodh.
          v_digiteski = i_stufe1-digit.
          CLEAR p.
          CLEAR t.
        enddo.
     ENDLOOP.
      ENDLOOP.
      CLEAR v_digiteski.
      if itab-p1 ne space.
        APPEND itab.
      endif.
      CLEAR itab.
      CLEAR <p>.
      CLEAR <t>.
    ENDLOOP.
    v_max = v_max - 1.
    if v_max = 0.
      exit.
    endif.
  ENDLOOP.
  data:BEGIN OF i_tt179 OCCURS 100,
    stufe like t179-stufe,
    prodh like t179-prodh,
    end of i_tt179.
*&      Form  kontrol
      text
     -->X          text
form kontrol using x.
  data: a(18).
  CONCATENATE X '*' into a.
  ranges prodh for t179-prodh.
  prodh-sign = 'I'.
  prodh-option = 'CP'.
  prodh-low = a.
  append prodh . clear prodh.
  prodh-sign = 'E'.
  prodh-option = 'EQ'.
  prodh-low = X.
  append prodh . clear prodh.
  select * FROM t179
     into CORRESPONDING FIELDS OF TABLE i_tt179 WHERE prodh in prodh.
  if sy-SUBRC eq 0.
    check = 'X'.
  endif.
ENDFORM.                    "kontrol
Check if material was found
" clear i_lines.
"  describe table result lines i_lines.
"  if i_lines lt 1.
"*   Using hardcoded write here for easy upload
"    write: /
"    'No materials found.'.
"    exit.
"  endif.
end-of-selection.
  CLEAR ls_slis_layo.
  ls_slis_layo-colwidth_optimize = 'X'.
  ls_slis_layo-max_linesize      = 1023.
  ls_slis_layo-get_selinfos      = 'X'.
  ls_slis_layo-detail_popup      = 'X'.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
     EXPORTING
      i_program_name               = sy-repid
      i_internal_tabname           = 'ITAB'
    i_structure_name           = 'ZSKAR_ANZ'
    i_client_never_display       = 'X'
        i_inclname                   = sy-repid
        i_bypassing_buffer           = 'X'
    I_BUFFER_ACTIVE              =
      CHANGING
        ct_fieldcat                  = lt_slis_fcat[]
  EXCEPTIONS
     inconsistent_interface       = 1
     program_error                = 2
     OTHERS                       = 3
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
  I_INTERFACE_CHECK                 = ' '
     i_bypassing_buffer                = 'X'
  I_BUFFER_ACTIVE                   = ' '
     i_callback_program                = sy-repid
  I_CALLBACK_PF_STATUS_SET          = ' '
  I_CALLBACK_USER_COMMAND           = ' '
  I_CALLBACK_TOP_OF_PAGE            = ' '
  I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
  I_CALLBACK_HTML_END_OF_LIST       = ' '
  I_STRUCTURE_NAME                  = 'itab'
  I_BACKGROUND_ID                   = ' '
  I_GRID_TITLE                      =
  I_GRID_SETTINGS                   =
     is_layout                         = ls_slis_layo
     it_fieldcat                       = lt_slis_fcat
  IT_EXCLUDING                      =
  IT_SPECIAL_GROUPS                 =
IT_SORT                           = it_sort
  IT_FILTER                         =
  IS_SEL_HIDE                       =
  I_DEFAULT                         = 'X'
  I_SAVE                            = ' '
  IS_VARIANT                        =
  IT_EVENTS                         =
  IT_EVENT_EXIT                     =
  IS_PRINT                          =
  IS_REPREP_ID                      =
  I_SCREEN_START_COLUMN             = 0
  I_SCREEN_START_LINE               = 0
I_SCREEN_END_COLUMN               = 160
I_SCREEN_END_LINE                 = 5
  I_HTML_HEIGHT_TOP                 = 0
  I_HTML_HEIGHT_END                 = 0
  IT_ALV_GRAPHICS                   =
  IT_HYPERLINK                      =
  IT_ADD_FIELDCAT                   =
  IT_EXCEPT_QINFO                   =
  IR_SALV_FULLSCREEN_ADAPTER        =
IMPORTING
  E_EXIT_CAUSED_BY_CALLER           =
  ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab                          = itab[]
   EXCEPTIONS
     program_error                     = 1
     OTHERS                            = 2
*CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
*EXPORTING
*it_fieldcat = lt_slis_fcat
*TABLES
*t_outtab = itab
*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.
  break yusufc.

Answer 1

Hi Yusuf,
first u have to get the PRODH from MARA for a give table then  u have to get the text of PRODH frm T179T.
sample logic :
SELECT MARA~MATNR
       MARA~PRDHA
       FROM MARA
       INTO CORRESPONDING FIELDS OF TABLE I_MARA
       WHERE MARA~MATNR IN S_MATNR1.
SELECT PRODH
       VTEXT
       INTO CORRESPONDING FIELDS OF TABLE I_VTEXT
       FROM T179T
       FOR ALL ENTRIES IN I_MARA
       WHERE PRODH =  I_MARA-PRDHA.
dont use Nested Select Stmts.
Regards
Prabhu