need help to write processing log.

[Former Member]

hi,

I have a problem in writting processing log. in the htext, I need to add some thing to show which s-kunnr are dowloaded and which s-kunnr are not dowloaded.

Question:

How can I make the coding for htext?

Please help. Thank you!!

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.

.

.

IF p_downl = 'X'.

MOVE s TO outtab-s.

APPEND outtab.

ADD 1 TO anz_dl.

ENDIF.

gs_outalv-belnr = s-belnr. "INS MG020207

*<<<< CR01 START CHANGE BY LI_Y 2007/12/24 " ADD as_outalv-zuonr

gs_outalv-zuonr = s-zuonr. "CR01

*>>>> CR01 EDD CHANGE BY LI_Y 2007/12/24 "ADD as_outalv-zuonr

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.*

[Former Member]

Hi Study abap,

go through this code and use the HTEXT fm accordingly to ur requirement. This is just a sample kind of thing which will help u to write s-kunnr in htext.

SELECT-OPTIONS: S_MATNR FOR PBIM-MATNR,

S_WERKS FOR PBIM-WERKS.

DATA: BEGIN OF HTEXT.

INCLUDE STRUCTURE THEAD.

DATA: END OF HTEXT.

DATA: BEGIN OF LTEXT OCCURS 50.

INCLUDE STRUCTURE TLINE.

DATA: END OF LTEXT.

DATA: BEGIN OF DTEXT OCCURS 50.

DATA: MATNR LIKE PBIM-MATNR.

INCLUDE STRUCTURE TLINE.

DATA: END OF DTEXT.

DATA: TNAME LIKE THEAD-TDNAME.

SELECT * FROM PBIM WHERE WERKS IN S_WERKS.

MOVE PBIM-BDZEI TO TNAME.

CALL FUNCTION 'READ_TEXT'

EXPORTING

• CLIENT = SY-MANDT

ID = 'PB'

LANGUAGE = 'E'

NAME = TNAME

OBJECT = 'PBPT'

• ARCHIVE_HANDLE = 0

IMPORTING

HEADER = HTEXT

TABLES

LINES = LTEXT

EXCEPTIONS

ID = 1

LANGUAGE = 2

NAME = 3

NOT_FOUND = 4

OBJECT = 5

REFERENCE_CHECK = 6

WRONG_ACCESS_TO_ARCHIVE = 7

OTHERS = 8.

LOOP AT LTEXT.

IF LTEXT-TDLINE NE ''.

MOVE LTEXT-TDLINE TO DTEXT-TDLINE.

MOVE PBIM-MATNR TO DTEXT-MATNR.

APPEND DTEXT.

ENDIF.

ENDLOOP.

ENDSELECT.

LOOP AT DTEXT.

WRITE:/ DTEXT-MATNR, DTEXT-TDLINE.

ENDLOOP.

Kindly reward fi found helpful.

cheers,

Hema.