Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

Exception saving application server file on local machine

ashish_gupta11
Explorer
0 Likes
471

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

1 REPLY 1
Read only

Former Member
0 Likes
409

Hi,

Check with below link

http://wiki.sdn.sap.com/wiki/display/Snippets/FILEOPERATIONONAPPLICAIONSERVER+(DeleteUploadDownload)

Hope it helps.

Regards,

Shirisha