Initialization of data in function module (module PP)

Question

I developed a transaction to maintain production orders (similar to transaction CO02).
I use the function module CMOC_COMP_READ to read the component data into a resbd-structure (this works fine).
My transaction creates a purchase order to one component and then I want to read the actual component data again - it should show that the component has now a purchase order (field RESBD-FLG_PURS). But the field is still empty.
Intresting effect: When I start the transaction in another screen with the same production order SAP shows the updated value. This means the purchase order is really booked and the function module finds this data.
So I am looing for a way to clear all data before using CMOC_COMP_READ. I did not found any helpful initialising FM.
Thanks for your help
Brigitte

Answer 1

go to se37 & give d fm name VC_I_GET_CONFIGURATION_IBASE
display
note: from EQUI table take 'CUOBJ' value  EX '9825'
DISPLAY THE FM GIVE UR CUOBJ NO IN INSTANCE  value textbox
in the end including zero 9825 press execute u can see in the bottom table
CONFIGURATION RESULT 53entries or whatever double click on that
unow u can see the all field name .
I HAVE DONE LIKE THIS IN SAMRT FORMS FOR PS
FOR that i written this code
*& FOR POLE , KW , CONST FIELDS
*break : abapdev.
SELECT SINGLE * FROM vbap INTO wa_vbap
         WHERE vbeln = wa_vbrp-aubel AND posnr = wa_vbrp-posnr .
IF sy-subrc = 0.
  CALL FUNCTION 'VC_I_GET_CONFIGURATION_IBASE'
  EXPORTING
    instance                  = wa_vbap-cuobj
  BUSINESS_OBJECT           =
     language                  = sy-langu
  IV_INVALID_POSSIBLE       = ' '
  IV_NEUTRAL                = ' '
   TABLES
     configuration             = gt_data
  ET_CONF_WITH_AUTHOR       =
   EXCEPTIONS
     instance_not_found        = 1
     OTHERS                    = 2.
ENDIF.          .
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*& FOR POLARITY FRAMESIZE & KW
LOOP AT gt_data INTO wa_data.
  IF wa_data-atnam = 'KW1'.
    lv_kw1 = wa_data-atwrt.
  ENDIF.
if wa_data-atnam = 'KW2'.
  lv_kw2 = wa_data-atwrt.
  ENDIF.
  IF wa_data-atnam = 'POLARITY'.
    lv_polarity = wa_data-atwrt.
  ENDIF.
  IF wa_data-atnam = 'FRAMESIZE'.
    lv_framesize = wa_data-atwrt.
  ENDIF.
ENDLOOP.
*& FOR MACHINE NUMBER
*break : abapdev.
SELECT SINGLE * FROM ser01 INTO wa_ser01
       WHERE lief_nr = wa_likp-vbeln.
IF sy-subrc = 0.
  SELECT SINGLE * FROM objk INTO wa_objk
         WHERE obknr = wa_ser01-obknr.
ENDIF.
regrads
aniruddh singh