Ashish Gupta

Dec 21, 2010 at 06:27 AM

Exception saving application server file on local machine

58 Views

Hi expert,

i m getting problem while saving dataset file on local machine .

i m using FM 'C13Z_FILE_DOWNLOAD_BINARY' .

But it rise an EXCEPTION FE_FILE_OPEN_ERROR = 1

DATA: L_DATA LIKE RLGRAP-FILENAME .

**********************************************************************************************************

FRONTPATH = 'c:/temp/'.

CONCATENATE FRONTPATH RQSPOOL INTO FRONTPATH.

MOVE TMPPATH TO L_DATA.

DATA : I_DATA(5000).

OPEN DATASET L_DATA FOR OUTPUT IN TEXT MODE ENCODING DEFAULT .

IF SY-SUBRC <> 0.

MESSAGE E208(00) WITH 'Error Opening File'.

ENDIF.

LOOP AT I_DOWNLOAD INTO I_WA.

CONCATENATE I_WA-MATNR I_WA-TECHNAME I_WA-ARKTX I_WA-FKDAT I_WA-VBELN I_WA-NAME I_WA-FKIMG I_WA-FKIMG_R I_WA-L_NETQTY I_WA-VKBETR I_WA-STVALUE I_WA-STVALUE_R I_WA-L_NETVALUE

INTO I_DATA SEPARATED BY CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB.

TRANSFER I_DATA TO L_DATA.

ENDLOOP.

CLOSE DATASET L_DATA.

IF SY-SUBRC <> 0.

MESSAGE E208(00) WITH ''.

ENDIF.

CALL FUNCTION 'GUI_DELETE_FILE'

EXPORTING

FILE_NAME = FRONTPATH

EXCEPTIONS
FAILED = 1
OTHERS = 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.

CALL FUNCTION 'C13Z_FILE_DOWNLOAD_BINARY'

EXPORTING

I_FILE_FRONT_END = FRONTPATH

I_FILE_APPL = TMPPATH

I_FILE_OVERWRITE = 'X'

IMPORTING
E_FLG_OPEN_ERROR =
E_OS_MESSAGE =

EXCEPTIONS

FE_FILE_OPEN_ERROR = 1

FE_FILE_EXISTS = 2

FE_FILE_WRITE_ERROR = 3

AP_NO_AUTHORITY = 4

AP_FILE_OPEN_ERROR = 5

AP_FILE_EMPTY = 6

OTHERS = 7

.

IF SY-SUBRC <> 0.

MESSAGE I208(00) WITH 'error in fm'.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

DELETE DATASET L_DATA.

IF SY-SUBRC = 0.

MESSAGE I208(00) WITH ''.

ENDIF.

THANKS,

ashish gupta