BAPI_PR_CREATE EXTENSIONIN

Question

Hello Gurus,
I am creating a PR using BAPI_PR_CREATE, I achieve creating the PR, but I can't save value in the custom fields.
This is my code, would you please help me?
Thanks
DATA: ls_req_item TYPE BAPI_TE_MEREQITEM,
      ls_req_itemx TYPE BAPI_TE_MEREQITEMX,
      ls_extensionin TYPE bapiparex,
      lt_extensionin TYPE STANDARD TABLE OF bapiparex.
           clear ls_extensionin.
        clear ls_req_item.
        ls_req_item-preq_item = wa_gt_data-posic.
        ls_req_item-ZZKOSTL    = wa_praccount-costcenter.
        ls_extensionin-structure = 'BAPI_TE_MEREQITEM'.
        PERFORM transfer_to_extensionin USING ls_req_item CHANGING ls_extensionin.
        APPEND ls_extensionin to lt_extensionin.
        clear ls_extensionin.
        clear ls_req_itemx.
        ls_req_itemx-preq_item = wa_gt_data-posic.
        ls_req_itemx-ZZKOSTL    = 'X'.
        ls_extensionin-structure = 'BAPI_TE_MEREQITEMX'.
        PERFORM transfer_to_extensionin USING ls_req_itemx CHANGING ls_extensionin.
        APPEND ls_extensionin to lt_extensionin.
FORM transfer_to_extensionin
    USING
      is_bapi_extensionin TYPE any
    CHANGING
      cs_bapiparex        TYPE bapiparex.
  DATA l_distance_characters TYPE I.
  FIELD-SYMBOLS <any> TYPE any.
  DESCRIBE DISTANCE BETWEEN cs_bapiparex-structure
            AND cs_bapiparex-valuepart1
            INTO l_distance_characters
            IN CHARACTER MODE.
  ASSIGN cs_bapiparex+l_distance_characters(*) TO <any>
        CASTING LIKE is_bapi_extensionin.
  <any> = is_bapi_extensionin.
ENDFORM.
* Create the PR with the above data's.
  CALL FUNCTION 'BAPI_PR_CREATE'
    EXPORTING
      prheader     = wa_header
      prheaderx    = wa_headerx
    TABLES
      return       = t_return
      pritem       = t_item
      pritemx      = t_itemx
      praccount    = t_praccount
      praccountx   = t_praccountx
      "pritemsource = t_itemsource
      "pritemtext   = t_itext
      EXTENSIONIN  = lt_extensionin
    EXCEPTIONS
      OTHERS       = 1.

Answer 1

Hi Enrique,
then try the following:  Replace
PERFORM transfer_to_extensionin USING ls_req_item CHANGING ls_extensionin.
with
DESCRIBE  FIELD  ls_req_item LENGTH h_length IN BYTE MODE.
MOVE ls_req_item TO ls_extensionin+30(h_length).
and replace
PERFORM transfer_to_extensionin USING ls_req_itemx CHANGING ls_extensionin.
with
DESCRIBE  FIELD  ls_req_itemx LENGTH h_length IN BYTE MODE.
MOVE ls_req_itemx TO ls_extensionin+30(h_length).
where h_length is defined as
DATA: h_length        TYPE  i.
I've checked this in a small sample report and it worked for me
REPORT  ztest_extensionin.
DATA: ls_req_item     TYPE  bapi_te_mereqitem.
DATA: ls_req_itemx    TYPE  bapi_te_mereqitemx.
DATA: ls_extensionin  TYPE  bapiparex.
DATA: h_length        TYPE  i.
START-OF-SELECTION.
  DESCRIBE  FIELD  ls_req_item LENGTH h_length IN BYTE MODE.
  MOVE ls_req_item TO ls_extensionin+30(h_length).
  DESCRIBE  FIELD  ls_req_itemx LENGTH h_length IN BYTE MODE.
  MOVE ls_req_itemx TO ls_extensionin+30(h_length).
Regards,
Klaus