Need help to write processing log.

Question

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

Answer 1

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.