Function Module

[Former Member]

Hi Experts,

I have to read the data from the file which is located

at application server.If there is any function module

for this can suggest me.

Helpful answers will be rewarded.

Regards

Ashok

[Former Member]

Hi,

To read data from application server you need to READ DATASET

OPEN DATASET <filename> IN TEXT MODE FOR INPUT

encoding DEFAULT.

DO.

READ DATASET <filename> INTO wa.

IF SY-SUBRC EQ 0.

APPEND wa TO itab.

ELSE.

EXIT.

ENDIF.

ENDDO.

CLOSE DATASET <filename>.

Cheers,

Aditya

Edited by: Aditya Laud on Feb 25, 2008 4:37 AM

[Former Member]

Hi

You have to use FILE commands to read the data from file

You can try this FM

CV120_READ_FILE2TABLE

Regards

Shiva

[Former Member]

hi Shiva,

After we had given the file path to the FM it is

throwing an error like "No authorization to open the

file".

If possible could u help frm this issue.

Regards

Ashok

[Former Member]

Hi,

I think you dont have authorisation to read the files from Applicatio server goto al11 and check

if not contact your basis team they might have disabled the authorisation

regards

Shiva

[Former Member]

hi,

chk this prog

report zexternalfile4 .

tables : zzpublisher,

sscrfields.

data: it_publisher like standard table of zzpublisher,

wa_publisher like zzpublisher.

open dataset 'SIVA.TXT' for input in text mode.

do.

if sy-subrc = 0.

read dataset 'SIVA.TXT' into wa_publisher.

append wa_publisher to it_publisher.

else.

exit.

endif.

enddo.

loop at it_publisher into wa_publisher.

write : / wa_publisher-publishercode , wa_publisher-publishername ,

wa_publisher-city.

endloop.

CHK THE BELOW LINK

-SIva

[Former Member]

Hi,

DATA: gt_data_raw TYPE TRUXS_T_TEXT_DATA,

gd_data_raw LIKE LINE OF gt_data_raw,

gt_data TYPE STANDARD TABLE OF z_my_structure. " could be type definition as well

OPEN DATASET gd_csvfile FOR INPUT IN TEXT MODE ENCODING DEFAULT.

CHECK ( sy-subrc = 0 ).

REFRESH: gt_data_raw.

DO.

READ DATASET gd_csvfile INTO gd_data_raw.

IF ( syst-subrc NE 0 ).

EXIT.

ENDIF.

APPEND gd_data_raw TO gt_data_raw.

ENDDO.

CLOSE DATASET gd_csvfile.

[Former Member]

hi

good

REPORT ZUNIXFILES MESSAGE-ID Z1

NO STANDARD PAGE HEADING

LINE-COUNT 65

LINE-SIZE 132.

----

---

• Global Variables. *

----

---

DATA: BEGIN OF TABL OCCURS 0,

LINE(2000),

END OF TABL.

DATA: PARCOM_LOC LIKE RS37A-LINE.

DATA: SIZE(10) TYPE C,

LINE LIKE TABL-LINE,

SUM(16) TYPE C.

DATA: FILE LIKE RS37A-LINE.

DATA: PATH(255) TYPE C.

----

---

• Parameters. *

----

---

SELECTION-SCREEN SKIP 2.

PARAMETERS: PARCOM LIKE RS37A-LINE.

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

*AT SELECTION-SCREEN.

AT SELECTION-SCREEN.

CONDENSE: PARCOM NO-GAPS.

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

*TOP-OF-PAGE.

TOP-OF-PAGE.

PERFORM WRITE_PAGE_HEADING.

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

*INITIALIZATION.

INITIALIZATION.

PARCOM = '/usr/sap/*'. "Only default value

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

*START-OF-SELECTION.

START-OF-SELECTION.

PERFORM MAKE_LOC.

PERFORM COLLECT_DATA.

PERFORM FILE_LIST.

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

*AT LINE-SELECTION.

AT LINE-SELECTION.

CLEAR FILE.

FILE = SY-LISEL+55.

REPLACE '|' WITH SPACE INTO FILE.

IF SY-LISEL+1(1) = 'd'.

PATH = FILE.

PATH+200 = '/*'.

CONDENSE PATH NO-GAPS.

SUBMIT ZUNIXFILES

WITH PARCOM = PATH

AND RETURN.

ENDIF.

SUBMIT ZBROWSEFILE "Call the browse program

WITH PARCOM = FILE

AND RETURN.

----

---

• FORM MAKE_LOC. *

----

---

FORM MAKE_LOC.

CLEAR: PARCOM_LOC.

PARCOM_LOC(7) = 'ls -ld '.

PARCOM_LOC+7(45) = PARCOM.

ENDFORM.

----

---

• FORM COLLECT_DATA. *

----

---

FORM COLLECT_DATA.

REFRESH TABL.

CALL 'SYSTEM' ID 'COMMAND' FIELD PARCOM_LOC

ID 'TAB' FIELD TABL-SYS.

ENDFORM.

----

---

• FORM FILE_LIST. *

----

---

FORM FILE_LIST.

FORMAT RESET.

CLEAR SUM.

LOOP AT TABL.

CLEAR LINE.

LINE = TABL-LINE.

WRITE /2 LINE.

PERFORM VERTICAL_LINES.

SUM = SUM + SIZE.

ENDLOOP.

WRITE:/1(132) SY-ULINE.

ENDFORM.

----

---

• FORM WRITE_PAGE_HEADING. *

----

---

FORM WRITE_PAGE_HEADING.

WRITE:/1(132) SY-ULINE.

PERFORM VERTICAL_LINES.

FORMAT INTENSIFIED.

WRITE: /2(131) SPACE COLOR 1.

WRITE: 2 SY-DATUM COLOR 1.

WRITE: 35 'File Manager' COLOR 1.

PERFORM VERTICAL_LINES.

WRITE:/1(132) SY-ULINE.

PERFORM VERTICAL_LINES.

FORMAT INTENSIFIED.

WRITE: /2(131) SPACE COLOR 3.

PERFORM VERTICAL_LINES.

FORMAT RESET.

WRITE:/1(132) SY-ULINE.

ENDFORM.

----

---

• FORM VERTICAL_LINES. *

----

---

FORM VERTICAL_LINES.

PERFORM WRITE_VLINE USING ' ' 1.

PERFORM WRITE_VLINE USING ' ' 132.

ENDFORM.

----

---

• WRITE_VLINE. *

----

---

FORM WRITE_VLINE USING MODE POS.

IF MODE NE 'T'.

FORMAT INTENSIFIED.

ENDIF.

POSITION POS.

WRITE: SY-VLINE.

IF MODE NE 'T'.

FORMAT RESET.

ENDIF.

ENDFORM.

thanks

mrutyun^

[Former Member]

hi,

Hi,

If u want to read from Files from Applicatin Server U can go for

Open Data Set File for reading in text mode encoding default

This option enables u to read the file from Application Server & coming to Reading Header details into one internal table & Item detail into One Internal table

U can use

AT First

On change of

conditions to read

or

First you can download the excel file to internal table form by using TEXT_CONVERT_XLS_TO_SAP.Then use the below logic LOOP AT itab INTO watab.

if watab-col01 = 'H' OR watab-col01 = 'I' .

AT END OF col01.

IF watab-col01 EQ 'I'. "Counter reset for next document

ENDIF.

ENDAT.

Endif.

ENDLOOP.

[Former Member]

OPEN DATASET W_FILENAME_ACRO FOR OUTPUT IN TEXT MODE ENCODING DEFAULT

WITH WINDOWS LINEFEED MESSAGE W_MESSAGES.