how to declare a parameter

[Former Member]

hi all,

i want to declare a parameter which takes given input as

'c:\mydoucmnets\jfjfjfjfffsdkhhhhh' for that what and f4 help should be attached to it.

if any function module for this type give me that also

[Former Member]

hi all,

i want to declare a parameter which takes given input as

'c:\mydoucmnets\jfjfjfjfffsdkhhhhh' for that what and f4 help should be attached to it.

if any function module for this type give me that also

[Former Member]

Hi,

PARAMETERS:P_FILE LIKE IBIPPARMS-PATH.

DATA FILENAME TYPE STRING.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.

CALL FUNCTION 'F4_FILENAME'

EXPORTING

program_name = sy-cprog

dynpro_number = sy-dynnr

IMPORTING

file_name = P_FILE.

START-OF-SELECTION.

FILENAME = P_FILE.

rgds,

bharat.

[Former Member]

Hi Suresh ,,

<b>Declare like this ..</b>

<b><b>PARAMETERS: p_fname TYPE rlgrap-filename.</b></b>

<b>For F4 Help...</b>

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.

• To get the Input file name and path from presentation server

PERFORM f_get_filename_pre USING p_fname.

......

.......

&----

---

*& Form f_get_filename_pre

&----

---

• This subroutine will Open the file path

----

---

FORM f_get_filename_pre USING p_fname TYPE rlgrap-filename.

*

DATA: lt_files TYPE filetable, " File table

lv_title TYPE string, " Window table

lv_file TYPE file_table, " File name

lv_subrc TYPE sy-subrc, " Output value

lv_file1 TYPE string. " File name

• To open the file dialog box

CALL METHOD cl_gui_frontend_services=>file_open_dialog

EXPORTING

window_title = lv_title

CHANGING

file_table = lt_files

rc = lv_subrc

EXCEPTIONS

file_open_dialog_failed = 1

cntl_error = 2

error_no_gui = 3

OTHERS = 4.

*

IF sy-subrc = 0.

• Get the file name.

LOOP AT lt_files INTO lv_file.

lv_file1 = lv_file.

MOVE lv_file1 TO p_fname.

EXIT.

ENDLOOP.

ENDIF.

*

ENDFORM. " f_get_filename_pre

Regards,

Peter

[former_member196299]

hi ,

You can declare the parameter as ,

parameter : FILENAME type string .

this should work in reference to declaration part ..

and use FM f4_filename for getting the F4 help .

Regards,

Ranjita

[Former Member]

hi suresh!

Use the code below:

parameters:filename like IBIPPARMS-PATH.

at selection-screen on value-request for filename.

CALL FUNCTION 'F4_FILENAME'

EXPORTING

PROGRAM_NAME = SYST-CPROG

DYNPRO_NUMBER = SYST-DYNNR

FIELD_NAME = ' '

IMPORTING

FILE_NAME = filename.

If you dont want to use F4 help, then you can declare as below:

parameters: filename like rlgrap-filename default 'c:\mydoucmnets\jfjfjfjfffsdkhhhhh'.

Hope your question is answered.

Regards

Sayee

Message was edited by:

Sayee

[Former Member]

Hi,

Use the function module F4_FILENAME.

this wud enable u to attach any file from ur system using input help at the selection screen.

wjile calling the function module,

jus give the parameter pr_file in the importing parameters of the function mod as follows.

PARAMETERS : pr_file      TYPE rlgrap-filename
....

CALL FUNCTION 'F4_FILENAME'
    IMPORTING
      file_name = pr_file.

hope this helps u.

****reward points if useful..

All the best

[hymavathi_oruganti]

v_file type string.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR filename.

PARAMETER : filename LIKE rlgrap-filename OBLIGATORY.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

EXPORTING

field_name = filename

CHANGING

file_name = filename.

START-OF-SELECTION.

v_file = filename.

the above fn module will let u access to the presentation server, from where u can select the file.

Message was edited by:

Hymavathi Oruganti

[Former Member]

Hi,

*-- Data for fieldname in search function

DATA: V_FILE LIKE DYNPREAD-FIELDNAME,

*-- Variable for storing path in charecter type

V_PATH TYPE STRING,

----

---

• S E L E C T I O N S C R E E N *

----

---

PARAMETERS: PATH1 LIKE IBIPPARMS-PATH.

**-- On F4 key

AT SELECTION-SCREEN ON VALUE-REQUEST FOR PATH1.

CALL FUNCTION 'F4_FILENAME'

EXPORTING

• PROGRAM_NAME = SYST-CPROG

• DYNPRO_NUMBER = SYST-DYNNR

FIELD_NAME = V_FILE

IMPORTING

FILE_NAME = PATH1.

******do rewards if usefull

vijay

[sharadendu_agrawal]

PARAMETERS : p_input LIKE rlgrap-filename MODIF ID mod OBLIGATORY

DEFAULT c_output,

p_output LIKE rlgrap-filename OBLIGATORY DEFAULT

c_output.

----

---

• AT SELECTION-SCREEN *

----

---

AT SELECTION-SCREEN.

*--Providing F4 help for the output file.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_input.

PERFORM execute_f4help USING 'P_INPUT'.

&----

---

*& Form execute_f4help

&----

---

• Form called for f4 help to the output/input file field.

----

---

FORM execute_f4help USING fp_file.

*--Selects the directory list from the presentation server

CALL FUNCTION 'F4_DXFILENAME_4_DYNP'

EXPORTING

dynpfield_filename = fp_file

dyname = sy-cprog

dynumb = sy-dynnr

filetype = 'P'

location = 'P'

server = space.

ENDFORM. " execute_f4help

reward if useful..

Regards,

Sharadendu

[Former Member]

Hi Sureshbabu,

You can use the following code.

PARAMETERS: P_FILE LIKE RLGRAP-FILENAME.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.

PERFORM SHOW_FILES.

FORM SHOW_FILES.

DATA: TMP_FILE LIKE IBIPPARMS-PATH.

CALL FUNCTION 'F4_FILENAME'

EXPORTING

PROGRAM_NAME = SYST-CPROG

• DYNPRO_NUMBER = SYST-DYNNR

• FIELD_NAME =

IMPORTING

FILE_NAME = TMP_FILE

.

IF SY-SUBRC = 0.

P_FILE = TMP_FILE.

ENDIF.

ENDFORM. " SHOW_FILES

Reward, if useful.

Thanks,

USR

[Former Member]

Hi Sureshbabu,

Use FM <b>'F4_FILENAME'</b> at AT SELECTION-SCREEN ON VALUE-REQUEST event.

Refer this code :

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

PARAMETERS : P_FILE TYPE IBIPPARMS-PATH .

SELECTION-SCREEN END OF BLOCK B1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.

CALL FUNCTION 'F4_FILENAME'

EXPORTING

PROGRAM_NAME = SY-REPID

DYNPRO_NUMBER = SYST-DYNNR

IMPORTING

FILE_NAME = P_FILE

P_file will contain data like this : 'c:\mydoucmnets\jfjfjfjfffsdkhhhhh'

Reward points if helpful.

Regards,

Hemant

[Former Member]

hi ,

Use following code

PARAMETERS P_FILENM LIKE RLGRAP-FILENAME.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILENM.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

EXPORTING

MASK = '*.TXT'

CHANGING

FILE_NAME = P_FILENM

EXCEPTIONS

MASK_TOO_LONG = 1

OTHERS = 2.

AT SELECTION-SCREEN ON P_FILENM.

IF P_DOWNLD = 'X'

AND ( P_FILENM IS INITIAL OR

P_FILENM NS '.pdf' ).

MESSAGE ID 'ZSH' TYPE 'E' NUMBER 999

WITH TEXT-013.

ENDIF.

AT Selection-screen.

CALL FUNCTION 'GUI_GET_FILE_INFO'

EXPORTING

FNAME = P_FILENM

IMPORTING

FILE_SIZE = H-FILE_EXIST

EXCEPTIONS

FILEINFO_ERROR = 1.

IF H-FILE_EXIST > 0.

MESSAGE ID 'ZSH' TYPE 'E' NUMBER 999

WITH TEXT-012.

ENDIF.

Regards

Madhumati

• Reward Points if helpful

[RichHeilman]

I'm a little surprise that no one has suggested the best way to go and use the class/method .

report zrich_0001.

data: ifiletable type filetable.
data: xfiletable like line of ifiletable.
data: rc type i.

parameters: p_file1 type localfile default'C:test.txt'.

at selection-screen on value-request for p_file1.

call method cl_gui_frontend_services=>file_open_dialog
   EXPORTING
*    WINDOW_TITLE            =
*    DEFAULT_EXTENSION       =
*    DEFAULT_FILENAME        =
*    FILE_FILTER             =
     INITIAL_DIRECTORY       = 'C:'
*    MULTISELECTION          =
  changing
    file_table              = ifiletable
    rc                      = rc
*    USER_ACTION             =
  EXCEPTIONS
    FILE_OPEN_DIALOG_FAILED = 1
    CNTL_ERROR              = 2
    ERROR_NO_GUI            = 3
    others                  = 4.
        .
 read table ifiletable into xfiletable index 1.
 if sy-subrc = 0.
  p_file1 = xfiletable-FILENAME.
 endif.

Regards,

Rich Heilman