rlgrap

[Former Member]

hi,

plz tell the simple coding for rlgrap using the functional module kd_get_filename_f4 .

regards

surender

[Former Member]

Hi,

Try like this:

PARAMETERS: filename LIKE rlgrap-filename .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR filename.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

EXPORTING

mask = '*.xls'

static = 'X'

CHANGING

file_name = filename.

Regards,

Himanshu

[Former Member]

hi,

chk out this code..

report zflatfile_upper_f4help.

*----

---

• INTERNAL TABLE

*----

---

data: begin of wi_upp occurs 0,

text type string,

end of wi_upp.

data: begin of wi_upp1 occurs 0,

text1 type string,

end of wi_upp1.

*----

---

• DATA

*----

---

data: var1 like rlgrap-filename.

data: var2 like rlgrap-filename.

data : name1 type string ,

name2 type string.

*&----

---

*& CALLING FUNCTIONAL MODULE 'KD_GET_FILENAME_ON_F4'

*&----

---

call function 'KD_GET_FILENAME_ON_F4'

exporting

program_name = syst-repid

dynpro_number = syst-dynnr

changing

file_name = var1.

if sy-subrc <> 0.

endif.

name1 = var1.

*&----

---

*& CALLING FUNCTIONAL MODULE 'GUI_UPLOAD'

*&----

---

call function 'GUI_UPLOAD'

exporting

filename = name1

filetype = 'ASC'

tables

data_tab = wi_upp.

loop at wi_upp.

write:/ wi_upp-text.

translate wi_upp-text to upper case.

append wi_upp to wi_upp1.

write:/ wi_upp-text.

endloop.

[Former Member]

Function KD_GET_FILENAME_ON_F4

PARAMETERS: filename LIKE rlgrap-filename MEMORY ID M01.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR filename.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

EXPORTING

mask = '*.xls'

static = 'X'

CHANGING

file_name = filename.