topic Re: how to declare a parameter in Application Development and Automation Discussions

how to declare a parameter

Former Member — Wed, 09 May 2007 06:19:39 GMT

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

Re: how to declare a parameter

Former Member — Wed, 09 May 2007 06:24:36 GMT

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.

Re: how to declare a parameter

Former Member — Wed, 09 May 2007 06:26:20 GMT

Hi Suresh ,,

Declare like this ..

PARAMETERS: p_fname TYPE rlgrap-filename.

For F4 Help...

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

Re: how to declare a parameter

former_member196299 — Wed, 09 May 2007 06:26:59 GMT

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

Re: how to declare a parameter

Former Member — Wed, 09 May 2007 06:28:19 GMT

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

Re: how to declare a parameter

Former Member — Wed, 09 May 2007 06:29:10 GMT

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

Re: how to declare a parameter

hymavathi_oruganti — Wed, 09 May 2007 06:33:42 GMT

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

Re: how to declare a parameter

Former Member — Wed, 09 May 2007 06:36:16 GMT

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

Re: how to declare a parameter

sharadendu_agrawal — Wed, 09 May 2007 06:36:46 GMT

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

Re: how to declare a parameter

Former Member — Wed, 09 May 2007 06:38:12 GMT

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

Re: how to declare a parameter

Former Member — Wed, 09 May 2007 06:43:04 GMT

Hi Sureshbabu,

Use FM 'F4_FILENAME' 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

Re: how to declare a parameter

Former Member — Wed, 09 May 2007 06:47:54 GMT

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

Re: how to declare a parameter

RichHeilman — Wed, 09 May 2007 17:46:24 GMT

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