Please look into this.. where i have to write at end of

Question

HI all ,
i am getting this output in my report.
the first column is the division (D.C) and the next couln is the no of consumer(no of business partner in a perticular dc (this is the count of dc))
314200     0
314201     1     
334300     0
i got the value of the first two digit of dc in a variable.
now when it change from 31 to 33 i want to get the value of no of count .
but the atatement AT END OF IS NOT WORKING ...
Can anyone just look at the code and let me where i have to change..
REPORT  ZDISTRICT_CUST_AUCSALES.
       LINE-COUNT 40(4).
******************************************************TABLE DECLARATION
TABLES: /BIC/AUCSALES00,
        /BIC/TCOKEY.
*******************************************************DATA DECLARATION
DATA:  BEGIN OF ITAB OCCURS 0,
       /BIC/COKEY LIKE /BIC/TCOKEY-/BIC/COKEY,
       TXTSH      LIKE /BIC/TCOKEY-TXTSH,
       END OF ITAB.
DATA:  BEGIN OF ITAB2 OCCURS 0,
       BILL_DATE   LIKE /BIC/AUCSALES00-BILL_DATE,
       /BIC/COKEY  LIKE /BIC/AUCSALES00-/BIC/COKEY,
       BPARTNER    LIKE /BIC/AUCSALES00-BPARTNER,
       END OF ITAB2.
DATA:  COUNT TYPE I,
       COKEY TYPE I,
       COKEYNO(2) TYPE C,
       BILDT TYPE I.
DATA: C TYPE I VALUE 2.
*DATA: /BIC/COKEY TYPE /BIC/AUCSALES00-/BIC/COKEY.
SELECT OPTION FOR DATE SELECTION IN THE SELECTION SCREEN.
SELECTION-SCREEN BEGIN OF BLOCK DATE WITH FRAME TITLE TEXT-001.
     SELECT-OPTIONS: S_BILDT FOR /BIC/AUCSALES00-BILL_DATE OBLIGATORY default sy-datum.
SELECTION-SCREEN END OF BLOCK DATE.
*********************************************************INITIALIZATION
*INITIALIZATION.
FORMAT INTENSIFIED ON COLOR = C.
write:/  'PROCESSING DATE:',    20 SY-DATUM,
     125 'TIME           :',   130 SY-UZEIT.
WRITE:/  'USER NAME      :',    20 SY-UNAME, 138 ' '.
WRITE SY-ULINE.
WRITE: / 'D.C'                   , 12 SY-VLINE,
         'NAME OF D.C'        , 36 SY-VLINE,
         'BILL DATE'             , 53 SY-VLINE,
         'NUMBER OF CONSUMER' , 74 SY-VLINE,
         'REMARKS'            ,105 SY-VLINE.
write sy-uline.
*ULINE AT (100).
FORMAT INTENSIFIED OFF.
*END-OF-PAGE.
WRITE:/40 'PAGE NO:', SY-PAGNO.
*****************************************************AT SELECTION-SCREEN
SELECT BILL_DATE
       UP TO 1 ROWS
       INTO (/BIC/AUCSALES00-BILL_DATE)
       FROM /BIC/AUCSALES00
       WHERE BILL_DATE IN S_BILDT.
ENDSELECT.
IF SY-SUBRC <> 0.
      WRITE:/ ' NO DATA FOUND ON THIS DATE'.
      EXIT.
ENDIF.
START OF SELECTION
SELECT /BIC/COKEY TXTSH from /BIC/TCOKEY into table itab.
IF NOT ITAB[] IS INITIAL.
SELECT  BILL_DATE
         /BIC/COKEY
         BPARTNER
         FROM /BIC/AUCSALES00
         INTO CORRESPONDING FIELDS OF TABLE ITAB2
         FOR ALL ENTRIES IN ITAB
         WHERE /BIC/COKEY = ITAB-/BIC/COKEY
         AND BILL_DATE IN S_BILDT.
SORT ITAB BY /BIC/COKEY.
ENDIF.
***********************CHECK WHETHER THE DATA RETRIVE SUCESSFULLY OR NOT
IF SY-SUBRC NE 0.
  WRITE:/ 'THIS DATE DOESNOT CONTAIN ANY DATA'.
ENDIF.
************************************************************DATA DISPLAY
LOOP AT ITAB.
MOVE: ITAB-/BIC/COKEY+4(2) to COKEYNO.
READ TABLE ITAB2 WITH KEY /BIC/COKEY = itab-/BIC/COKEY.
IF SY-SUBRC = 0.
       SORT ITAB2 BY /BIC/COKEY.
       DELETE ADJACENT DUPLICATES FROM ITAB2 COMPARING /BIC/COKEY.
ENDIF.
IF ITAB2-/BIC/COKEY = ITAB-/BIC/COKEY.
       SELECT COUNT( DISTINCT BPARTNER )
              INTO COUNT
              FROM /BIC/AUCSALES00
              WHERE /BIC/COKEY = ITAB2-/BIC/COKEY and
              BILL_DATE IN S_BILDT.
      COKEY = ITAB2-/BIC/COKEY.
      WRITE:/ ITAB2-/BIC/COKEY,             SY-VLINE,
           15 ITAB-TXTSH,                   SY-VLINE,
           42 ITAB2-BILL_DATE,              SY-VLINE,
           55 COUNT,                    74  SY-VLINE,
              ' ',                     105  SY-VLINE.
      WRITE:/ SY-ULINE.
  ELSE.
     COKEY = ITAB-/BIC/COKEY.
     WRITE:/ ITAB-/BIC/COKEY,                SY-VLINE,
          15 ITAB-TXTSH,                     SY-VLINE,
          51 '0' ,                           SY-VLINE,
          55 'Not Processed',              74 SY-VLINE,
             'Data Not extracted to BW', 105 SY-VLINE.
      WRITE:/ SY-ULINE.
ENDIF.
CLEAR: ITAB, ITAB2.
ENDLOOP.
thanks in advance..

Answer 1

Hi
In this case instead of using AT END OF just create temp. which will hold in it last value of dc,every loop run, check it with new value, if it not equal - get the desired value
only condition - itab must be sorted
temp = 'x'. -->you need to put the first value
loop at itab.
if temp <> COKEYNO.
--->your actions to get your value
endif.
temp = COKEYNO.
endloop.
OR
you can add one more field to itab (better first) with COKEYNO
fill itab in this field and then
loop at itab.
at end of cokeyno.
endloop.
Regards
Yossi