Screen field f4 help with a table of 5*5 as a popup

Question

hi all,
I have screen-field (location id) when the user press f4 a table with 5 rows and 5 columns should popup. When I select any of the cell in the table that value to be taken as input for the screen-field.
how to solve this requirement?

Answer 1

Hi uday
In the following code project id, Object id and object name will display in the F4 screen but only object id will be placed in the screen field.
Constants:
  c_objectid         TYPE dfies-fieldname
                    VALUE 'OID',       " Object ID for F4 help
  c_fieldoid        TYPE  help_info-dynprofld
                    VALUE 'P_OID',
                                       " To hold fieldname of object ID
  c_char_s(1)        TYPE c
                    VALUE 'S'.         " Approved status - Saved
* Field-string for it_values............................................
DATA:
  BEGIN OF fs_value,
    pid   TYPE zcl_prjid,              " Project ID
    oid   TYPE zcl_objid,              " Object ID
    oname TYPE zcl_objname,            " Object description
  END OF fs_value.
Data:
  it_values    LIKE STANDARD TABLE OF fs_value,
                                       " Table for object ID F4 help
PARAMETERS:
p_oid TYPE zcl_objects-oid.
at selection-screen on value-request for P_OID.
PERFORM f4help_objectid.
* FORM F4HELP_OBJECTID                                                 *
* This subroutine is used for F4help in object ID i.e. to get          *
* corresponding object ID based on the project ID entered.             *
* There are no interface parameters to be passed to this subroutine.   *
FORM f4help_objectid.
  GET CURSOR LINE w_lineno.
  fs_sc_val-fieldname = 'FS_TIMESHEET-PID'.
  fs_sc_val-stepl     =  w_lineno.
  APPEND fs_sc_val TO it_sc_val.
  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = sy-repid
      dynumb               = sy-dynnr
    TABLES
      dynpfields           = it_sc_val
    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 EQ 0.
    READ TABLE it_sc_val INTO fs_field
          WITH KEY fieldname = c_fieldname.
  ENDIF.                               " IF sy-subrc EQ 0
  SELECT  projectid                    " Project ID
          objectid                     " Object ID
          objectname                   " Object Name
    FROM  zcl_objects
    INTO  TABLE it_values
   WHERE  projectid EQ fs_field-fieldvalue.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield    = c_objectid   "* Here c_objectid = 'OID' and here OID is the field name in field string*
      dynpprog    = sy-repid
      dynpnr      = sy-dynnr
      dynprofield = c_fieldoid
      value_org   = c_char_s
    TABLES
      value_tab   = it_values.
  CLEAR fs_timesheet-pid.
  REFRESH it_values.
  REFRESH it_sc_val.
ENDFORM.                               " F4HELP_OBJECTID
Regards,
Mahi.
Edited by: Maheswari Chegu on Nov 5, 2008 7:57 AM