How to write message?

[Former Member]

Hi,

I have a problem in writting message after the file was downloaded. Please help.

When the records were dowloaded, a message wiil show like:

43 records writen in file C:\TEMP\CU_CC2080_25012008_093323.txt

What I need to do is to add message under the original one and say like:

customer code

1111 download successfully.

2222 download successfully.

3333 NG (reason: was deleted in the internal table)

4444 dowload successfylly.

How can I write the coding, please help! Thank you!

The original source code:

-

---

DATA: z_anz_s LIKE sy-tabix,

anz_dl TYPE p,

h_betrg LIKE bsid-wrbtr,

h_dmbtr LIKE bsid-wrbtr,

hs_betrg(14),

BEGIN OF htext,

anzahl(6),

text1(24) VALUE ' records writen in file ',

datei(128),

END OF htext,

p_pfad TYPE string.

-

---

[Former Member]

hi,

whther u need to write the data into the flat file or just display the sucessfully downloaded records?

[Former Member]

Hi,

Thank you for your replay, I just need to display the sucessful and unsucessful downloaded records .

Please help, thank you.

[Former Member]

Hi

While downloading records, check sy-subrc and populate internal table,

which u can read as per ur reqmt .

LOOP at Itab . ( for downloading )

IF SY_SUBRC = 0 .

work area = 'record number succesfully downloaded .

append work area to table .

ELSe.

work area = 'record number unsuccesful .

append work area to table .

ENDIF.

ENDLOOP.

Then where ever u want to write the message use this table.

Hope it helps, otherwise let us know exactly how you are downloading .

Thanks

Praveen

[Former Member]

Hi,

Thank you for your reply!

The download coding as following:

-

---

LOOP AT t.

AT NEW bukrs.

CLEAR anz_dl.

CLEAR htext-anzahl.

CLEAR htext-datei.

htext-text1 = ' records writen in file '.

CLEAR p_pfad.

CONCATENATE

i_pfad

'CU_CC'

t-bukrs

'_'

sy-datum+6(2)

sy-datum+4(2)

sy-datum(4)

'_'

sy-uzeit

'.txt'

INTO p_pfad.

CLEAR outtab.

REFRESH outtab.

REFRESH: gt_outalv. "INS MG020207

ENDAT.

• IF t-shkzg = 'H'.

• h_betrg = t-wrbtr * -1.

• ELSE.

h_betrg = t-wrbtr.

h_dmbtr = t-dmbtr.

• ENDIF.

s-filler1 = s-filler2 = s-filler3 = s-filler4 = s-filler5 = ';'.

s-filler6 = s-filler7 = s-filler8 = ';'.

s-filler9 = s-filler10 = s-filler11 = s-filler12 = s-filler13 = ';'.

s-filler14 = ';'.

s-belnr = t-belnr.

IF t-xblnr NE space. "WD041005a

s-xblnr = t-xblnr. "WD041005a

• ELSE. "WD041005a

• s-xblnr = t-belnr. "WD041005a

ENDIF. "WD041005a

WHILE s-xblnr(1) EQ '0'. "INS MG130606

SHIFT s-xblnr LEFT. "INS MG130606

ENDWHILE. "INS MG130606

IF t-waers = 'JPY'.

h_dmbtr = h_dmbtr.

ELSE.

h_dmbtr = h_dmbtr * 100.

ENDIF.

WRITE t-kunnr TO s-kunnr NO-ZERO.

s-lifn2 = s-kunnr.

SHIFT s-lifn2 RIGHT.

s-lifn2(1) = 'R'.

• S-KUNNR = T-KUNNR+5(5).

s-bldat+2(1) = '/'.

s-bldat+5(1) = '/'.

s-bldat0(2) = t-bldat4(2).

s-bldat3(2) = t-bldat6(2).

s-bldat6(4) = t-bldat0(4).

s-budat+2(1) = '/'.

s-budat+5(1) = '/'.

s-budat0(2) = t-budat4(2).

s-budat3(2) = t-budat6(2).

s-budat6(4) = t-budat0(4).

s-netdt+2(1) = '/'.

s-netdt+5(1) = '/'.

s-netdt0(2) = t-netdt4(2).

s-netdt3(2) = t-netdt6(2).

s-netdt6(4) = t-netdt0(4).

s-waers = t-waers.

s-dmbtr = t-dmbtr.

s-sgtxt = t-sgtxt.

CLEAR s-twaer.

SELECT SINGLE waers INTO s-twaer

FROM t001

WHERE bukrs = t-bukrs.

IF h_betrg < 0.

hs_betrg+0(1) = '-'.

ELSE.

hs_betrg+0(1) = ' '.

ENDIF.

WRITE h_betrg CURRENCY t-waers TO hs_betrg+1 NO-GROUPING

NO-SIGN

LEFT-JUSTIFIED.

REPLACE ',' WITH '.' INTO hs_betrg.

WRITE hs_betrg TO s-betrg.

IF h_dmbtr < 0.

hs_betrg+0(1) = '-'.

ELSE.

hs_betrg+0(1) = ' '.

ENDIF.

WRITE h_dmbtr CURRENCY t-waers TO hs_betrg+1 NO-GROUPING

NO-SIGN

LEFT-JUSTIFIED.

REPLACE ',' WITH '.' INTO hs_betrg.

WRITE hs_betrg TO s-dmbtr.

s-compcode = t-bukrs. "fw070905

IF p_downl = 'X'.

MOVE s TO outtab-s.

APPEND outtab.

ADD 1 TO anz_dl.

ENDIF.

gs_outalv-belnr = s-belnr. "INS MG020207

gs_outalv-zuonr = s-zuonr. "CR01

gs_outalv-kunnr = s-kunnr. "INS MG020207

gs_outalv-bldat = s-bldat. "INS MG020207

gs_outalv-netdt = s-netdt. "INS MG020207

gs_outalv-betrg = s-betrg. "INS MG020207

gs_outalv-waers = s-waers. "INS MG020207

gs_outalv-compcode = s-compcode. "INS MG020207

gs_outalv-budat = s-budat. "INS MG020207

gs_outalv-sgtxt = s-sgtxt.

gs_outalv-kmmnt = s-kmmnt.

gs_outalv-vbeln = s-vbeln.

gs_outalv-xblnr = s-xblnr.

gs_outalv-lifn2 = s-lifn2.

gs_outalv-dmbtr = s-dmbtr.

gs_outalv-twaer = s-twaer.

APPEND gs_outalv TO gt_outalv. "INS MG020207

AT END OF bukrs.

WRITE anz_dl TO htext-anzahl.

WRITE p_pfad TO htext-datei.

CONDENSE htext.

wa_sort-fieldname = 'BELNR'. " speicfy field name..

wa_sort-up = 'X'.

wa_sort-subtot = 'X'.

APPEND wa_sort TO i_sort.

CLEAR wa_sort.

IF p_downl = 'X'.

SKIP 2.

WRITE: / htext.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

filename = p_pfad

filetype = 'ASC'

TABLES

data_tab = outtab

EXCEPTIONS

file_write_error = 1

no_batch = 2

gui_refuse_filetransfer = 3

invalid_type = 4

no_authority = 5

unknown_error = 6

header_not_allowed = 7

separator_not_allowed = 8

filesize_not_allowed = 9

header_too_long = 10

dp_error_create = 11

dp_error_send = 12

dp_error_write = 13

unknown_dp_error = 14

access_denied = 15

dp_out_of_memory = 16

disk_full = 17

dp_timeout = 18

file_not_found = 19

dataprovider_exception = 20

control_flush_error = 21

OTHERS = 22.

IF sy-subrc <> 0.

• write: / 'Error creating File:', P_Pfad, sy-subrc.

MESSAGE e405 WITH text-002 p_pfad.

ENDIF.

ENDIF.

*<<<<< INS MG020207

IF p_alvd EQ 'X'.

PERFORM build_layout_data.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-repid

i_structure_name = 'GT_OUTALV'

is_layout = gs_layout

it_fieldcat = gt_fieldcat[]

i_callback_top_of_page = 'TOP-OF-PAGE'

it_sort = i_sort

TABLES

t_outtab = gt_outalv.

ENDIF.

*>>>>> INS MG020207

ENDAT.

ENDLOOP.

Please help. Thank you .