Problem in displaying output - MBLNR FIELD

Question

Hi,
I had developed a code in which i am not able to display the 1st fields properly in the output i.e. mblnr field.
In debugg mode i am able to fetch data coreectly for it ,but whne it comes to the display it shows no correct data for that field and rest of the fields data is correct.
here's d code:-
Tables: RSEG,MKPF.
DATA: BEGIN OF ITBKPF OCCURS 0,
      BUKRS LIKE BKPF-BUKRS,
      BELNR LIKE BKPF-BELNR,
      GJAHR LIKE BKPF-GJAHR,
      AWKEY LIKE BKPF-AWKEY,
      BUDAT LIKE BKPF-BUDAT,
      XBLNR LIKE BKPF-XBLNR,
      AWTYP LIKE BKPF-AWTYP,
      END OF ITBKPF.
DATA: BEGIN OF ITAB2 OCCURS 0,
      BUKRS LIKE BSIK-BUKRS,
      GJAHR LIKE BSIK-GJAHR,
      XBLNR LIKE BSIK-XBLNR,
      BELNR LIKE BSIK-BELNR,
      WRBTR LIKE BSIK-WRBTR,
      LIFNR LIKE BSIK-LIFNR,
      END OF ITAB2.
DATA: BEGIN OF ITDEMO OCCURS 0,
      BELNR LIKE RSEG-BELNR,
      GJAHR LIKE RSEG-GJAHR,
      LFBNR LIKE RSEG-LFBNR,
      END OF ITDEMO.
DATA: BEGIN OF ITFINAL OCCURS 0,
      BUKRS LIKE BKPF-BUKRS,
      BELNR LIKE BKPF-BELNR,
      GJAHR LIKE BKPF-GJAHR,
      AWTYP LIKE BKPF-AWTYP,
      AWKEY LIKE BKPF-AWKEY,
      MBLNR LIKE MKPF-MBLNR,
      MJAHR LIKE MKPF-MJAHR,
      LFBNR LIKE RSEG-LFBNR,
      WRBTR LIKE BSIK-WRBTR,
      LIFNR LIKE BSIK-LIFNR,
      END OF ITFINAL.
*SELECT-OPTIONS: S_MBLNR FOR MKPF-MBLNR.
SELECT-OPTIONS: P_LFBNR FOR RSEG-LFBNR.
START-OF-SELECTION.
BKPF
    SELECT BUKRS BELNR GJAHR AWKEY BUDAT XBLNR AWTYP
    FROM BKPF
    INTO (ITBKPF-BUKRS,ITBKPF-BELNR,ITBKPF-GJAHR,
         ITBKPF-AWKEY,ITBKPF-BUDAT,ITBKPF-XBLNR,ITBKPF-AWTYP)
    WHERE AWTYP EQ 'MKPF' OR AWTYP EQ 'RMRP'.
MKPF
***********BEGIN OF TRY CODE***********
    ITDEMO-BELNR = ITBKPF-AWKEY(10).
    ITDEMO-GJAHR = ITBKPF-AWKEY+10(4).
    SELECT LFBNR FROM RSEG INTO
    (ITDEMO-LFBNR) WHERE
    BELNR EQ ITBKPF-AWKEY(10)
    AND GJAHR EQ ITBKPF-AWKEY+10(4) AND LFBNR > 0.
***********END OF TRY CODE**************
  CHECK SY-SUBRC EQ 0 AND ITDEMO-LFBNR IN P_LFBNR.
BSIK
    ITAB2-BUKRS = ITBKPF-BUKRS.
    ITAB2-GJAHR = ITBKPF-GJAHR.
    ITAB2-BELNR = ITBKPF-BELNR.
    ITAB2-XBLNR = ITBKPF-XBLNR.
    SELECT WRBTR LIFNR FROM BSIK
    INTO (ITAB2-WRBTR, ITAB2-LIFNR)
    WHERE BUKRS EQ ITBKPF-BUKRS
      AND GJAHR EQ ITBKPF-GJAHR
      AND BELNR EQ ITBKPF-BELNR
      AND XBLNR EQ ITBKPF-XBLNR.
    APPEND ITAB2.
    EXIT.
    ENDSELECT.
  CHECK sy-subrc EQ 0?
    APPEND ITDEMO.
    EXIT.
    ENDSELECT.
    APPEND ITBKPF.
    ENDSELECT.
Fields Found?
  READ TABLE ITBKPF TRANSPORTING NO FIELDS INDEX 1.
  IF sy-subrc NE 0.
    MESSAGE i000(zmm1) WITH 'No documents found!'.
  ENDIF.
Prepare Output
  LOOP AT ITBKPF.
    CLEAR ITAB2.
    READ TABLE ITAB2
    WITH KEY   BUKRS = ITBKPF-BUKRS
               BELNR = ITBKPF-BELNR
               GJAHR = ITBKPF-GJAHR
               XBLNR = ITBKPF-XBLNR.
    ITFINAL-MBLNR = ITDEMO-LFBNR.
    ITFINAL-BELNR = ITBKPF-BELNR.
    ITFINAL-GJAHR = ITBKPF-GJAHR.
    ITFINAL-AWKEY = ITBKPF-AWKEY.
    ITFINAL-WRBTR = ITAB2-WRBTR.
    ITFINAL-LIFNR = ITAB2-LIFNR.
    APPEND ITFINAL.
    CLEAR  ITFINAL.
  ENDLOOP.
DELETE ITFINAL WHERE WRBTR = 0.
END-OF-SELECTION
END-OF-SELECTION.
DELETE ITFINAL WHERE WRBTR = 0.
Output
  LOOP AT ITFINAL.
    WRITE: / ITFINAL-MBLNR,ITFINAL-BELNR, ITFINAL-GJAHR,ITFINAL-AWKEY, ITFINAL-WRBTR, ITFINAL-LIFNR.
  ENDLOOP.

Answer 1

HI,
  Don't use offset values in the WHERE class of SELECT. I replied the same thing in the first day in your earlier posting.
Check the below code.....
CLEAR : lv_belnr,lv_gjahr.
lv_belnr = ITBKPF-AWKEY(10).
lv_gjahr = ITBKPF-AWKEY+10(4).
SELECT LFBNR FROM RSEG INTO
(ITDEMO-LFBNR) WHERE
BELNR EQ lv_belnr
AND GJAHR EQ lv_gjahr
AND LFBNR > 0.
Rgds,
Bujji