f4 help for file on selection screen thro objects

[Former Member]

Hi Every one,

this report is working , but as i am working ECC6.0 it is showing the obsolete statements

how to rectify it .

pls anybody let me know,

tables rlgrap.

TYPES : BEGIN OF TAB,

MATNR TYPE MATNR ,

MTART TYPE MTART,

END OF TAB.

DATA : ITAB TYPE STANDARD TABLE OF TAB ,

WTAB TYPE TAB.

data: it_tab type filetable,

gd_subrc type i.

data : file0 type string.

selection-screen begin of block m with frame.

select-options: so_fpath for rlgrap-filename.

selection-screen end of block m.

data wfile like line of so_fpath.

at selection-screen on value-request for so_fpath-low.

REFRESH: it_tab.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG

EXPORTING

WINDOW_TITLE = 'Select File'

DEFAULT_FILENAME = '*.txt'

MULTISELECTION = 'X'

CHANGING

FILE_TABLE = it_tab

RC = gd_subrc.

loop at it_tab into so_fpath-low.

so_fpath-sign = 'I'.

so_fpath-option = 'EQ'.

append so_fpath.

endloop.

move so_fpath+3 to file0.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = FILE0

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = 'X'

TABLES

DATA_TAB = Itab

EXCEPTIONS

FILE_OPEN_ERROR = 1

FILE_READ_ERROR = 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.

end-of-selection.

write 😕 file0.

loop at itab into wtab.

write 😕 wtab-matnr.

endloop.

its urgent please...

[Former Member]

See the below ex:change file parameter type .

DATA: VFILE TYPE STRING.

DATA: FL(1).

DATA: L_FILETAB TYPE FILETABLE,

L_FILETAB_H TYPE FILETABLE WITH HEADER LINE,

INITIAL_DIR_PATH TYPE STRING,

L_RC TYPE I.

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

*PARAMETERS: FNAME LIKE RLGRAP-FILENAME OBLIGATORY.

PARAMETERS: FNAME TYPE LOCALFILE OBLIGATORY.

SELECTION-SCREEN: END OF BLOCK B1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR FNAME.

REFRESH L_FILETAB.

INITIAL_DIR_PATH = 'C:\'.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG

EXPORTING

WINDOW_TITLE = 'Select the Asset Master Data file'

• DEFAULT_EXTENSION =

• DEFAULT_FILENAME =

FILE_FILTER = 'Text Files (.TXT)|.TXT|'

INITIAL_DIRECTORY = INITIAL_DIR_PATH

MULTISELECTION = SPACE

• WITH_ENCODING =

CHANGING

FILE_TABLE = L_FILETAB

RC = L_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.

WRITE:/ 'Error while selecting the input file'.

ELSE.

LOOP AT L_FILETAB INTO L_FILETAB_H.

FNAME = L_FILETAB_H-FILENAME.

EXIT.

ENDLOOP.

ENDIF.

FILE = FNAME.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = VFILE

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = 'X'

• HEADER_LENGTH = 0

• READ_BY_LINE = 'X'

• DAT_MODE = ' '

• CODEPAGE = ' '

• IGNORE_CERR = ABAP_TRUE

• REPLACEMENT = '#'

• CHECK_BOM = ' '

• VIRUS_SCAN_PROFILE =

• IMPORTING

• FILELENGTH =

• HEADER =

TABLES

DATA_TAB = I_TAB

EXCEPTIONS

FILE_OPEN_ERROR = 1

FILE_READ_ERROR = 2

NO_BATCH = 3

GUI_REFUSE_FILETRANSFER = 4

INVALID_TYPE = 5

NO_AUTHORITY = 6

UNKNOWN_ERROR = 7

BAD_DATA_FORMAT = 8

HEADER_NOT_ALLOWED = 9

SEPARATOR_NOT_ALLOWED = 10

HEADER_TOO_LONG = 11

UNKNOWN_DP_ERROR = 12

ACCESS_DENIED = 13

DP_OUT_OF_MEMORY = 14

DISK_FULL = 15

DP_TIMEOUT = 16

OTHERS = 17

.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

[Former Member]

Hi madhavi,

Change this line :

move so_fpath+3 to file0.

to

<b>move so_fpath-low to file0.</b>

Regards,

Ravi

[Former Member]

When i had checked for the extended check for the program, the obsolete statement had occured in the append statement

loop at it_tab into so_fpath-low.

so_fpath-sign = 'I'.

so_fpath-option = 'EQ'.

<b>append so_fpath.</b>

endloop.

use a workare and then use APPEND wa_fpath to so_fpath.

[Former Member]

Thank you for evey one .

Problem is solved.

Regards,