This s ma whole object

Question

FUNCTION ZMATERIAL_GEDET5.
""Local Interface:
*"  IMPORTING
*"     VALUE(I_MAT) LIKE  MARA-MATNR
*"     VALUE(I_PLANT) LIKE  MARC-WERKS OPTIONAL
*"     VALUE(I_VALUATIONAREA) LIKE  MBEW-BWKEY OPTIONAL
*"     VALUE(I_VALUATIONTYPE) LIKE  MBEW-BWTAR OPTIONAL
*"  TABLES
*"      T_MAT STRUCTURE  MARA OPTIONAL
*"      T_PLANT STRUCTURE  MARC OPTIONAL
*"      T_VAL STRUCTURE  MBEW OPTIONAL
*"      RETURN STRUCTURE  BAPIRET2 OPTIONAL
data : c_e value 'E',
c_s value 'S'.
data : c_c value 'C'. " CHANGE FLAG FOR CHANGE HISTORY
data : c_i value 'I'. " CREATE flag for change history
data : c_d value 'D'. " DELETE flag for change history
data : v_msg type string.
data : iv_chng_no type cdchangenr. " NUMBER RANGE NO FOR CHANGE HISTORY
constants : c_000(3) type c value '000',
c_001(3) type c value '001',
c_002(3) type c value '002',
c_003(3) type c value '003',
c_004(3) type c value '004',
c_005(3) type c value '005',
c_006(3) type c value '006',
c_007(3) type c value '007',
c_008(3) type c value '008',
c_009(3) type c value '009',
c_010(3) type c VALUE '010',
c_011(3) type c VALUE '011',
c_012(3) type c VALUE '012',
c_013(3) type c VALUE '013',
c_014(3) type c VALUE '014',
c_015(3) type c VALUE '015',
c_016(3) type c VALUE '016',
c_017(3) type c VALUE '017',
c_018(3) type c VALUE '018',
c_019(3) type c VALUE '019',
c_020(3) type c VALUE '020'.
DATA : WA_MARA TYPE MARA,
       IT_MARA TYPE STANDARD TABLE OF MARA,
       WA_MARC TYPE MARC,
       IT_MARC TYPE STANDARD TABLE OF MARC,
       WA_MBEW TYPE MBEW,
       IT_MBEW TYPE STANDARD TABLE OF MBEW.
if not I_mat is initial.
  select * from mara into CORRESPONDING FIELDS OF TABLE IT_MARA WHERE MATNR = I_MAT.
ENDIF.
if sy-subrc ne 0.
  move : c_e                   to return-type,
         '/KAARTECH/ZKN_PO' to return-id,
         c_001                 to return-number. " No table entries found for the given selection criteria
  append return.
*&                    ERROR HANDLING
*Message Formating.
  loop at return into return.
    call function 'FORMAT_MESSAGE'
      exporting
        id        = return-id
        lang      = sy-langu
        no        = return-number
        v1        = return-message_v1
        v2        = return-message_v2
        v3        = return-message_v3
        v4        = return-message_v4
      importing
        msg       = v_msg.
    return-message = v_msg.
    modify return from return index sy-tabix.
  endloop.
  exit.
  endif.
IF NOT I_MAT IS INITIAL AND I_PLANT IS INITIAL.
  SELECT * FROM MARC INTO CORRESPONDING FIELDS OF TABLE IT_MARC FOR ALL ENTRIES IN IT_MARA WHERE
                                                                            MATNR = IT_MARA-MATNR.
    ENDIF.
*if not i_mat is initial and not i_plant is initial .
select * from marc into CORRESPONDING FIELDS OF TABLE it_marc  where matnr = i_mat and
                                                                      werks = i_plant.
   endif.
if not i_mat is initial and not i_plant is initial .
  select * from marc into CORRESPONDING FIELDS OF TABLE it_marc FOR ALL ENTRIES IN IT_MARA where
                                                                        matnr = it_MARA-matnr and
                                                                        werks = i_plant.
    endif.
     if sy-subrc ne 0.
  move : c_e                   to return-type,
         '/KAARTECH/ZKN_PO' to return-id,
         c_001                 to return-number. " No table entries found for the given selection criteria
  append return.
*&                    ERROR HANDLING
*Message Formating.
  loop at return into return.
    call function 'FORMAT_MESSAGE'
      exporting
        id        = return-id
        lang      = sy-langu
        no        = return-number
        v1        = return-message_v1
        v2        = return-message_v2
        v3        = return-message_v3
        v4        = return-message_v4
      importing
        msg       = v_msg.
    return-message = v_msg.
    modify return from return index sy-tabix.
  endloop.
  exit.
  endif.
IF NOT i_mat IS INITIAL and not i_valuationarea is initial and i_plant is initial.
*SELECT * FROM MBEW INTO CORRESPONDING FIELDS OF TABLE IT_MBEW FOR ALL ENTRIES IN IT_MARA WHERE
                                                                               MATNR = IT_MARA-MATNR
                                                                              and  BWKEY = I_VALUATIONAREA.
endif.
if not i_mat is initial and i_valuationarea is initial and not i_plant is initial.
    SELECT * FROM MBEW INTO CORRESPONDING FIELDS OF TABLE IT_MBEW FOR ALL ENTRIES IN IT_MARA WHERE
                                                                               MATNR = IT_MARA-MATNR.
      endif.
IF NOT i_mat IS INITIAL and not i_valuationarea is initial.
SELECT * FROM MBEW INTO CORRESPONDING FIELDS OF TABLE IT_MBEW FOR ALL ENTRIES IN IT_MARA WHERE
                                                                                MATNR = IT_MARA-MATNR
                                                                                and  BWKEY = I_VALUATIONAREA.
  endif.
  if not i_mat is initial and i_valuationarea is initial.
     SELECT * FROM MBEW INTO CORRESPONDING FIELDS OF TABLE IT_MBEW FOR ALL ENTRIES IN IT_MARA WHERE
                                                                                MATNR = IT_MARA-MATNR.
       endif.
  IF NOT I_MAT IS INITIAL AND NOT I_VALUATIONTYPE IS INITIAL .
   SELECT * FROM MBEW INTO CORRESPONDING FIELDS OF TABLE IT_MBEW FOR ALL ENTRIES IN IT_MARA WHERE
                                                                                MATNR = IT_MARA-MATNR
                                                                                AND BWTAR = I_VALUATIONTYPE.
       endif.
*if not i_mat is initial and i_valuationtype is initial.
SELECT * FROM MBEW INTO CORRESPONDING FIELDS OF TABLE IT_MBEW FOR ALL ENTRIES IN IT_MARA WHERE
                                                                               MATNR = IT_MARA-MATNR.
   endif.
IF SY-SUBRC NE 0.
     if sy-subrc ne 0.
  move : c_e                   to return-type,
         '/KAARTECH/ZKN_PO' to return-id,
         c_001                 to return-number. " No table entries found for the given selection criteria
  append return.
*&                    ERROR HANDLING
*Message Formating.
  loop at return into return.
    call function 'FORMAT_MESSAGE'
      exporting
        id        = return-id
        lang      = sy-langu
        no        = return-number
        v1        = return-message_v1
        v2        = return-message_v2
        v3        = return-message_v3
        v4        = return-message_v4
      importing
        msg       = v_msg.
    return-message = v_msg.
    modify return from return index sy-tabix.
  endloop.
  exit.
  endif.
  ENDIF.
T_MAT[] = it_mara.
t_plant[] = it_marc.
t_val[] = it_mbew.
     ENDIF.
ENDFUNCTION.
in output---- when we give matnr and plant means i m getting whole valuation area as output but i should get only the output which i give for plant.

Answer 1

You have sent this Abuse Report:
I am unable to use my account
The reason you are not able to use your account is that, there are 10 open questions against your name. As a rule you are not supposed to have more than 10 open questions. You will also find that you are not able to close any of your open questions. The reason is that they are all locked. The reasons for them being locked are:
- You have asked basic questions.
- You have not put any effort into answering your questions.
- You expect the forum to do your work.
- You did not search for available information.
- You have not read the Rules of Engagement of this forum, despite being asked to.
- You have used vague nonsense titles to your threads despite being warned.
and many other violations
I will let you delete/close some open questions if you promise to read the rules and abide by it, thus letting you post questions here. One more rule violation from your end and your id will be deleted. This is your last warning.
Do you agree to follow the rules of this forum?
pk