Application Development 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: 

Problem in Downloading File from Application Server

Former Member
0 Kudos

Hi All,

We have an Requirement that, iam putting the Flat File

( Output Of a Report ) in to the

Application Server(AL11) By using the OpendataSet, Transer , Close DataSet.

When iam trying to Downloading the Flat File through the FM, GUI_DOWNLOAD, the Data is coming Correctly.

But the Problem is , when trying to Downloading through AL11 i.e System -> List -> Local File it is not coming Correctly.

( Java People is going to Connect with the Application Server for the Flat File )

Kindly Clarify the Problem.

Points will be Rewarded.

Regards,

Kiran.I

1 ACCEPTED SOLUTION

Former Member
0 Kudos

Hi nl,

1. this program will display

selection screen

and ask two things :

a) application server filename

b) local file name

2. then it will download the file

(the file name is CASE Sensitivie)

3. just try it (just copy paste )

&----


*& Report YBCR_FILEDOWNLOAD *

*& *

&----


*& *

*& *

&----


REPORT ybcr_filedownload .

*----


  • DATA

*----


DATA : file_name TYPE string.

DATA : BEGIN OF itab OCCURS 0,

ln(255) TYPE c,

END OF itab.

*----


  • SCREEN

*----


SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

PARAMETERS : appfn(150) TYPE c LOWER CASE OBLIGATORY.

PARAMETERS : p_file LIKE rlgrap-filename OBLIGATORY.

SELECTION-SCREEN END OF BLOCK b1.

*----


*

*----


*----


  • AT SELECTION SCREEN

*----


AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

CLEAR p_file.

CALL FUNCTION 'F4_FILENAME'

IMPORTING

file_name = p_file.

file_name = p_file.

*----


  • START-OF-SELECTION

*----


START-OF-SELECTION.

OPEN DATASET appfn FOR INPUT IN TEXT MODE ENCODING DEFAULT .

IF sy-subrc <> 0.

MESSAGE s999(yhr) WITH 'COULD NOT OPEN FILE ON APP SERVER'.

LEAVE LIST-PROCESSING.

ENDIF.

DO.

READ DATASET appfn INTO itab.

IF sy-subrc = 0.

APPEND itab.

ELSE.

EXIT.

ENDIF.

ENDDO.

file_name = p_file.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

  • BIN_FILESIZE =

filename = file_name

  • FILETYPE = 'ASC'

  • APPEND = ' '

  • WRITE_FIELD_SEPARATOR = ' '

  • HEADER = '00'

  • TRUNC_TRAILING_BLANKS = ' '

  • WRITE_LF = 'X'

  • COL_SELECT = ' '

  • COL_SELECT_MASK = ' '

  • DAT_MODE = ' '

  • CONFIRM_OVERWRITE = ' '

  • NO_AUTH_CHECK = ' '

  • CODEPAGE = ' '

  • IGNORE_CERR = ABAP_TRUE

  • REPLACEMENT = '#'

  • WRITE_BOM = ' '

  • TRUNC_TRAILING_BLANKS_EOL = 'X'

  • WK1_N_FORMAT = ' '

  • WK1_N_SIZE = ' '

  • WK1_T_FORMAT = ' '

  • WK1_T_SIZE = ' '

  • IMPORTING

  • FILELENGTH =

TABLES

data_tab = itab

  • FIELDNAMES =

  • EXCEPTIONS

  • FILE_WRITE_ERROR = 1

  • NO_BATCH = 2

  • GUI_REFUSE_FILETRANSFER = 3

  • INVALID_TYPE = 4

  • NO_AUTHORITY = 5

  • UNKNOWN_ERROR = 6

  • HEADER_NOT_ALLOWED = 7

  • SEPARATOR_NOT_ALLOWED = 8

  • FILESIZE_NOT_ALLOWED = 9

  • HEADER_TOO_LONG = 10

  • DP_ERROR_CREATE = 11

  • DP_ERROR_SEND = 12

  • DP_ERROR_WRITE = 13

  • UNKNOWN_DP_ERROR = 14

  • ACCESS_DENIED = 15

  • DP_OUT_OF_MEMORY = 16

  • DISK_FULL = 17

  • DP_TIMEOUT = 18

  • FILE_NOT_FOUND = 19

  • DATAPROVIDER_EXCEPTION = 20

  • CONTROL_FLUSH_ERROR = 21

  • OTHERS = 22

.

IF sy-subrc <> 0.

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

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

ENDIF.

regards,

amit m.

5 REPLIES 5

Former Member
0 Kudos

hi naryana,

how u r getting the ouput ..

could u explain ur problem ..

Message was edited by: Ashok Kumar Prithiviraj

0 Kudos

Hi Ashok,

Even in any Format i.e RTF, Unconvered ,Spreadsheet it is not coming Perfectly.

Regards,

Kiran

Former Member
0 Kudos

Hi nl,

1. this program will display

selection screen

and ask two things :

a) application server filename

b) local file name

2. then it will download the file

(the file name is CASE Sensitivie)

3. just try it (just copy paste )

&----


*& Report YBCR_FILEDOWNLOAD *

*& *

&----


*& *

*& *

&----


REPORT ybcr_filedownload .

*----


  • DATA

*----


DATA : file_name TYPE string.

DATA : BEGIN OF itab OCCURS 0,

ln(255) TYPE c,

END OF itab.

*----


  • SCREEN

*----


SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

PARAMETERS : appfn(150) TYPE c LOWER CASE OBLIGATORY.

PARAMETERS : p_file LIKE rlgrap-filename OBLIGATORY.

SELECTION-SCREEN END OF BLOCK b1.

*----


*

*----


*----


  • AT SELECTION SCREEN

*----


AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

CLEAR p_file.

CALL FUNCTION 'F4_FILENAME'

IMPORTING

file_name = p_file.

file_name = p_file.

*----


  • START-OF-SELECTION

*----


START-OF-SELECTION.

OPEN DATASET appfn FOR INPUT IN TEXT MODE ENCODING DEFAULT .

IF sy-subrc <> 0.

MESSAGE s999(yhr) WITH 'COULD NOT OPEN FILE ON APP SERVER'.

LEAVE LIST-PROCESSING.

ENDIF.

DO.

READ DATASET appfn INTO itab.

IF sy-subrc = 0.

APPEND itab.

ELSE.

EXIT.

ENDIF.

ENDDO.

file_name = p_file.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

  • BIN_FILESIZE =

filename = file_name

  • FILETYPE = 'ASC'

  • APPEND = ' '

  • WRITE_FIELD_SEPARATOR = ' '

  • HEADER = '00'

  • TRUNC_TRAILING_BLANKS = ' '

  • WRITE_LF = 'X'

  • COL_SELECT = ' '

  • COL_SELECT_MASK = ' '

  • DAT_MODE = ' '

  • CONFIRM_OVERWRITE = ' '

  • NO_AUTH_CHECK = ' '

  • CODEPAGE = ' '

  • IGNORE_CERR = ABAP_TRUE

  • REPLACEMENT = '#'

  • WRITE_BOM = ' '

  • TRUNC_TRAILING_BLANKS_EOL = 'X'

  • WK1_N_FORMAT = ' '

  • WK1_N_SIZE = ' '

  • WK1_T_FORMAT = ' '

  • WK1_T_SIZE = ' '

  • IMPORTING

  • FILELENGTH =

TABLES

data_tab = itab

  • FIELDNAMES =

  • EXCEPTIONS

  • FILE_WRITE_ERROR = 1

  • NO_BATCH = 2

  • GUI_REFUSE_FILETRANSFER = 3

  • INVALID_TYPE = 4

  • NO_AUTHORITY = 5

  • UNKNOWN_ERROR = 6

  • HEADER_NOT_ALLOWED = 7

  • SEPARATOR_NOT_ALLOWED = 8

  • FILESIZE_NOT_ALLOWED = 9

  • HEADER_TOO_LONG = 10

  • DP_ERROR_CREATE = 11

  • DP_ERROR_SEND = 12

  • DP_ERROR_WRITE = 13

  • UNKNOWN_DP_ERROR = 14

  • ACCESS_DENIED = 15

  • DP_OUT_OF_MEMORY = 16

  • DISK_FULL = 17

  • DP_TIMEOUT = 18

  • FILE_NOT_FOUND = 19

  • DATAPROVIDER_EXCEPTION = 20

  • CONTROL_FLUSH_ERROR = 21

  • OTHERS = 22

.

IF sy-subrc <> 0.

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

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

ENDIF.

regards,

amit m.

Former Member
0 Kudos

Hi

Try using the transaction Cg3Y - for file transfer from Application server to presentation server.

Thanks

Tharani

Former Member
0 Kudos

Copy the below-code and execute.

&----


*& Report ZNILFH

*&

&----


*&

*&

&----


REPORT ZNILFH.

start-of-selection.

CALL FUNCTION 'C13Z_APPL_TO_FRONT_END'

  • EXPORTING

  • I_FTFTYPE = 'BIN'

.

CALL FUNCTION 'C13Z_FRONT_END_TO_APPL'

  • EXPORTING

  • I_FTFTYPE = 'BIN'

.

end-of-selection.