Sales Org Extension

Question

Hi Experts,
I have one requirement where i need to show existing sales org , distribution channel to user , in addition to this i need to show some two additional fields  copy from sales org and copy from Distn Chnl . I need to show the existing sales org for the material being changed in the copy from Sales field  and existing Distn Chnl for that material . so that all the existing characterstics should copied to the new sales organization . please help me how to show the existing sales organisation in copy from sales organisation for a particular material . 
if i press F4 in Copy from existing Sales org field, i need to show all the existing Sales Organisation for the material being changed as available options.
i tried creating listbox but it didnt work. Please help me
Thanks in advance,
Shrikanth

Answer 1

Use FM F4IF_INT_TABLE_VALUE_REQUEST to show custom search help options.
*& Report  ZTEST_SOURAV15
REPORT ZTEST_SOURAV15.
TABLES: mara, marc.
PARAMETERS: matnr TYPE mara-matnr.
PARAMETERS: werks TYPE marc-werks.
TYPES : BEGIN OF ty_marc ,
werks TYPE marc-werks ,
END OF ty_marc.
DATA : it_marc TYPE STANDARD TABLE OF ty_marc.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR werks.
  DATA: l_i_dynpfields TYPE STANDARD TABLE OF dynpread INITIAL SIZE 0,
        l_wa_dynpfields  TYPE dynpread.
  l_wa_dynpfields-fieldname = 'MATNR'.
  APPEND l_wa_dynpfields TO l_i_dynpfields.
  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname                         = sy-repid
      dynumb                         = sy-dynnr
*   TRANSLATE_TO_UPPER             = ' '
*   REQUEST                        = ' '
*   PERFORM_CONVERSION_EXITS       = ' '
*   PERFORM_INPUT_CONVERSION       = ' '
*   DETERMINE_LOOP_INDEX           = ' '
    TABLES
      dynpfields                     = l_i_dynpfields
   EXCEPTIONS
     invalid_abapworkarea           = 1
     invalid_dynprofield            = 2
     invalid_dynproname             = 3
     invalid_dynpronummer           = 4
     invalid_request                = 5
     no_fielddescription            = 6
     invalid_parameter              = 7
     undefind_error                 = 8
     double_conversion              = 9
     stepl_not_found                = 10
     OTHERS                         = 11
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  READ TABLE l_i_dynpfields INTO l_wa_dynpfields
  WITH KEY fieldname = 'MATNR'.
  IF sy-subrc = 0.
    DATA l_matnr TYPE matnr.
    l_matnr = l_wa_dynpfields-fieldvalue.
    CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
      EXPORTING
        input        = l_matnr
      IMPORTING
        output       = l_matnr
      EXCEPTIONS
        length_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.
    SELECT werks FROM marc INTO TABLE it_marc WHERE matnr EQ l_matnr.
    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
      EXPORTING
        retfield    = 'WERKS'
        dynpprog    = sy-repid
        dynpnr      = sy-dynnr
        dynprofield = 'P_WERKS'
        value_org   = 'S'
      TABLES
        value_tab   = it_marc.
  ENDIF.
START-OF-SELECTION.
  WRITE: / ' this is for testing'.