Input Help in Dialog Modules

Question

HI,
I have to provide F4 help for many fields that are present in tabstrip control(with 5 tabs). I had set the option "Possible entries" in the layout. In the flow logic, I created a module for POV. How would I get the screen element name (i.e., the field) from which F4 was pressed? While debugging, I dont get the field name in SYST and SCREEN table. For each tab, I am thinking of creating of only one module in POV so that I can avoid hardcoding the field name.
You can use DEMO_DYNPRO_F4_HELP_MODULE report in IDES if required.

Answer 1

Try this out it worked for me,
Will post in in 3 halves.
1.     First half
MODULE help_zterm INPUT.  "In POV
  PERFORM help_zterm.
ENDMODULE.                 " HELP_ZTERM  INPUT
FORM help_zterm .
  DATA: BEGIN OF svbap OCCURS 12,
          tabix LIKE sy-tabix,
        END OF svbap.
  DATA:   BEGIN OF xvbap OCCURS 125.
          INCLUDE STRUCTURE vbapvb.
  DATA:   END OF xvbap.
  DATA: da_display LIKE ddrefstruc-bool.
  DATA: da_value LIKE vbkd-zterm.
  DATA: da_dynpro_program  LIKE sy-repid.
  DATA: da_dynpro_number   LIKE sy-dynnr.
  DATA: BEGIN OF dynpfield_zterm OCCURS 1.
          INCLUDE STRUCTURE dynpread.
  DATA: END OF dynpfield_zterm.
  da_dynpro_program  = sy-repid.
  da_dynpro_number   = sy-dynnr.
  CLEAR dynpfield_zterm.
  REFRESH dynpfield_zterm.
  MOVE 'ZDEALHD-ZTERM' TO dynpfield_zterm-fieldname.  u201DZDEALHD-ZTERM u2013 screen field name
  APPEND dynpfield_zterm.
  CALL FUNCTION 'DYNP_VALUES_READ'     
    EXPORTING
      dyname     = da_dynpro_program
      dynumb     = da_dynpro_number
    TABLES
      dynpfields = dynpfield_zterm
    EXCEPTIONS
      OTHERS     = 11.
  IF sy-subrc <> 0.
    EXIT.
  ELSE.
    READ TABLE dynpfield_zterm WITH KEY fieldname =
                                dynpfield_zterm-fieldname.
  ENDIF.
  LOOP AT SCREEN.
    CHECK screen-name = 'ZDEALHD-ZTERM' AND
          screen-input = '0'.
   DA_DISPLAY = CHARX.
  ENDLOOP.
  IF dynpfield_zterm-fieldinp EQ space.
   DA_DISPLAY = CHARX.
  ENDIF.
Call SD Sales BAdI
  DATA:  da_line    LIKE sy-tabix,
         da_core_inactive TYPE xfeld,
         wa_svbap LIKE svbap,
         wa_xvbap LIKE xvbap.
Determining Cursor
  CLEAR wa_xvbap.
  GET CURSOR LINE da_line.
  IF da_line GE 1.
    READ TABLE svbap INTO wa_svbap INDEX da_line.
    IF sy-subrc = 0.
      READ TABLE xvbap INTO wa_xvbap INDEX wa_svbap-tabix.
    ENDIF.
  ENDIF.
Will send the second one and third one  in few seconds.
Edited by: Abhijit Borkar on Jan 7, 2010 9:11 AM