Search help - Need to read dynpro of the calling program

Question

Hello all,
We have a requirement where we need to read the dynpro of the calling program of a search help.
Say I have a screen (selection screen, module pool or ALV grid etc) where I have a field PARTNER with whom a custom search help is attached. But on this same screen there is another field RLTYP. What we want is that when an F4 is taken on PARTNER, the value of RLTYP should also be passed as value to the Search help exit.
In short, we need to read the screen fields of the calling screen of a search help.
Any ideas are appreciated.
Regards
Priyanka

Answer 1

Check the sample code:
FUNCTION F4IF_SHLP_EXIT_OFFRCONT.
""Local interface:
*"  TABLES
*"      SHLP_TAB TYPE  SHLP_DESCT
*"      RECORD_TAB STRUCTURE  SEAHLPRES
*"  CHANGING
*"     VALUE(SHLP) TYPE  SHLP_DESCR
*"     VALUE(CALLCONTROL) LIKE  DDSHF4CTRL STRUCTURE  DDSHF4CTRL
  DATA : ws_flag(1) TYPE c,
         ws_rec(1)  TYPE c.
  DATA : i_dynpfields TYPE dynpread OCCURS 0 WITH HEADER LINE.
  DATA : ws_data TYPE ddshiface,
         i_data TYPE ddshifaces.
  ws_flag = 'X'.
  ws_rec = 'X'.
  IF ws_flag = 'X'.
    i_dynpfields-fieldname = 'P_CUST'.
    APPEND i_dynpfields.
    CALL FUNCTION 'DYNP_VALUES_READ'
      EXPORTING
        dyname               = sy-cprog
        dynumb               = '1000'
      TABLES
        dynpfields           = 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.
    READ TABLE i_dynpfields WITH KEY fieldname = 'P_CUST'.
    ws_data-shlpfield = 'ZCUSTOMER'.
    ws_data-valfield = 'G_SIMFIELDS-FIELDNAME'.
    ws_data-value = i_dynpfields-fieldvalue.
    APPEND ws_data TO i_data.
    ws_data-shlpfield = 'ZOFFRCONT'.
    ws_data-valfield = 'P_CONT'.
    ws_data-f4field =     'X'.
    APPEND ws_data TO i_data.
    LOOP AT shlp_tab.
      IF ws_rec = 'X'.
        shlp_tab-interface[] = i_data[].
        APPEND shlp_tab.
        ws_rec = ' '.
      ENDIF.
    ENDLOOP.
    DELETE shlp_tab INDEX 1.
    ws_flag = ' '.
  ENDIF.
ENDFUNCTION.
Regards,
Prakash.