topic Re: Problem in sending file to application server from presentation server in Application Development and Automation Discussions

Problem in sending file to application server from presentation server

Former Member — Wed, 05 Mar 2008 03:36:16 GMT

Hi Friends

I am trying to send a file to application server but getting an error as ERROR IN READING (path)....

To send the data i have written this code:

DATA: l_fname LIKE rlgrap-filename.

Tranfer Output contents to Source File

l_fname = zif_control-s_file.

TRANSLATE L_FNAME TO LOWER CASE.

CONCATENATE l_fname '_' sy-datum '_' sy-uzeit INTO l_fname.

MOVE l_fname TO zif_control-s_file.

OPEN DATASET L_FNAME FOR OUTPUT IN TEXT MODE.

OPEN DATASET l_fname FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

IF sy-subrc EQ 0.

LOOP AT it_final.

TRANSFER it_final-text TO l_fname LENGTH 222.

ENDLOOP.

ELSE.

FORMAT COLOR COL_NEGATIVE INTENSIFIED OFF.

WRITE:/ 'UNABLE TO CREATE SOURCE FILE.'.

STOP.

ENDIF.

Here zfi_control is Custom table where interface id ,path all r maintained.For path it is s_file.

If there is problem in my code plz retify it.....

Re: Problem in sending file to application server from presentation server

Former Member — Wed, 05 Mar 2008 04:52:09 GMT

hi,,

chk out this prog,

report z_logical.

----

*TABLE DECLARATION

----

tables: zcust_master2.

----

*INTERNAL DECLARATION

----

data : begin of itab occurs 0,

text(255),

end of itab.

----

*CONSTANTS DECLARATION

----

constants: con_tab value cl_abap_char_utilities=>horizontal_tab.

----

*DATA DECLARATION

----

data: flag,

format(3),

fname(10000).

data : name1 type string.

----

*PARAMETER DECLARATION

----

data : flatfile like rlgrap-filename.

parameter : p_fname like filepath-pathintern.

write sy-opsys.

call function 'KD_GET_FILENAME_ON_F4'

exporting

program_name = syst-repid

dynpro_number = syst-dynnr

FIELD_NAME = ' '
STATIC = ' '
MASK = ' '

changing

file_name = flatfile

EXCEPTIONS
MASK_TOO_LONG = 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.

name1 = flatfile.

*&----

*& CALLING FUNCTIONAL MODULE 'gui_upload'

*&----

call function 'GUI_UPLOAD'

exporting

filename = name1

filetype = 'ASC'

tables

data_tab = itab

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.

*&----

*& CALLING FUNCTIONAL MODULE 'FILE_GET_NAME'

*&----

call function 'FILE_GET_NAME'

exporting

logical_filename = 'ZARU_BANKS1'

operating_system = sy-opsys

with_file_extension = '.txt'

importing

emergency_flag = flag

file_format = format

file_name = fname

exceptions

file_not_found = 1

others = 2.

if sy-subrc = 0.

write: / 'Flag :', flag,

/ 'Format :', format,

/ 'Phys. Name:', fname.

endif.

*&----

*& OPENING A FILE

*&----

open dataset fname for output in text mode encoding default.

loop at itab.

transfer itab-text to fname.

endloop.

if sy-subrc = 0.

write : 'file is opened'.

endif.

if sy-subrc <> 0.

exit.

endif.

*&----

*& CLOSING A FILE

*&----

close dataset fname.

Regards,

Arunsri

Re: Problem in sending file to application server from presentation server

Former Member — Wed, 05 Mar 2008 06:33:10 GMT

try this

APPLICATION SERVER ALONG WITH LOGICAL PATH

DATA: BEGIN OF wi_itab OCCURS 0,

name(10) TYPE c,

addr(20) TYPE c,

END OF wi_itab.

DATA: file TYPE rlgrap-filename." TYPE path-pathextern.

data: wg_file type filename-fileextern.

PARAMETER: p_lpath TYPE filename-fileintern.

*&----

*& OPEN AND WRITE THE CONTENT TO A FILE

*&----

CALL FUNCTION 'FILE_GET_NAME'

EXPORTING

CLIENT = SY-MANDT

logical_filename = P_LPATH

OPERATING_SYSTEM = SY-OPSYS
PARAMETER_1 = ' '
PARAMETER_2 = ' '
PARAMETER_3 = ' '
USE_PRESENTATION_SERVER = ' '
WITH_FILE_EXTENSION = ' '
USE_BUFFER = ' '
ELEMINATE_BLANKS = 'X'

IMPORTING

EMERGENCY_FLAG =
FILE_FORMAT =

file_name = file

EXCEPTIONS

file_not_found = 1

OTHERS = 2

concatenate FILE fname into wg_file.

*write 'output'.

WRITE: / wg_file.

OPEN DATASET wg_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

WI_ITAB-NAME = 'rani'.

WI_ITAB-ADDR = 'cbe'.

APPEND WI_ITAB. "append data to internal table

CLEAR WI_ITAB.

WI_ITAB-NAME = 'mala'.

WI_ITAB-ADDR = 'chennai'.

APPEND WI_ITAB. "append data to internal table

CLEAR WI_ITAB.

LOOP AT WI_ITAB.

TRANSLATE WI_ITAB TO UPPER CASE. "translate lowercase to upper case letters

TRANSFER WI_ITAB TO wg_file. "send the internal table content to a file

ENDLOOP.

*&----

*& CLOSE A FILE

*&----

CLOSE DATASET wg_file.

*FREE THE INTERNAL TABLE MEMORY SPACE

FREE WI_ITAB.

*&----

*& OPEN AND READ A FILE

*&----

OPEN DATASET wg_file FOR INPUT IN TEXT MODE ENCODING DEFAULT.

WRITE : 'THE CONTENT OF THE FILE IS'.

DO.

READ DATASET wg_file INTO WI_ITAB.

IF SY-SUBRC = 0.

WRITE: / WI_ITAB-NAME, WI_ITAB-ADDR.

ELSE.

EXIT.

ENDIF.

ENDDO.

*&----

*& CLOSE A FILE

*&----

CLOSE DATASET wg_file.