How to get data from Application layer to Presentation layer?

Former Member — Tue, 01 Sep 2015 04:45:27 GMT

Hi all,

Can any one tell how can we get the data from application layer to presentation layer at run time in SAP-ABAP.

Re: How to get data from Application layer to Presentation layer?

former_member183519 — Tue, 01 Sep 2015 07:03:02 GMT

Hi Pavan,

Please use below code :-

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

************************** Code Starts *****************************************************

REPORT zupload_al11_test.

******************** Data Declaration Starts ***************************

DATA: ifile TYPE filetable,

l_pcfile TYPE sapb-sappfad,

lv_len TYPE i,

lv_len1 TYPE i,

counter TYPE i,

lv_c(1) TYPE c,

lv_total TYPE i,

xfile LIKE LINE OF ifile,

rc TYPE i.

******************** Data Declaration Ends *****************************

******************** Declaration for Selction Screen Starts ************

***Test start

SELECTION-SCREEN BEGIN OF SCREEN 200 AS WINDOW.

PARAMETERS: p_file TYPE localfile.

DATA:l_serfil TYPE sapb-sappfad.

SELECTION-SCREEN END OF SCREEN 200.

CALL SELECTION-SCREEN '0200' STARTING AT 10 10.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

******************** Declaration for Selction Screen Ends ***************

IF p_file IS INITIAL.

CALL METHOD cl_gui_frontend_services=>file_open_dialog

EXPORTING

initial_directory = 'C:\' " Default drive C for F4 help

CHANGING

file_table = ifile

rc = rc.

READ TABLE ifile INTO xfile INDEX 1.

CHECK sy-subrc = 0.

p_file = xfile-filename.

ENDIF.

START-OF-SELECTION.

l_pcfile = p_file.

IF l_pcfile IS NOT INITIAL.

lv_len = strlen( l_pcfile ).

lv_total = lv_len.

lv_len1 = lv_len - 1.

lv_c = l_pcfile+lv_len1(1).

counter = 0.

WHILE lv_c <> '\'.

lv_len = lv_len - 1.

lv_len1 = lv_len1 - 1.

lv_c = l_pcfile+lv_len1(1).

counter = counter + 1.

ENDWHILE.

lv_total = lv_total - counter.

CONCATENATE '/usr/sap/tmp' l_pcfile+lv_total(counter) INTO l_serfil.

DATA : LD_TGT_FILE TYPE STRING,

LD_SRC_FILE TYPE STRING.

LD_SRC_FILE = l_serfil.

CONCATENATE '/oracle/' l_pcfile+lv_total(counter)'_' SY-DATUM '_' SY-UZEIT '_' SY-UNAME INTOLD_TGT_FILE.

PERFORM COPY_FILE_IN_APP_SERVER USING LD_SRC_FILE

LD_TGT_FILE.

CALL FUNCTION 'ARCHIVFILE_CLIENT_TO_SERVER'

EXPORTING

path = l_pcfile " SOURCE FILE NAME

targetpath = l_serfil " TARGET FILE NAME

EXCEPTIONS

error_file = 1

OTHERS = 2.

IF sy-subrc EQ 0.

MESSAGE 'File Uploaded Successfully.....' TYPE 'S'.

ELSE.

MESSAGE : 'File Uploaded With Errors.....' TYPE 'S' .

ENDIF.

ELSE.

MESSAGE: 'Source or Target File Path is Empty.......' TYPE 'S' .

ENDIF.

FORM COPY_FILE_IN_APP_SERVER USING LV_SRC_FILE TYPE STRING

LV_TGT_FILE TYPE STRING.

DATA: LV_STR TYPE STRING.

" OPEN DATASET FILE FROM SERVER FOR READING

OPEN DATASET LV_SRC_FILE FOR INPUT IN TEXT MODE ENCODING DEFAULT.

IF SY-SUBRC = 0.

OPEN DATASET LV_TGT_FILE FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

DO.

READ DATASET LV_SRC_FILE INTO LV_STR.

IF SY-SUBRC = 0.

TRANSFER LV_STR TO LV_TGT_FILE.

CLEAR LV_STR.

ELSE.

EXIT.

ENDIF.

ENDDO.

ENDIF.

CLOSE DATASET LV_SRC_FILE.

CLOSE DATASET LV_TGT_FILE.

ENDFORM.

******************************** Code Ends ****************************************************

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

Copy and paste above code in SE38.

1) select file from desktop using F4 help

2) Execute Program----->The file will get on AL11 folder "/usr/sap/tmp"

You need to change the folder path as per your requirement...

Regards,

Hitesh Gavande

Re: How to get data from Application layer to Presentation layer?

Former Member — Tue, 01 Sep 2015 08:53:43 GMT

Thank You HITESH GAVANDE

Re: How to get data from Application layer to Presentation layer?

former_member183519 — Tue, 01 Sep 2015 09:08:04 GMT

Hi Pavan,

If you found solution,

Can you close this thread by marking right answer

Regards,

Hitesh

topic Re: How to get data from Application layer to Presentation layer? in Application Development and Automation Discussions

How to get data from Application layer to Presentation layer?

Re: How to get data from Application layer to Presentation layer?

Re: How to get data from Application layer to Presentation layer?

Re: How to get data from Application layer to Presentation layer?