How to provide F4 help in a selection screen

Hi..
How to provide F4 help in a selection screen for a particular field using
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'.
Thanks in Advance.
Regards
Raj Kumar

AT SELECTION SCREEN
at selection-screen on value-request for s_contr-low.
Get contract (low value)
perform get_contract changing s_contr-low.
form get_contract changing p_contr .
types: begin of ty_ycontract,
           ycontract type xchcontract-ycontract,
           lifnr     type xchcontract-lifnr,
           ycontdate type xchcontract-ycontdate,
           ycont_end_dt type xchcontract-ycont_end_dt ,
         end of ty_ycontract.
data: ds_returntab   type ddshretval,
        dt_returntab   type table of ddshretval,
        dl_fieldname     type dfies-fieldname.
data: dt_ycontract type table of ty_ycontract.
select ycontract lifnr ycontdate ycont_end_dt
    from xchcontract
    into table dt_ycontract.
if sy-subrc = 0.
    clear dl_fieldname.
    dl_fieldname = 'YCONTRACT'.
    call function 'F4IF_INT_TABLE_VALUE_REQUEST'
      exporting
        retfield        = dl_fieldname
        value_org       = 'S'
      tables
        value_tab       = dt_ycontract
        return_tab      = dt_returntab
      exceptions
        parameter_error = 1
        no_values_found = 2
        others          = 3.
    if sy-subrc = 0.
      clear ds_returntab.
      read table dt_returntab into ds_returntab index 1.
      if sy-subrc = 0.
        p_contr = ds_returntab-fieldval.
      endif.
    endif.
endif.
endform.

Similar Messages

How to assign F1 help to the selection screen fields

Hi All,
I have a requirement.I have to create a button named "HELP" at the side of Execute button in the selection screen.If I place my cursor in the selection screen field and I press that "HELP" button, I should get the Documentation help for that field.
Please suggest me on this.
Thanks in advance.
Sreeharsha Singuru

Hi sreeharsha,
here a short example:
TABLES: MARA.
TABLES: SSCRFIELDS.
TYPE-POOLS: ICON.
DATA: CURSORFIELD(20).
SELECTION-SCREEN: BEGIN OF LINE.
SELECT-OPTIONS: S_MATNR FOR MARA-MATNR.
SELECTION-SCREEN: END   OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECT-OPTIONS: S_MTART FOR MARA-MTART.
SELECTION-SCREEN: END   OF LINE.
SELECTION-SCREEN: SKIP 3.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: PUSHBUTTON (10) PB01 USER-COMMAND HELP.
SELECTION-SCREEN: END   OF LINE.
AT SELECTION-SCREEN.
GET CURSOR FIELD CURSORFIELD.
CASE SSCRFIELDS.
    WHEN 'HELP'.
      CASE CURSORFIELD.
        WHEN 'S_MATNR-LOW'.
          CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT' "Make your own Text
            EXPORTING
              TITEL        = 'Information'
              TEXTLINE1    = 'Information for field:'
              TEXTLINE2    = 'S_MATNR-LOW'
              START_COLUMN = 10
              START_ROW    = 15.
        WHEN 'S_MTART-LOW'.
          CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT' "Make your own Text
            EXPORTING
              TITEL        = 'Information'
              TEXTLINE1    = 'Information for field:'
              TEXTLINE2    = 'S_MTART-LOW'
              START_COLUMN = 10
              START_ROW    = 15.
      ENDCASE.
ENDCASE.
INITIALIZATION.
CONCATENATE ICON_INFORMATION 'Help' INTO PB01.
START-OF-SELECTION.
SELECT * FROM MARA WHERE MATNR IN S_MATNR.
    WRITE: / MARA-MATNR.
ENDSELECT.
Hope it helps.
Regards, Dieter

How to provide f4 help

Hi guys,
here i amproviding some sample code.
requirement is uploading data from xl to internal table.
problem is how to provide f4 help for file name.
using cl_gui_frontend_services.
type mismatching is occuring.
DATA: wa_filename1 TYPE file_table,        "for method
       wa_filename2 TYPE rlgrap-filename,   "for function module
       wa_data TYPE alsmex_tabline.
DATA:    t_data TYPE STANDARD TABLE OF alsmex_tabline.
DATA:      file_count TYPE i.
selection-screen begin of block bk1 with frame title text-001.
parameters:p_fname type char10.
selection-screen end of block bk1.
at selection-screen on value-request for p_fname.
Method to get filename
CALL METHOD cl_gui_frontend_services=>file_open_dialog
EXPORTING
    window_title            = 'Excel file name'
CHANGING
    file_table              = P_fname
    rc                      = file_count
EXCEPTIONS
    file_open_dialog_failed = 1
    cntl_error              = 2
    error_no_gui            = 3
    not_supported_by_gui    = 4
    OTHERS                  = 5.
start-of-selection.
LOOP AT p_fname INTO wa_filename1.
wa_filename2 = wa_filename1.
To upload excel to internal table
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      filename                = wa_filename2
      i_begin_col             = 1
      i_begin_row             = 1
      i_end_col               = 2
      i_end_row               = 88
    TABLES
      intern                  = t_data
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.
*ENDLOOP.
u can expect more rewards.

my code sample:
REPORT zcobkk01.
* INCLUDES                                                             *
INCLUDE zcobkk01top.
* SELECTION-SCREEN                                               *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETER p_file TYPE string OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
* AT SELECTION-SCREEN                                                          *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CLEAR it_file.
CLEAR v_rc.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title            = 'title here'
      initial_directory       = 'C:'
    CHANGING
      file_table              = it_file
      rc                      = v_rc
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      error_no_gui            = 3
      not_supported_by_gui    = 4
      OTHERS                  = 5.
IF sy-subrc EQ 0.
    READ TABLE it_file INDEX 1 INTO p_file.
ENDIF.
* START-OF-SELECTION                                                   *
START-OF-SELECTION.
PERFORM load_file USING p_file
                         CHANGING it_return.
IF it_return IS NOT INITIAL.
    PERFORM validate_data USING it_return
                          CHANGING it_input
                                    it_err.
    PERFORM display_err CHANGING it_err.
ELSE.
    WRITE: 'Error'.
ENDIF.

How to Provide search Help for files on Application Server

Hi Guys,
 Can anyone tell me How to Provide search Help for files on Application Server. I have put a file name on selection screen. I want to give search help for files on application server.
Thanks & Regards.
Harish.

Hi Harish,
Use the following code,
tables sxpgcotabe.
data: lt_execprot LIKE btcxpm OCCURS 0 WITH HEADER LINE,
 w_filepath(60) TYPE c, --> length depending on your Directory path.
SELECT SINGLE *
 FROM sxpgcotabe
 WHERE name = 'LIST_DB2DUMP'
 AND opsystem = sy-opsys.
IF sy-subrc <> 0.
 SELECT SINGLE *
 FROM sxpgcotabe
 WHERE name = 'LIST_DB2DUMP'
 AND opsystem = 'UNIX'.
 IF sy-subrc <> 0.
 MESSAGE e000 WITH 'External operating system command '
 'LIST_DB2DUMP not found'.
 ENDIF.
ENDIF.
sxpgcotabe-parameters = p_filepath. --> provide the directory path.
CALL FUNCTION 'SXPG_COMMAND_EXECUTE'
 EXPORTING
 commandname = sxpgcotabe-name
 additional_parameters = sxpgcotabe-parameters
 operatingsystem = sxpgcotabe-opsystem
 TABLES
 exec_protocol = lt_execprot
 EXCEPTIONS
 no_permission = 1
 command_not_found = 2
 parameters_too_long = 3
 security_risk = 4
 wrong_check_call_interface = 5
 program_start_error = 6
 program_termination_error = 7
 x_error = 8
 parameter_expected = 9
 too_many_parameters = 10
 illegal_command = 11
 wrong_asynchronous_parameters = 12
 cant_enq_tbtco_entry = 13
 jobcount_generation_error = 14
 OTHERS = 15.
IF sy-subrc <> 0.
 MESSAGE e000 WITH text-e01 p_filepath. "Directory failed
ENDIF.
Loop round the directory list, split each line up into a line table
and get the last data for each line, should be the filename
Then build the dirlist.
REFRESH t_dirlist.
LOOP AT lt_execprot.
 REFRESH t_dirline.
 SPLIT lt_execprot-message AT space INTO TABLE t_dirline.
 DESCRIBE TABLE t_dirline LINES w_nolines.
 READ TABLE t_dirline INDEX w_nolines.
 MOVE t_dirline-data TO t_dirlist-filename.
 APPEND t_dirlist.
ENDLOOP.
Here you will get all the files in the directory mentioned in Application server.
For displaying them as a Search help use the FM '/BMC/ZPOPUP_GET_VALUE'
Pass the Internal table to this FM.
Regards,
Paul.

How to link a search help to a selection screen field

Hi All,
I am using field PKWRG from PA0017 table in selection screen. I need F4 help there as in Tcode PA30 . But this field does not have value table or check table. However, it has a search help attached 'TRV_PKWRG' .
But, I donot know how to assign a search help to a selection screen field. Please help.
Regards,
Nibha

Hello,
Fetch all the data which from the table which you want to show in the search help and pass the value to the FM
F4IF_INT_TABLE_VALUE_REQUEST and the selection-screen event must be
at selection-screen on value request parameter or selection option variable.
BCALV_TEST_FULLSCREEN
BCALV_TEST_FULLSCREEN_CALLS
BCALV_TEST_FULLSCREEN_PRINT
BCALV_TEST_FULLSCREEN_STATUS
BCALV_TEST_GRID
BCALV_TEST_GRID_DRAG_DROP
BCALV_TEST_GRID_EDITABLE
BCALV_TEST_GRID_EVENTS
BCALV_TEST_GRID_INDEX
BCALV_TEST_GRID_TOOLBAR
BCALV_TEST_HIERSEQ_LIST
BCALV_TEST_LIST
BCALV_TEST_LIST_PRINT
BCALV_TEST_LIST_STATUS
BCALV_VERIFY_DTYPES_D0100_F01
BCSMENUF01
BDLCOF10
BDLDVI10
BDLTREDF

Help on a selection screen

I need some help on a selection screen. I have the following:
SELECTION-SCREEN: BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.
PARAMETERS:       p_bldat TYPE bkpf-bldat OBLIGATORY DEFAULT sy-datum,
                  p_budat TYPE bkpf-budat OBLIGATORY DEFAULT sy-datum,
                  p_xref1 TYPE proj-pspid OBLIGATORY,
                  p_bktxt TYPE bkpf-bktxt,
                  p_bukrs TYPE bkpf-bukrs OBLIGATORY DEFAULT '1100',
                  p_waers TYPE bkpf-waers OBLIGATORY DEFAULT 'USD'.
SELECTION-SCREEN: END OF BLOCK a1.
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-002.
PARAMETERS:       p_lifnr TYPE ekko-lifnr OBLIGATORY,
                  p_ebeln TYPE ekko-ebeln OBLIGATORY.
SELECTION-SCREEN: END OF BLOCK b1.
SELECTION-SCREEN: BEGIN OF BLOCK c1 WITH FRAME TITLE text-003.
PARAMETERS:       p_amt TYPE wrbtr,
                  p_ret TYPE wrbtr.
SELECTION-SCREEN: END OF BLOCK c1.
SELECTION-SCREEN: BEGIN OF BLOCK d1 WITH FRAME TITLE text-004.
PARAMETERS:       p_cmode TYPE callmode DEFAULT 'N' OBLIGATORY.
SELECTION-SCREEN: END OF BLOCK d1.
AT SELECTION-SCREEN ON p_ebeln.
SELECT SINGLE kwert INTO p_ret FROM zretention WHERE ebeln = p_ebeln AND ebelp = '00000' AND TYPE = 'C'.
IF NOT sy-subrc = 0 OR p_ret IS INITIAL.
    CONCATENATE 'Purchase Order' p_ebeln 'does not have any retention available for release!' INTO d_string.
    MESSAGE d_string TYPE 'E'.
ENDIF.
AT SELECTION-SCREEN.
check p_ret is not INITIAL.
IF p_amt > p_ret.
    MESSAGE 'Amt. To Be Released is more than the remaining retention. Please check your input.' TYPE 'E'.
ELSEIF p_amt IS INITIAL.
    MESSAGE 'Amt. To Be Released is required. Please check your input.' TYPE 'E'.
ENDIF.
What I want is for the parameter p_ret to be populated when the user inputs a PO (p_ebeln). This seems to work except I want this to be brought in without running through the other checks (AT SELECTION-SCREEN). In order to bring in p_ret I am having to hit ENTER which will trigger the event AT SELECTION-SCREEN.
How can I bring in p_ret without triggering the event AT SELECTION-SCREEN?
Regards,
Davis

In this case.
If you don't want at selection-screen to be triggered on hitting enter, you can give an if condition in at selection-screen.
tables : sscrfields.
AT SELECTION-SCREEN ON p_ebeln.
SELECT SINGLE kwert INTO p_ret FROM zretention WHERE ebeln = p_ebeln AND ebelp = '00000' AND TYPE = 'C'.
IF NOT sy-subrc = 0 OR p_ret IS INITIAL.
    CONCATENATE 'Purchase Order' p_ebeln 'does not have any retention available for release!' INTO d_string.
   clear sscrfield-ucomm.
    MESSAGE d_string TYPE 'E'.
ENDIF.
AT SELECTION-SCREEN.
if sscrfields-ucomm = 'ONLI'.
check p_ret is not INITIAL.
IF p_amt > p_ret.
    MESSAGE 'Amt. To Be Released is more than the remaining retention. Please check your input.' TYPE 'E'.
ELSEIF p_amt IS INITIAL.
    MESSAGE 'Amt. To Be Released is required. Please check your input.' TYPE 'E'.
ENDIF.
endif.
The code in at selection-screen is executed only when user presses F8. on pressing 'Enter' it will not be executed.
Hope this helps you.
Regards,
Siddarth

Issue In Providing 255 Charcters From The Selection Screen Select-Option

Dear Guru,
I am searching for table field with having length = 255 character.
which i want to use in select-option for proving data from the selection screen.
I have found the table myhlp and it associated field allvals which is having length = 255.
I am using it as below in my selection screen for the value to be provided 255 character long.
SELECTION-SCREEN : BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
SELECT-OPTIONS   : s_mlbody FOR myhlp-allvals NO INTERVALS.
SELECTION-SCREEN : END OF BLOCK b3.
Now when i am going for the multiple selection option --> It is providing me the Multiple selection popup and giving me the provision of provide multiple line .
But the issue is that --> For a particular single value line in the popup i am able to enter only 45 charcters not 255 character.
But i need to put 255 charcter for particular line in a single value..
Please give me some guideline how resolve this or any other alternative way of reading the 255 charcter from the selection screen
Thanks & regards
Saifur Rahaman

Hi,
     As said by A@s selction screen with table control will be a good option.
design a custom screen with SUBSCREEN as screeen attribute using tcode se51.
For table control sample - go through Tcode ABAPDOCU - abap user dialogs-screens-complex screen- table control
Try Following,
REPORT Zsample .
controls: tc type tableview using screen 200.
parameters: p_user type myhlp-username.
data: begin of itab occurs 50,
      field1(255) type c,
      end of itab.
data: i_out type standard table of myhlp.
SELECTION-SCREEN BEGIN OF TABBED BLOCK MAX FOR 22 LINES.
SELECTION-SCREEN TAB (25) TABS1 USER-COMMAND UCOMM1
         DEFAULT SCREEN 200.
SELECTION-SCREEN END OF BLOCK MAX.
start-of-selection.
select * from myhlp into table i_out for all entries in itab
          where username eq p_user
                and allvals = itab-field1.
MODULE READ_ITAB INPUT.
insert itab index tc-current_line.
ENDMODULE.                 " READ_ITAB INPUT

How to create Option Boxes IN A SELECTION SCREEN

How to create Option Boxes IN A SELECTION SCREEN.
Thanks!

Hi Rajesh,
The following explanation gives clear picture of what is mean of check box and radio button with coding.....................
CHECK BOX :
AS CHECKBOX [USER-COMMAND fcode]
Effect:
This addition specifies that the input field in the first position of the selection screen is displayed as a checkbox, with the corresponding description next to it on the right. The checkbox is selected if the value of para is "X" or r "x". Otherwise, it is not selected.
The parameter must be created with the type c and length 1. An explicit length len is not permitted. If the addition TYPE is used, this can only be followed by the generic type c or a non-generic data type of type c and length 1.
The addition USER-COMMAND can be used to assign a function code fcode to the parameter. The function code fcode must be directly specified and may have a maximum length of 20 characters. To evaluate the function code, an interface work area of the structure SSCRFIELDS from the ABAP Dictionary must be declared using the statement TABLES. When the user selects the checkbox on the selection screen, the runtime environment triggers the event AT SELECTION-SCREEN and transfers the function code fcode to the component ucomm of the interface work area sscrfields.
Notes
If the TYPE addition is used to make a reference to a data type in the ABAP Dictionary of type CHAR and length 1, and for which t the valid values in the domain are defined as "X" and " ", the parameter is automatically displayed as a checkbox on the selection screen.
If the addition USER-COMMAND is specified without the addition AS CHECKBOX, and the parameter is of type c with length 1, it is also displayed as a checkbox.
The addition USER-COMMAND can, for example, be used for screen modifications with the addition MODIF ID (see example).
Coding :
PARAMETERS show_all AS CHECKBOX USER-COMMAND flag.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS: p1(10) TYPE c,
 p2(10) TYPE c,
 p3(10) TYPE c.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.
PARAMETERS: p4(10) TYPE c MODIF ID bl2,
 p5(10) TYPE c MODIF ID bl2,
 p6(10) TYPE c MODIF ID bl2.
SELECTION-SCREEN END OF BLOCK b2.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
 IF show_all <> 'X' AND
 screen-group1 = 'BL2'.
 screen-active = '0'.
 ENDIF.
 MODIFY SCREEN.
ENDLOOP.
RADIO BUTTON COMMAND :
RADIOBUTTON GROUP group [USER-COMMAND fcode]
Effect:
This addition specifies that the input field is displayed as a radio button in the first position on the selection screen, and the output field is displayed next to it on the right. The radio button is selected if the value of para is "X" or "x". Otherwise, it is not selected.
group is used to define the radio button group for the parameter. The name group is entered directly as a character string with a maximum of 4 characters. Within a selection screen, there must be a minimum of two parameters in the same radio button group. There cannot be more than one radio button group with the same name in one program, even if they are defined in different selection screens.
The parameter must be specified with the type c and length 1. Explicit length specification using len is not permitted. If the addition TYPE is used, it can only be followed by the generic type c or a non-generic data type of type c and length 1.
In a radio button group, only one parameter can be defined with the addition DEFAULT, and the specified value must be "X". By default, the first parameter in a radio button group is set to the value "X", and the rest are set to " ".
The addition USER-COMMAND can be used to assign a function code fcode to the first parameter in a radio button group. The function code fcode must be specified directly, and have a maximum length of 20 characters. To evaluate the function code, an interface work area of the structure SSCRFIELDS from the ABAP Dictionary must be declared using the statement TABLES. When the user selects any radio button of the radio button group on the selection screen, the runtime environment triggers the event AT SELECTION-SCREEN and transfers the function code fcode to the component ucomm of the interface work area sscrfields.
Note:
It is recommended to define the radio buttons of a radio button group directly underneath each other. If the selection screen also contains other elements, it is recommended to define each radio button group within a block surrounded by a frame.
CODING :
tables : mkpf,mseg,ekko.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETER : P_WERKS LIKE MARC-WERKS MODIF ID S1,
 c as checkbox.
SELECT-OPTIONS : S_EBELN FOR EKKO-EBELN NO INTERVALS MODIF ID S2.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-004.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : R1 RADIOBUTTON GROUP G1 DEFAULT 'X' USER-COMMAND UC1.
SELECTION-SCREEN COMMENT 5(20) TEXT-002 FOR FIELD R1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : R2 RADIOBUTTON GROUP G1.
SELECTION-SCREEN COMMENT 5(20) TEXT-003 FOR FIELD R2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B2.
write :/ p_werks,
 / s_ebeln.
AT SELECTION-SCREEN OUTPUT .
LOOP AT SCREEN .
IF R1 EQ 'X' AND SCREEN-GROUP1 EQ 'S2'.
SCREEN-INPUT = 0.
SCREEN-REQUIRED = 1.
clear s_ebeln[].
clear p_werks.
MODIFY SCREEN.
ENDIF.
IF R2 EQ 'X' AND SCREEN-GROUP1 EQ 'S1'.
SCREEN-INPUT = 0.
SCREEN-REQUIRED = 1.
clear s_ebeln[].
clear p_werks.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
Let me knwo if any doubts.
Reward with points if it helpful
Regards,
Vijay

How can we use list box on selection screen

hi, howe can we use list box on selection screen and how can we populate the dat ainto the list box and how can we retrive data based on list box from ther database.
thanks in advance
raju

Use the VRM_SET_VALUES function module.
DATA: list TYPE vrm_values,
 value LIKE LINE OF list.
 AT SELECTION SCREEN OUTPUT
AT SELECTION-SCREEN OUTPUT.
name = 'P_OBJECT'.
CLEAR list.
REFRESH list.
CLEAR value.
value-key = '1'.
value-text = 'Development Class'.
APPEND value TO list.
CLEAR value.
value-key = '2'.
value-text = 'Program'.
APPEND value TO list.
CLEAR value.
value-key = '3'.
value-text = 'Function Module'.
APPEND value TO list.
CLEAR value.
value-key = '4'.
value-text = 'Database Table'.
APPEND value TO list.
CLEAR value.
value-key = '5'.
value-text = 'Structure'.
APPEND value TO list.
CLEAR value.
value-key = '6'.
value-text = 'View'.
APPEND value TO list.
CLEAR value.
value-key = '7'.
value-text = 'Data Element'.
APPEND value TO list.
CLEAR value.
value-key = '8'.
value-text = 'Table Type'.
APPEND value TO list.
CLEAR value.
value-key = '9'.
value-text = 'Class / Interface'.
APPEND value TO list.
CLEAR value.
value-key = '10'.
value-text = 'Type Group'.
APPEND value TO list.
CLEAR value.
value-key = '11'.
value-text = 'Domain'.
APPEND value TO list.
CLEAR value.
value-key = '12'.
value-text = 'Search Help'.
APPEND value TO list.
CLEAR value.
value-key = '13'.
value-text = 'Lock Object'.
APPEND value TO list.
CALL FUNCTION 'VRM_SET_VALUES'
 EXPORTING
 id = name
 values = list
 EXCEPTIONS
 id_illegal_name = 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.

F4 Help for the selection screen field

Hi Gurus,
I have to display F4 help for a selection screen field. i am using following code:
    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
         EXPORTING
              retfield        = 'CODE'
              dynpprog        = lw_repid
              dynpnr          = sy-dynnr
              VALUE_ORG       = 'S'
         TABLES
              value_tab       = gi_text
             field_tab       = li_fields_tab
              return_tab      = pi_return_tab
         EXCEPTIONS
              parameter_error = 1
              no_values_found = 2
              OTHERS          = 3.
My internal table gi_emp has two fields CODE & TEXT. When i select 1 particular value, it returns the CODE value in the pi_return_tab table.
But my requirement is i have to capture the corresponding TEXT value for the Returned CODE. Ex: following is the F4 help being displayed: -
001    test
001    test1
but is i select code 001(First Value), i also need to capture it's corresponding Text value. In return table pi_return_tab i have only Code value.
Please help me out.
Note: Based on return code i can't search into the internal table gi_code, because as shown in the example, code has multiple text.

Sachin,
I think this is what you need. The following code will return the key and the text (OR any other columns), if both columns are in the selection screen the selected values (both columns) will also be passed to the corresponding parameters. If you only need the text to be in the return table and not passed to the selection screen then set the parameter for text with NO-DISPLAY option.
REPORT zktest01 .
DATA :
BEGIN OF value_tab OCCURS 0,
    field LIKE e070-trkorr,
    text   LIKE e07t-as4text,
END OF value_tab.
DATA: t_fldtab LIKE dfies OCCURS 0 WITH HEADER LINE,
      t_rettab LIKE ddshretval OCCURS 0 WITH HEADER LINE,
      t_dynmap LIKE dselc OCCURS 0 WITH HEADER LINE.
PARAMETERS : p_field LIKE value_tab-field,
             p_text   LIKE value_tab-text. "NO-DISPLAY.
INITIALIZATION.
t_fldtab-tabname   = 'VALUE_TAB'.
t_fldtab-fieldname = 'FIELD'.
t_fldtab-langu     = 'E'.
t_fldtab-position = 1.
t_fldtab-offset    = 0.
t_fldtab-fieldtext = 'Key'.
t_fldtab-reptext   = 'Key'.
t_fldtab-leng      = 20.
t_fldtab-intlen    = 20.
t_fldtab-outputlen = 20.
t_fldtab-datatype = 'CHAR'.
t_fldtab-inttype   = 'C'.
t_fldtab-headlen   = 20.
t_fldtab-keyflag   = 'X'.
t_fldtab-lowercase = ' '.
APPEND t_fldtab.
t_fldtab-tabname   = 'VALUE_TAB'.
t_fldtab-fieldname = 'TEXT'.
t_fldtab-position = 2.
t_fldtab-offset    = 20.
t_fldtab-fieldtext = 'Text'.
t_fldtab-reptext   = 'Text'.
t_fldtab-leng      = 60.
t_fldtab-intlen    = 60.
t_fldtab-outputlen = 60.
t_fldtab-headlen   = 60.
t_fldtab-keyflag   = ' '.
t_fldtab-lowercase = ' '.
APPEND t_fldtab.
value_tab-field = '101'.
value_tab-text = 'dddd'.
APPEND value_tab.
value_tab-field = '202'.
value_tab-text = 'aaaa'.
APPEND value_tab.
t_dynmap-fldname = 'FIELD'.
t_dynmap-dyfldname = 'P_FIELD'.
APPEND t_dynmap.
t_dynmap-fldname = 'TEXT'.
t_dynmap-dyfldname = 'P_TEXT'.
APPEND t_dynmap.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_field.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
       EXPORTING
            retfield        = 'FIELD'
            dynpprog        = 'ZKTEST01'
            dynpnr          = '1000'
            dynprofield     = 'P_FIELD'
            value_org       = 'S'
       TABLES
            field_tab       = t_fldtab
            value_tab       = value_tab
            return_tab      = t_rettab
            dynpfld_mapping = t_dynmap
       EXCEPTIONS
            parameter_error = 1
            no_values_found = 2
            OTHERS          = 3.
IF sy-subrc EQ 0.
ENDIF.
START-OF-SELECTION.
Jeffrey Satriadi

How to pass a default value in selection screen of logical database pnpce

Dear All,
Can any one tell me how to pass a default value in selection screen of logical database pnpce .
Regards
Rakesh Singh

Hi Rakesh,
Go to SE36 (logical database Builder).First enter PNPCE in Logical Database and press documentation,here you will get the details of exactly what is PNPCE and how it works.After that select selections in subojects in se36 only and enter display ,there you have the include from where you acn get the idea.
Regards,
Rahul

Error in search help button at selection-screen

hi all,
i have a small issue.
i have created a seach help button in selection screen .
my code is as bellow.
TYPES: BEGIN OF ty_ZSD_SNID,
 KUNNR TYPE KUNNR,
 BAREA TYPE WERKS_D,
 END OF ty_ZSD_SNID.
DATA : it_z TYPE STANDARD TABLE OF ty_ZSD_SNID.
selection-screen : begin of block b with frame title text-000.
select-options : skunnr for zsd_snid-kunnr.
parameters : pbarea like zsd_snid-barea obligatory.
selection-screen : end of block b.
INITIALIZATION.
SELECT KUNNR BAREA FROM ZSD_SNID INTO TABLE it_z.
SORT it_z BY BAREA KUNNR.
DELETE ADJACENT DUPLICATES FROM it_z COMPARING BAREA KUNNR.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR SKUNNR-low.
IF it_z[] IS NOT INITIAL.
 CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 DDIC_STRUCTURE = ' '
 retfield = 'KUNNR' " data base table field name
 PVALKEY = ' '
 dynpprog = sy-repid " program name
 dynpnr = sy-dynnr "screen name
 dynprofield = 'SKUNNR-LOW' " layot field name
 STEPL = 0
 WINDOW_TITLE =
 VALUE = ' '
 value_org = 'S'
 MULTIPLE_CHOICE = ' '
 DISPLAY = ' '
 CALLBACK_PROGRAM = ' '
 CALLBACK_FORM = ' '
 MARK_TAB =
 IMPORTING
 USER_RESET =
 TABLES
 value_tab = it_z[] " internal talble name
 FIELD_TAB =
 RETURN_TAB =
 DYNPFLD_MAPPING =
 EXCEPTIONS
 PARAMETER_ERROR = 1
 NO_VALUES_FOUND = 2
 OTHERS = 3
 IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.
ELSE.
 MESSAGE E000(zsdsn).
ENDIF.
my issue is , its working properly if records are there in my z table.
if no records are there in the table then if i do comment the last message statement then its working.
if i do uncomment like the above code, then its dumming.
what i should i do ??
kind regards

closed because of no answer.

How to Improve the performance in Variable Selection Screen.

Hi,
In Query Level we have Variable " User entry Defalt Valu". User want select particular value when he press "F4" it's take hours time how to improve the performance in Varaible Selection Screen.
Thanks in Advance.
Regards,
Venkat.

Dear Venkat.
You please try the following steps:
1. Say the InfoObject is 0EMPLOYEE against which you have created the variable, which user is trying to select value against, when they execute the report.
2. Goto RSA1-> InfoObject tab-> Select InfoObject 0EMPLOYEE.
3. Selcet the following options:
Query Execution Filter Val. Selectn - 'Only Posted Value for Navigation'
Filter Value Repr. At Query Exec. - 'Selector Box Without Values'
Please let me know if there is any more issue. Feel free to raise further concern
Thnx,
Sukdev K

F4 help in the selection screen from a int table

I collected the datas from the function module. and the internal table is populated.
the internal table contains manny fields.
among these fields i need to take only one field and this field value to be used for F4 help in the selection screen ( not a dynpro)
for example : in the selection screen
I have to select the PO.
based on the user i have filtered the PO. (determined dynamically by using the user name this i have done it)
then i have to assign the PO the selection screen.
which FM will be better to use for this type of scenario and help me out with some example codes particularly for my req
Thanks

Hi ,
use the FM 'F4IF_INT_TABLE_VALUE_REQUEST'
This example is for search help for material type .
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_mtart-low .
select all material types you want to display in search help into table i_mtart.
PERFORM select_material_type.
PERFORM help_material_type.
*& Form help_material_type
text
--> p1 text
<-- p2 text
FORM help_material_type .
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
DDIC_STRUCTURE = ' '
retfield = 'MTART'
PVALKEY = ' '
dynpprog = sy-cprog
dynpnr = sy-dynnr
dynprofield = 'S_MTART-LOW'
STEPL = 0
WINDOW_TITLE =
VALUE = ' '
value_org = 'S'
MULTIPLE_CHOICE = ' '
DISPLAY = ' '
CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '
MARK_TAB =
IMPORTING
USER_RESET =
TABLES
value_tab = i_mtart
FIELD_TAB =
RETURN_TAB =
DYNPFLD_MAPPING =
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3
IF sy-subrc 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " help_material_type
Regards,
Balaji.

Can we create serach help for a selection screen field

Can we create serach help for a selection screen field with out creating searchhelp object.
I mean is it possible to create serchelp in the program itself with some specific values i want to give.
E.g say we can define any internal table and fill it with values and using that into selection screen fields
Regards
Mave

AT SELECTION-SCREEN ON VALUE-REQUEST FOR paymeth.
PERFORM PAYMENT_HELP.
FORM PAYMENT_HELP.
DATA: begin of DESCR_TAB occurs 0,
        DESCR LIKE BKPF-BKTXT,
        END OF DESCR_TAB.
DATA: gd_repid like sy-repid.
gd_repid = sy-repid.
DESCR_TAB-DESCR = 'aaaaa'.
append DESCR_TAB.
DESCR_TAB-DESCR = 'bbbbb'.
append DESCR_TAB.
DESCR_TAB-DESCR = 'ccccc'.
append DESCR_TAB.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
       EXPORTING
            retfield    = 'DESCR'
            DYNPPROG    = gd_repid
            DYNPNR      = '1000'
            DYNPROFIELD = 'paymeth'
            VALUE_ORG   = 'S'
            DISPLAY     = ' '
       TABLES
            value_tab   = DESCR_TAB.
endform.
Svetlin

How to provide F4 help in a selection screen

Similar Messages

Maybe you are looking for