F4 help for file path in selection screen.

Hi there,
I defined one parameter p_path for file path using RLGRAP-FILENAME. I have not got F4 for this. How to solve this problem, can anybody pls help.
Regards,
Naseer.

Hi,
refer to the following code:
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_pc.
DATA: it_tab TYPE filetable,
          wf_subrc TYPE i.
DATA: wf_pcfile LIKE rlgrap-filename.
DATA: wf_filter TYPE string,
        wf_dir TYPE string,
        wf_title TYPE string,
        wf_ext TYPE string.
* if p_ml = 'X'.                  "Manula Load - PC File
wf_title = text-012.          "Window title
wf_ext = '.TXT'.           "Extension of the file
wf_filter = 'Text Files (*.TXT)|*.TXT'.         "File Type
wf_dir = wf_pcfile.           "Directory
*Adds a GUI-Supported Feature
CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title      = wf_title
      default_extension = wf_ext
      file_filter       = wf_filter
      initial_directory = wf_dir
    CHANGING
      file_table        = it_tab
      rc                = wf_subrc.
Hope this helps.
<REMOVED BY MODERATOR>
Regards,
Sipra
Edited by: Alvaro Tejada Galindo on Jan 31, 2008 9:48 AM

Similar Messages

LSMW :Is it possible to create F4 Help for File path selection

Hi All .,
Please let me know is it possible to create F4 help for file path creation in LSMW .
thanks
Sreenivas

Hi,
I don't get it.
In the step " Specify files" you will have the option to pick your flat file which is on the desktop by pressing F4 .
What is that you exactly want??
Warm regards,
Hari Kiran

F4 help for file path in the Application server

Hi All,
i want to provide the F4 help so as to enable us to give the file path in the application server (AL11). I'm in version 4.0
Regards
Shekhar

Hi
Copy paste the following code and see the result
Here you can see 2 types of open dialogs
1. Directory View
2. File View
Use any one as per your requirement.
DATA : l_filetable TYPE filetable,
       l_rc TYPE i.
DATA: l_folder TYPE string,
      l_file TYPE string.
PARAMETERS: p_folder(100) TYPE c,
            p_file(100) TYPE c.
*Provide a Dialogue box for getting a folder path
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_folder.
CALL METHOD cl_gui_frontend_services=>directory_browse
    EXPORTING
      window_title    = 'Select Folder Path'
      initial_folder = 'D:\'
    CHANGING
      selected_folder = l_folder.
p_folder = l_folder.
*Provide a Dialogue box for getting a file path
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title      = 'Select a Text File'
      initial_directory = l_folder
    CHANGING
      file_table        = l_filetable
      rc                = l_rc.
Reward points generously
Regards
Akshay Chonkar
READ TABLE l_filetable INTO p_file INDEX 1.
CHECK sy-subrc <> 0.

Search help for custom entries in selection screen

Hi Gurus,
I have a requirement of adding four entries as a search help to a selection screen field P_TABLE.I tried using the function module F4IF_INT_ TABLE_VALUE_REQUEST as below.I want to add four entries Revenue,Cost,RIH and Summarised WBS Actual Data for the selection screen field P_TABLE but the problem is the function module is not getting triggered.
See the code below.
REPORT Z_DEL_OHTABLE.
DATA: V_RESPONSES(6),
      V_TEXTS LIKE ALDBOUT,
      V_PROG TYPE SY-REPID,
      V_DYNNR TYPE SY-DYNNR.
DATA: begin of it_openhubs occurs 0,
      v_tabname type c length 30,
      end of it_openhubs.
DATA:
       it_return type STANDARD TABLE OF DDSHRETVAL,
       wa_return like line of it_return,
      l_i_field_tab TYPE STANDARD TABLE OF dfies INITIAL SIZE 0,
      l_i_dynpfld_mapping TYPE STANDARD TABLE OF dselc INITIAL SIZE 0.
SELECTION-SCREEN BEGIN OF BLOCK B0 WITH FRAME TITLE title.
parameters:P_TABLE(30) type c. " USER-COMMAND UPD,
SELECTION-SCREEN END OF BLOCK B0.
V_PROG = SY-REPID.
V_DYNNR = SY-DYNNR.
it_openhubs-v_tabname = 'Cost and Expense'.
      append it_openhubs.
it_openhubs-v_tabname = 'Revenue'.
append it_openhubs.
   it_openhubs-v_tabname = 'Revenue in Hand'.
   append it_openhubs.
    it_openhubs-v_tabname = 'Summarised WBS Actual Data'.
    append it_openhubs.
    CLEAR IT_OPENHUBS.
INITIALIZATION.
title = 'OH TABLE DELETION- DELETE CAREFULLY'.
START-OF-SELECTION.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_TABLE.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
    DDIC_STRUCTURE         = ' '
      RETFIELD               = 'v_tabname'
    PVALKEY                = ' '
     DYNPPROG               = V_PROG
     DYNPNR                 = V_DYNNR
     DYNPROFIELD            = 'P_TABLE'
    STEPL                  = 0
    WINDOW_TITLE           =
    VALUE                  = ' '
     VALUE_ORG              = 'S'
    MULTIPLE_CHOICE        = ' '
    DISPLAY                = ' '
    CALLBACK_PROGRAM       = ' '
    CALLBACK_FORM          = ' '
    MARK_TAB               =
IMPORTING
    USER_RESET             =
    TABLES
      VALUE_TAB              = it_openhubs
    FIELD_TAB              = l_i_field_tab
    RETURN_TAB             = it_return
    DYNPFLD_MAPPING        = l_i_dynpfld_mapping
EXCEPTIONS
    PARAMETER_ERROR        = 1
    NO_VALUES_FOUND        = 2
    OTHERS                 = 3
IF SY-SUBRC <> 0.
    READ TABLE it_return INTO wa_return INDEX 1.
     IF sy-subrc EQ 0.
p_table = wa_return-fieldval.
     endif.
Please help me out.
Thanks,
Srini.
Edited by: Srinivasan Ganapathy on Jan 28, 2010 6:05 AM

Hi ,
Change your code as below:
1. Fill the internal table it_openhubs inside the event "at selection screen on value request".
2. Always follow the below sequence:
    Initialisation
   At selection screen
   Start of selection.
3. The declaration of variable v_tabname is changed from type c length 30 to type char30.
I tried the below code , its working fine.
DATA: V_RESPONSES(6),
      V_TEXTS LIKE ALDBOUT,
      V_PROG TYPE SY-REPID,
      V_DYNNR TYPE SY-DYNNR.
DATA: begin of it_openhubs occurs 0,
      v_tabname type char30, " length 30,
      end of it_openhubs.
DATA:
       it_return type STANDARD TABLE OF DDSHRETVAL,
       wa_return like line of it_return,
      l_i_field_tab TYPE STANDARD TABLE OF dfies INITIAL SIZE 0,
      l_i_dynpfld_mapping TYPE STANDARD TABLE OF dselc INITIAL SIZE 0.
SELECTION-SCREEN BEGIN OF BLOCK B0 WITH FRAME TITLE title.
parameters:P_TABLE(30) type c. " USER-COMMAND UPD,
SELECTION-SCREEN END OF BLOCK B0.
INITIALIZATION.
title = 'OH TABLE DELETION- DELETE CAREFULLY'.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_TABLE.
V_PROG = SY-REPID.
V_DYNNR = SY-DYNNR.
clear IT_OPENHUBS.
it_openhubs-v_tabname = 'Cost and Expense'.
      append it_openhubs.
it_openhubs-v_tabname = 'Revenue'.
append it_openhubs.
   it_openhubs-v_tabname = 'Revenue in Hand'.
   append it_openhubs.
    it_openhubs-v_tabname = 'Summarised WBS Actual Data'.
    append it_openhubs.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'v_tabname'
      dynpprog        = v_prog
      dynpnr          = v_dynnr
      dynprofield     = 'P_TABLE'
      value_org       = 'S'
    TABLES
      value_tab       = it_openhubs
      return_tab      = it_return
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.
IF sy-subrc <> 0.
    READ TABLE it_return INTO wa_return INDEX 1.
    IF sy-subrc EQ 0.
      p_table = wa_return-fieldval.
    ENDIF.
ENDIF

Creating a search help for a field in selection screen

Hi All,
There are 3 fields in the selection screen. They are
    WERKS
    DATE
    MATNR
Enter a value WERKS = 2465.
When I press the drop down menu for MATNR, it should only give the material number available for 2465.
I think, I should create a search help for it.
Kindly help me to create a search help for the material number based on the above condition.
Thanks in advance.

Hi
i am sending you a sample code where i had implemented a search help
for my req you can understand very easyly and write for ur req
<b>reward if usefull for ur req</b>
TYPES : BEGIN OF ST_OBJID_SH,
         OTYPE TYPE HRP1000-OTYPE,
         OBJID TYPE HRP1000-OBJID,
        END OF ST_OBJID_SH.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_OBJID-LOW.
IF S_OBJID IS NOT INITIAL.
    SELECT OTYPE OBJID FROM HRP1000
                 INTO TABLE IT_OBJID_SH
                 WHERE OTYPE = 'D'.
IF SY-SUBRC EQ 0.
SEARCH HELP FOR QUALIFICATION.
    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
      EXPORTING
             DDIC_STRUCTURE         = ' '
        RETFIELD               = 'OBJID'
             PVALKEY                = ' '
       DYNPPROG               = SY-REPID
       DYNPNR                 = SY-DYNNR
       DYNPROFIELD            = 'S_OBJID'
             STEPL                  = 0
             WINDOW_TITLE           =
             VALUE                  = ' '
       VALUE_ORG              = 'S'
             MULTIPLE_CHOICE        = ' '
             DISPLAY                = ' '
             CALLBACK_PROGRAM       = ' '
             CALLBACK_FORM          = ' '
             MARK_TAB               =
           IMPORTING
             USER_RESET             =
      TABLES
        VALUE_TAB              = IT_OBJID_SH
             FIELD_TAB              =
             RETURN_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.
ENDIF.

How to add f4 help for a parameter in selection screen (Report)

hai friends
       I am hving a pblm regarding the F4 help in selection screen for a parameter field ,currenly this parameter field is for personnel number , now in f4 help all the personnel numbers r listing ,i need to include the name of the corresponding personnel numbers along with it ,how do i do that .please give me a help.
thankyou

Hai
you first extract personal number and name into one internal table say itab.
THEN CALL THE FM.
AT SELECTION-SCREEN ON VALUE REQUEST FOR P_PARAMETER.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD     = P_PARAMETER
       DYNPPROG     = SY-REPID
      DYNPNR       = SY-DYNNR
      VALUE_ORG    = 'S'
      WINDOW_TITLE = 'Open Quantity'
    TABLES
      VALUE_TAB    = ITAB.

F1 help for Check Box on Selection-Screen

Hi Friends,
I want to attach F1 help for a check box on selection-screen. Though I have checked SDN community for this but did not get any relevant answer.
so, please give me correct example if someone has done similar.
Regards
Pradeep

Pradeep,
I think this fucntion module needs to be used DD_SHLP_CALL_FROM_DYNP.If possibe try to screen debug using /H before pressing f1 for a field.
K.Kiran.

Define path in selection screen to write the output file to pres. server

Hi can anyone tell me how to declare a variable so that the user can specify his own path name in the selection screen to store the output file in the presentation server. and please tell me how to link up the output file to the selection screen specified path.
thanks in advance.

DATA: FILE_TAB TYPE STRING.
SELECTION-SCREEN BEGIN OF BLOCK B02 WITH FRAME TITLE TEXT-B02.
PARAMETERS:
           P_FILE TYPE RLGRAP-FILENAME OBLIGATORY LOWER CASE.
SELECTION-SCREEN END OF BLOCK B02.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
PERFORM OPEN_FILE USING P_FILE.
FORM OPEN_FILE USING L_FILE.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    CHANGING
      FILE_NAME     = L_FILE
    EXCEPTIONS
      MASK_TOO_LONG = 1
      OTHERS        = 2.
IF SY-SUBRC <> 0.
    SY-MSGTY = 'I'.
    MESSAGE ID     SY-MSGID
            TYPE   SY-MSGTY
            NUMBER SY-MSGNO
            WITH   SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    STOP.
ENDIF.
ENDFORM.
FILE_TAB = P_FILE.
CALL FUNCTION 'GUI_DOWNLOAD'
*Complete the FM
Greetings,
Blag.

Popup Menu(F1- Help values) is not diaplying for a char at selection screen

Hi,
After executed the query, we are trying to get help (F4) values for info object Employee Group (EMPLGROUP) in the selection screen but it is taking long time nearly 1 hr and getting timed out. And for other Chars we are getting the help popup menu.
for your info...
There are only 6 values are there in Employee Group master data table.
And the characteristic settings in Business Explorer tab are as the following,
Display u2013 Text
Text type u2013 Default
BEx description u2013 Short description
Selection u2013 No selection Restriction
Query Def. Filter Value Selection u2013 Only values in Infoprovider
Query Execution Filter Val. Selection u2013 Only Posted Values for Navigation
Can any one please suggest us which settings we needs to change to get the popup menu (help values) for Employee Group at selection screen and what is the reason for not displaying the help popup menu?.
and can any one explain us about the setting "Query Execution Filter Val. Selection u2013 Only Posted Values for Navigation"
Thanks & Regards,
Raju. E

Hi,
I am getting the data aslo for Employee Group in the query when I drill down that char.
But I dont know why it is taking long time and getting time out to display the popup menu for help values at selection screen.
I think this is due to the below setting only at char level,
Query Execution Filter Val. Selection u2013 Only Posted Values for Navigation
and there are 3 opstions for the above seeting as below,
1. Only values in master data
2. Only values in Infoprovider
3. Only Posted Values for Navigation
Can any one help me, which opstion will solve the issue and can any one explain me what is the difference between 2 & 3
Thanks,
Raju. E

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.

F4 help for file name

frnds,
Im using the FM "KD_GET_FILENAME_ON_F4" to get F4 help for file name in presentation server... but it does not seem to work...Y?????????
and is there any FM to get the file name from the application server..
points assured to all the answers...
regrds,
Madan...

Try to use WS_FILENAME_GET
call function 'WS_FILENAME_GET'
    exporting def_filename     = space
              def_path         =
                mask             = ',. ,..'
                mode             = 'O'
                title            = text-038
   importing filename         = os_name
                              RC               = DUMMY
   exceptions inv_winsys       = 04
              no_batch         = 08
                                selection_cancel = 12
                                selection_error = 16.
or
at selection-screen on value-request for p_file1.
data wa_file like file_table.
refresh filetable.
call method cl_gui_frontend_services=>file_open_dialog
   EXPORTING
   WINDOW_TITLE            =
   DEFAULT_EXTENSION       =
   DEFAULT_FILENAME        =
   FILE_FILTER             =
   INITIAL_DIRECTORY       =
   MULTISELECTION          =
   WITH_ENCODING           =
    changing
      file_table              = filetable
      rc                      = rc
   USER_ACTION             =
   FILE_ENCODING           =
exceptions
    file_open_dialog_failed = 1
    cntl_error              = 2
    error_no_gui            = 3
    not_supported_by_gui    = 4
    others                  = 5.
if sy-subrc = 0.
    if rc = 1.
      read table filetable into wa_file index 1.
      move wa_file-filename to p_file1.
    endif.
endif.
Max
Message was edited by: max bianchi

Query regarding F4 help on a field in Selection Screen.

Hi all,
I am trying to attach a F4 help on a field in Selection Screen.
The code fragment I wrote for this purpose is:
AT SELECTION-SCREEN ON VALUE-REQUEST FOR m_cbu.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
DDIC_STRUCTURE         = ' '
    retfield               = 'CBU_MANAGER'
PVALKEY                = ' '
   DYNPPROG               = sy-cprog
   DYNPNR                 = sy-dynnr
   DYNPROFIELD            = 'M_CBU'
STEPL                  = 0
WINDOW_TITLE           =
VALUE                  = ' '
   VALUE_ORG              = 'S'
MULTIPLE_CHOICE        = ' '
   DISPLAY                = 'F'
CALLBACK_PROGRAM       = ' '
CALLBACK_FORM          = ' '
MARK_TAB               =
IMPORTING
USER_RESET             =
tables
    value_tab              = tb_cbu_m
FIELD_TAB              =
    RETURN_TAB             = t_return
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.
Still, I am unable to get any F4 help?
Please point out the mistake..
Thanks in advance.

Hi Thien,
My entire code is as follows-
TYPES:
      BEGIN OF cbu_m,
      cbu_manager TYPE uname,
      END OF cbu_m.
DATA:
tb_cbu_m            TYPE TABLE OF cbu_m,
wa_cbu_m             TYPE cbu_m.
wa_cbu_m-cbu_manager = '123'.
APPEND wa_cbu_m TO tb_cbu_m.
wa_cbu_m-cbu_manager = '234'.
APPEND wa_cbu_m TO tb_cbu_m.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR m_cbu.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
DDIC_STRUCTURE         = ' '
      retfield               = 'CBU_MANAGER'
PVALKEY                = ' '
     dynpprog               = sy-repid
     dynpnr                 = sy-dynnr
     dynprofield            = 'M_CBU'
STEPL                  = 0
   WINDOW_TITLE           = 'ABC'
VALUE                  = ' '
     value_org              = 'S'
MULTIPLE_CHOICE        = ' '
    display                = 'F'
CALLBACK_PROGRAM       = ' '
CALLBACK_FORM          = ' '
MARK_TAB               =
IMPORTING
USER_RESET             =
    TABLES
      value_tab              = tb_cbu_m
FIELD_TAB              =
     return_tab             = t_return
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.
Here I am getting the same message "No Values Found"..
Please point out the mistake in my code.

Code for execute button on selection screen to get result

hi experts,
I need a help for writing a code for execution button on selection screen.Like in normal report on abap editor
we insert selection criteria like number and we get the result according that particular number on next screen.
same thing i am trying here also. So i am writing a code on button that when i press the button it will go to the next
screen according to the selection criteria.
Plz help me helpful answers are appriatiated !!!
Thanks & regards
Vipul Gupta

hi,
In the OnAction write :
1. get the values entered in selection criteria using :
DATA lo_nd_cn_check TYPE REF TO if_wd_context_node.
    DATA lo_el_cn_check TYPE REF TO if_wd_context_element.
    DATA ls_cn_check TYPE wd_this->element_cn_check.
    DATA lv_ca_check LIKE ls_cn_check-ca_check.
navigate from <CONTEXT> to <CN_CHECK> via lead selection
    lo_nd_cn_check = wd_context->get_child_node( name = wd_this->wdctx_cn_check ).
get element via lead selection
    lo_el_cn_check = lo_nd_cn_check->get_element( ).
get single attribute
    lo_el_cn_check->get_attribute(
      EXPORTING
        name = `CA_CHECK`
      IMPORTING
        value = lv_ca_check ).
Now lv_ca_check has your value entered in Selection criteria.
2. write the select query to fetch data according to selection criteria.
    select * from <table> into correponding field of table <internl table>
       where Field = lv_ca_check.
3. Now in the internal table <internl table> you have values according to search criteria.
4. Bind the internal table with node which is binded to table to show data.
lo_nd->bind_table( internaltable ).
I hope it is clear .

How can we place a F4 help in a parameter in selection screen

Hi,
How can we place a F4 help in a parameter in selection screen. Can we do add a Process 0n Value request similar to a module pool prg in stadard report program.
saji

Hello Saji,
Try below attached report.
Regards,
Naimesh.
Reward, if it is useful..!
REPORT ZTEST_NP_1.
DATA: HELPVAL1 LIKE HELP_VALUE OCCURS 0 WITH HEADER LINE .
DATA: VALUE_TAB     LIKE PDTASK-OTEXT OCCURS 2 WITH HEADER LINE.
DATA: VALUE         LIKE FEBMKA-BANKN,
      GIVEN_VALUE   LIKE HELP_INFO-FLDVALUE.
DATA: IT_T005T LIKE T005T OCCURS 0 WITH HEADER LINE,
      IT_T002T LIKE T002T OCCURS 0 WITH HEADER LINE.
SELECTION-SCREEN: BEGIN OF BLOCK BLK1 WITH FRAME TITLE ABC.
PARAMETERS:       P_SPRAS LIKE T002T-SPRAS,
                  P_LAND1 LIKE T005T-LAND1.
SELECTION-SCREEN: END   OF BLOCK BLK1.
INITIALIZATION.
ABC = 'Selection Criteria:'.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_LAND1.
PERFORM VALUE_REQUEST_LAND1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_SPRAS.
PERFORM VALUE_REQUEST_SPRAS.
*&      Form VALUE_REQUEST_land1
FORM VALUE_REQUEST_LAND1.
*---- Reading the Screen values.
DATA: LT_DYNPFIELDS LIKE DYNPREAD OCCURS 0 WITH HEADER LINE,
        LV_DYNAME     LIKE D020S-PROG,
        LV_DYNUMB     LIKE D020S-DNUM.
*-------Append field which you want to read from the screen
LV_DYNAME = SY-REPID.
LV_DYNUMB = SY-DYNNR.
LT_DYNPFIELDS-FIELDNAME = 'P_SPRAS'.
APPEND LT_DYNPFIELDS.
CALL FUNCTION 'DYNP_VALUES_READ'
       EXPORTING
            DYNAME     = LV_DYNAME
            DYNUMB     = LV_DYNUMB
       TABLES
            DYNPFIELDS = LT_DYNPFIELDS.
SELECT * FROM T005T
         INTO TABLE IT_T005T
         WHERE SPRAS = P_SPRAS.
    REFRESH: HELPVAL1, VALUE_TAB.
    CLEAR:   HELPVAL1, VALUE_TAB, GIVEN_VALUE, VALUE.
*---- Append field name for the columns in the help popup
    HELPVAL1-TABNAME    = 'T005T' .
    HELPVAL1-FIELDNAME = 'LAND1' .
    HELPVAL1-SELECTFLAG = 'X' . " will return the value on the screen
    APPEND HELPVAL1 .
    CLEAR HELPVAL1 .
    HELPVAL1-TABNAME    = 'T005T' .
    HELPVAL1-FIELDNAME = 'LANDX' .
    HELPVAL1-SELECTFLAG = ' ' .
    APPEND HELPVAL1 .
    CLEAR HELPVAL1 .
    LOOP AT IT_T005T.
      VALUE_TAB = IT_T005T-LAND1.
      APPEND VALUE_TAB.
      VALUE_TAB = IT_T005T-LANDX.
      APPEND VALUE_TAB.
    ENDLOOP.
    GIVEN_VALUE    = P_LAND1.
    CALL FUNCTION 'HELP_VALUES_GET_WITH_VALUE'
       EXPORTING
            DISPLAY      = SPACE
            GIVEN_VALUE = GIVEN_VALUE
       IMPORTING
            SELECT_VALUE = VALUE
       TABLES
            FIELDS       = HELPVAL1
            VALUETAB     = VALUE_TAB.
    IF NOT VALUE IS INITIAL.
      P_LAND1 = VALUE. " Assing value to the parameter
    ENDIF.
ENDFORM.                    " VALUE_REQUEST_land1
*&      Form VALUE_REQUEST_SPRAS
FORM VALUE_REQUEST_SPRAS.
REFRESH: HELPVAL1, VALUE_TAB.
CLEAR:   HELPVAL1, VALUE_TAB, GIVEN_VALUE, VALUE.
HELPVAL1-TABNAME    = 'T002T' .
HELPVAL1-FIELDNAME = 'SPRSL' .
HELPVAL1-SELECTFLAG = 'X' .
APPEND HELPVAL1 .
CLEAR HELPVAL1 .
HELPVAL1-TABNAME    = 'T002T' .
HELPVAL1-FIELDNAME = 'SPTXT' .
HELPVAL1-SELECTFLAG = ' ' .
APPEND HELPVAL1 .
CLEAR HELPVAL1 .
SELECT * FROM T002T
         INTO   TABLE IT_T002T
         WHERE SPRAS = SY-LANGU.
LOOP AT IT_T002T.
    VALUE_TAB = IT_T002T-SPRSL.
    APPEND VALUE_TAB.
    VALUE_TAB = IT_T002T-SPTXT.
    APPEND VALUE_TAB.
ENDLOOP.
GIVEN_VALUE    = P_SPRAS.
CALL FUNCTION 'HELP_VALUES_GET_WITH_VALUE'
       EXPORTING
          DISPLAY      = SPACE
          GIVEN_VALUE = GIVEN_VALUE
       IMPORTING
          SELECT_VALUE = VALUE
       TABLES
          FIELDS       = HELPVAL1
          VALUETAB     = VALUE_TAB.
IF NOT VALUE IS INITIAL.
    P_SPRAS = VALUE.
ENDIF.
ENDFORM.                    " VALUE_REQUEST_SPRAS

How to create tcode for modulepool program with selection screen?

hi,
How to create tcode for modulepool program with selection screen?
thanks,
sagar

Hi,
We need to goto SE80.
In our program we right click on object name and goto create
-> transaction. Enter the module pool program and screen number and save and activate.
Or by SE93 also we can create a transaction code for our program.
Hope ths helps.
plz reward if useful.
thanks,
dhanashri..
Edited by: Dhanashri Pawar on Jul 22, 2008 8:29 AM

F4 help for file path in selection screen.

Similar Messages

Maybe you are looking for