Data entry in module pool screen

Question

Hi all,
I have created a module pool program. on the screen of the program, i have entered a dictionary field KNA1-KUNNR. On the second field on the screen, i have coded a search help to generate the F4 help based on the entries in the first field. Now the problem is that the entry made in the first screen is not available in the code, i.e. when i have entered a value in the first screen, in the debugger it shows the field as empty. i tried declaring a variable of the same name as the field, but it gives me error that the variable is already declared. any help will be appreciated.
regards,
hamza

Answer 1

Hi,
You can write like:
  DATA :  TB_DYNPFIELDS LIKE DYNPREAD OCCURS 0 WITH HEADER LINE.   "internal table declared
  CLEAR:   TB_DYNPFIELDS.
  REFRESH: TB_DYNPFIELDS.
  MOVE 'ZTG_EMP-HLTH_PLAN' TO TB_DYNPFIELDS-FIELDNAME.  " fieldname whose value needs to be catched dynamically
APPEND TB_DYNPFIELDS.
  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      DYNAME                               = 'SAPMZTG01'   *"program name *
      DYNUMB                               = '1010'               "screen number
  TRANSLATE_TO_UPPER                   = ' '
  REQUEST                              = ' '
  PERFORM_CONVERSION_EXITS             = ' '
  PERFORM_INPUT_CONVERSION             = ' '
  DETERMINE_LOOP_INDEX                 = ' '
  START_SEARCH_IN_CURRENT_SCREEN       = ' '
  START_SEARCH_IN_MAIN_SCREEN          = ' '
  START_SEARCH_IN_STACKED_SCREEN       = ' '
  START_SEARCH_ON_SCR_STACKPOS         = ' '
  SEARCH_OWN_SUBSCREENS_FIRST          = ' '
  SEARCHPATH_OF_SUBSCREEN_AREAS        = ' '
    TABLES
      DYNPFIELDS                           = TB_DYNPFIELDS     "internal table to be passed
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 TB_DYNPFIELDS INDEX 1.
  IF SY-SUBRC EQ 0.
    PLAN_ID = TB_DYNPFIELDS-FIELDVALUE.   *"internal table passed in the funcn module has one field as fieldvalue which will catch that fields value dynamically *
  ENDIF.
Hope it helps you
Regrds
Mansi