Need help

[Former Member]

Hi all,

In file handling , I am opening one data set. data is coming correctly . But columns header are not cmng. How can i coded for Headings in dataset file.

please help me in this.

regards,

Ajay reddy

[Former Member]

Hi Dear,

Try this.

TABLES: BKPF,

SKB1,

T001.

DATA: W_INDEX TYPE I VALUE '1'.

DATA: W_FNAME1 TYPE STRING.

DATA : w_msg(150) TYPE c.

DATA : begin of it_file occurs 0,

Text(255) type c,

End of it_file.

• data: file(50).

data file type string value '\usr\sap\DEV\interfaces\sample\CAP_B.txt'.

----

---

• Header Details for Header items

----

---

DATA: BEGIN OF IT_HEADER OCCURS 0,

ind type i, " indicator for feild

bldat(8), " DOC DATE

blart(2), " DOC TYPE

bukrs(4), " COMPANY CODE

budat(8), " POSTING DATE

waers(5), " CURRENCY

xblnr(16), " HEADER REF

bktxt(25), " HEADER TXT

END OF IT_HEADER.

----

---

• Item deatils for line items

----

---

DATA: BEGIN OF IT_ITEM OCCURS 0,

ind type i, " indicator

newbs(2), " POSTING KEY

newko(17), " ACCOUNT

newum(1), " SPL GL INDICATOR

wrbtr(13), " AMOUNT IN FOR CURRENCY

dmbtr(13), " AMOUNT IN LOCAL CURRENCY

zterm(4), " PAYAMENT TERMS

zfbdt(10), " BASE LINE DATE

wt_wit(2), " WITH TAXCODE

wt_qs(15), " WITH TAXCODE

wt_qb(15), " WITH TAXAMOUNT

mwskz(2), " TAXCODE

bupla(4), " BUSINESS PLACE

newbk(4), " LINE ITEM COMAPNY CODE

kostl(10), " COSTCENTER

aufnr(12), " INTERNAL ORDER

prctr(10), " PROFIT CENTER

pernr(8), " PERSONAL NUMBER

zuonr(18), " ASSIGNMENT

xref1(12), " REF1

xref2(12), " REF2

xref3(20), " REF3

sgtxt(50), " LINE TEXT

END OF IT_ITEM.

----

---

• Final Internal table with both header and item details

----

---

DATA : BEGIN OF IT_POST OCCURS 0,

ind(1), " indicator for feild

bldat(8), " DOC DATE

blart(2), " DOC TYPE

bukrs(4), " COMPANY CODE

budat(8), " POSTING DATE

waers(5), " CURRENCY

xblnr(16), " HEADER REF

bktxt(25), " HEADER TXT

newbs(2), " POSTING KEY

newko(17), " ACCOUNT

newum(1), " SPL GL INDICATOR

wrbtr(13), " AMOUNT IN FOR CURRENCY

dmbtr(13), " AMOUNT IN LOCAL CURRENCY

zterm(4), " PAYAMENT TERMS

zfbdt(10), " BASE LINE DATE

wt_wit(2), " WITH TAXCODE

wt_qs(15), " WITH TAXCODE

wt_qb(15), " WITH TAXAMOUNT

mwskz(2), " TAXCODE

bupla(4), " BUSINESS PLACE

newbk(4), " LINE ITEM COMAPNY CODE

kostl(10), " COSTCENTER

aufnr(12), " INTERNAL ORDER

prctr(10), " PROFIT CENTER

pernr(8), " PERSONAL NUMBER

zuonr(18), " ASSIGNMENT

xref1(12), " REF1

xref2(12), " REF2

xref3(20), " REF3

sgtxt(50), " LINE TEXT

END OF IT_POST.

----

---

• SELECTION SCREEN PARAMETER DECLARATION.

----

---

SELECTION-SCREEN BEGIN OF BLOCK BLK_001.

PARAMETERS :PR_FNAME LIKE RLGRAP-FILENAME.

SELECTION-SCREEN END OF BLOCK BLK_001.

PARAMETERS: PR_XBLNR TYPE XBLNR.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR PR_FNAME.

CALL FUNCTION 'F4_FILENAME'

IMPORTING

FILE_NAME = PR_FNAME.

START-OF-SELECTION.

*write '\usr\sap\DEV\interfaces\sample\revenue.txt' to file.

• condense file.

*

W_FNAME1 = PR_FNAME.

*

*

*

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = W_FNAME1

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = ','

TABLES

DATA_TAB = IT_file.

*CREATING FILE IN THE APPLICATION SERVER

OPEN DATASET file FOR OUTPUT IN TEXT MODE encoding default.

LOOP AT IT_FILE.

TRANSFER IT_FILE to file.

ENDLOOP.

CLOSE DATASET file.

----

---

• READING FILE INTO INTERNAL TABLE.

----

---

*OPEN DATASET PR_FNAME FOR INPUT IN TEXT MODE encoding default.

*

*DO.

*

*READ DATASET PR_FNAME INTO IT_POST.

*

*IF SY-SUBRC NE 0.

*

*EXIT.

*

*ENDIF.

*

*ENDDO.

*

*CLOSE DATASET PR_FNAME.

----

---

• DELETING THE FILE FROM THE APPLICATION SERVER.

----

---

*DELETE DATASET file.