topic Re: Internal table vaules in application server in Application Development and Automation Discussions

Internal table vaules in application server

Former Member — Thu, 03 Apr 2008 09:09:27 GMT

Hi Experts,

I want to download my internal table values in application server,

Please give me some idea how i can do this.

rajneesh

Re: Internal table vaules in application server

Former Member — Thu, 03 Apr 2008 09:13:39 GMT

Hi,

Use the FM - GUI_DOWNLOAD

Just see this sample code:

&----

*& Report ZSD_EXCEL_INT_APP

&----

REPORT ZSD_EXCEL_INT_APP.

parameter: file_nm type localfile.

types : begin of it_tab1,

f1(20),

f2(40),

f3(20),

end of it_tab1.

data : it_tab type table of ALSMEX_TABLINE with header line,

file type rlgrap-filename.

data : it_tab2 type it_tab1 occurs 1,

wa_tab2 type it_tab1,

w_message(100) TYPE c.

at selection-screen on value-request for file_nm.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

EXPORTING

PROGRAM_NAME = SYST-REPID

DYNPRO_NUMBER = SYST-DYNNR

FIELD_NAME = ' '

STATIC = 'X'

MASK = ' '

CHANGING

file_name = file_nm

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.

start-of-selection.

refresh it_tab2[].clear wa_tab2.

file = file_nm.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'

EXPORTING

filename = file

i_begin_col = '1'

i_begin_row = '1'

i_end_col = '10'

i_end_row = '35'

tables

intern = it_tab

EXCEPTIONS

INCONSISTENT_PARAMETERS = 1

UPLOAD_OLE = 2

OTHERS = 3

IF sy-subrc 0.

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

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

ENDIF.

loop at it_tab.

case it_tab-col.

when '002'.

wa_tab2-f1 = it_tab-value.

when '004'.

wa_tab2-f2 = it_tab-value.

when '008'.

wa_tab2-f3 = it_tab-value.

endcase.

at end of row.

append wa_tab2 to it_tab2.

clear wa_tab2.

endat.

endloop.

data : p_file TYPE rlgrap-filename value 'TEST3.txt'.

OPEN DATASET p_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

Display error messages if any.

IF sy-subrc NE 0.

MESSAGE e001(zsd_mes).

EXIT.

ELSE.

*---Data is downloaded to the application server file path

LOOP AT it_tab2 INTO wa_tab2.

TRANSFER wa_tab2 TO p_file.

ENDLOOP.

ENDIF.

*--Close the Application server file (Mandatory).

CLOSE DATASET p_file.

loop at it_tab2 into wa_tab2.

write : / wa_tab2-f1,wa_tab2-f2,wa_tab2-f3.

endloop.

Also refer this link :

Check this

https://forums.sdn.sap.com/search.jspa?threadID=&q=open+dataset&objID=f50&dateRange=last90days&numResults=15

Reward Points if found helpfull..

Cheers,

Chandra Sekhar.

Re: Internal table vaules in application server

Former Member — Thu, 03 Apr 2008 09:15:26 GMT

You can do that using OPEN DATASET , TRANSFER , CLOSE DATASET.

Using open dataset you create the file or open the file for editing or reading.

Transfer will write the contents to application server file.

Close Dataset will close the file.

Read the Help on OpenDatset .

Re: Internal table vaules in application server

Former Member — Thu, 03 Apr 2008 09:16:56 GMT

But...

you want to create a file on server containing your internal table?

In this case you must use the command 'open dataset ' .

See the documentation of command.

http://help.sap.com/saphelp_47x200/helpdata/en/fc/eb3c99358411d1829f0000e829fbfe/frameset.htm

Re: Internal table vaules in application server

Former Member — Thu, 03 Apr 2008 09:17:53 GMT

the code sample is

Basic Form of the OPEN DATASET Statement

To open a file on the application server, use the OPEN statement as follows:

Syntax

OPEN DATASET <dsn> Additions.

This statement opens the file <dsn>. If you do not specify any additions for the mode, the file is opened in binary mode for reading. SY-SUBRC returns 0 if the system opens the file. Otherwise, SY-SUBRC is set to 8.

You enter the filename <dsn> either as a literal or as a field containing the actual name of the file. If you do not specify a path, the system opens the file in the directory in which the R/3 System is running on the application server. To open a file, the user under which the R/3 System is running must have the requisite authorizations at operating system level.

Filenames are platform-specific. You must therefore use file- and pathnames that conform to the rules of the operating system under which your R/3 System is running. However, you can also use logical filenames to ensure that your programs are not operating system-specific. For further information, refer to Using Platform-Independent Filenames.

DATA FNAME(60).

FNAME = '/tmp/myfile'.

OPEN DATASET 'myfile'.

OPEN DATASET FNAME.

This example works as long as your R/3 System is running under UNIX. The program opens the file "myfile" in the directory in which the R/3 System is running, and also opens the file "myfile" in directory "/tmp". However, you would have to change the filename for other operating systems. For example, for OpenVMS, you could write the following:

FNAME = 'TMPmyfile.BIN'

OPEN DATASET 'myfile.BIN'.

Opening a File for Write Access

To open a file for writing, use the FOR OUTPUT addition to the OPEN DATASET statement.

Syntax

OPEN DATASET <dsn> FOR OUTPUT.

If the file does not already exist, it is created automatically. If it does already exist, but is closed, its contents are overwritten. If the file exists and is already open (for read or write access, or for appending), the position is reset to the beginning of the file. If the system can open the file <dsn> successfully, SY-SUBRC is set to 0. If not, it is set to 8.

DATA: MESS(60),

FNAME(10) VALUE '/tmp'.

OPEN DATASET FNAME FOR OUTPUT MESSAGE MESS.

IF SY-SUBRC 0.

WRITE: 'SY-SUBRC:', SY-SUBRC,

/ 'System Message:', MESS.

ENDIF.

If the R/3 System is ruining under UNIX, the output looks like this:

The system cannot open the file, since the name you specified is that of a directory.

The following program shows how the system sets the position when you open a file for writing. However, it is better programming style to close files that are already open before you reopen them for a different operation (for further information about closing files, refer to Closing a File).

DATA FNAME(60) VALUE 'myfile'.

DATA NUM TYPE I.

OPEN DATASET FNAME FOR OUTPUT.

DO 10 TIMES.

NUM = NUM + 1.

TRANSFER NUM TO FNAME.

ENDDO.

PERFORM INPUT.

OPEN DATASET FNAME FOR OUTPUT.

NUM = 0.

DO 5 TIMES.

NUM = NUM + 10.

TRANSFER NUM TO FNAME.

ENDDO.

PERFORM INPUT.

CLOSE DATASET FNAME.

OPEN DATASET FNAME FOR OUTPUT.

NUM = 0.

DO 5 TIMES.

NUM = NUM + 20.

TRANSFER NUM TO FNAME.

ENDDO.

PERFORM INPUT.

FORM INPUT.

SKIP.

OPEN DATASET FNAME FOR INPUT.

DO.

READ DATASET FNAME INTO NUM.

IF SY-SUBRC 0.

EXIT.

ENDIF.

WRITE / NUM.

ENDDO.

ENDFORM.

The output appears as follows:

100

This example performs the following steps using the file "myfile":

It is opened for writing

It is filled with 10 integers (for information about the TRANSFER statement, refer to Writing Data to Files)

It is then opened for reading. The position is reset accordingly to the beginning of the file.

It is read into the field NUM. For information about the READ DATASET statement, refer to Reading Data from Files. The values of NUM are displayed on the screen.

It is reopened for writing The position is reset to the beginning of the file.

It is filled with five integers, which overwrite the previous contents of the file.

It is then reopened for reading. The position is reset to the beginning of the file.

The file is read into the field NUM. The values of NUM are displayed on the screen.

It is closed (for information about the CLOSE DATASET statement, refer to Closing a File).

It is then reopened for writing. The system deletes the existing contents of the file.

It is filled with 5 integers.

It is then opened for reading. The position is reset to the beginning of the file.

The file is read into the field NUM. The values of NUM are displayed on the screen.

Closing a File

To close a file on the application server, use the close statement.

Syntax

CLOSE DATASET <dsn>.

This statement closes the file <dsn>. The naming convention is described in the section Opening a File.

You only need to close a file if you want to delete its contents the next time you open it for write access. For further information and an example, refer to Opening a File for Write Access.

However, to avoid errors, and to make your programs easier to read, you should always close a file before the next OPEN DATASET statement. The CLOSE statement divides your program into logical blocks, and makes them easier to maintain.

DATA FNAME(60) VALUE 'myfile'.

OPEN DATASET FNAME FOR OUTPUT.

.....

CLOSE FNAME.

OPEN DATASET FNAME FOR INPUT.

.....

CLOSE FNAME.

OPEN DATASET FNAME FOR INPUT AT POSITION <pos>.

.....

CLOSE FNAME.

The CLOSE statement is not obligatory in this example, but it does improve the layout of the program.

have alook at this code also

hi check this example..,

&----

*& Report ZTESTPROGRAMFORDOWNLOAD

&----

report ztestprogramfordownload.

tables:zupload.

data:it_pa0002(200).

types: begin of ty_pa0002 ,

pernr like pa0002-pernr,

begda like pa0002-begda,

endda like pa0002-endda,

vorna like pa0002-vorna,

nachn like pa0002-nachn,

end of ty_pa0002.

data:begin of it_error occurs 0 ,

pernr like pa0000-pernr,

end of it_error .

data:it_final type standard table of ty_pa0002 with header line.

data:it_temp type standard table of ty_pa0002 with header line.

parameters:p_file like rlgrap-filename default 'F:\usr\sap\EC6\DVEBMGS00\work\entiraledu1'.

start-of-selection.

open dataset p_file for input in text mode encoding default.

do.

read dataset p_file into it_pa0002.

if sy-subrc = 0.

it_final-pernr = it_pa0002+0(8).

it_final-begda = it_pa0002+18(8).

it_final-endda = it_pa0002+36(8).

it_final-vorna = it_pa0002+54(40).

it_final-nachn = it_pa0002+104(40).

append it_final.

clear it_final.

else.

exit.

endif.

enddo.

if not it_final[] is initial.

sort it_final by pernr begda descending.

delete adjacent duplicates from it_final comparing pernr .

select pernr

begda

endda

vorna

nachn

from pa0002

into table it_temp

for all entries in it_final

where pernr = it_final-pernr.

endif.

loop at it_temp.

zupload-pernr = it_temp-pernr.

zupload-begda = it_temp-begda.

zupload-endda = it_temp-endda.

zupload-vorna = it_temp-vorna.

zupload-nachn = it_temp-nachn.

insert zupload.

clear it_temp.

clear zupload.

endloop.

close dataset p_file.

Do reward if helpful