Very urgent: reterving data from table MKPF table

Question

hi,
i am facing a problem in adding a code i.e. i am having a select statement which use to reterive data from MKPF but i am not able to fetch it as there,i had written code for the RSEG from where i get the Material Document No..
but now i have to take the value from the MKPF as well as it is the requierment of the code.
here is the following code which i am using right now is to reterive data from RSEG :-
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'.
**BEGIN OF TRY CODE FOR A MATERIAL DOCUMENT**
    ITDEMO-BELNR = ITBKPF-AWKEY(10).
    ITDEMO-GJAHR = ITBKPF-AWKEY+10(4).
    ITDEMO-XBLNR = ITBKPF-XBLNR.
    SELECT LFBNR FROM RSEG INTO
    (ITDEMO-LFBNR) WHERE
    BELNR EQ ITBKPF-AWKEY(10) AND
    GJAHR EQ ITBKPF-AWKEY+10(4) AND
    XBLNR EQ ITBKPF-XBLNR AND LFBNR  > 0.
CHECK SY-SUBRC EQ 0 AND ITDEMO-LFBNR IN P_LFBNR.
**END OF TRY CODE FOR A MATERIAL DOCUMENT**
Edited by: abaper2008 on Jun 10, 2008 7:42 AM

Answer 1

hi,
i had deveoped a code for it,is correct or not?
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 ITDEMO OCCURS 0,
      BELNR LIKE RSEG-BELNR,
      GJAHR LIKE RSEG-GJAHR,
      LFBNR LIKE RSEG-LFBNR,
      XBLNR LIKE RSEG-XBLNR,
      END OF ITDEMO.
*******TABLE MKPF - FOR MATERIAL DOCUMENT*********
DATA: BEGIN OF ITDEMO1 OCCURS 0,
      MBLNR LIKE MKPF-MBLNR,
      MJAHR LIKE MKPF-MJAHR,
      XBLNR LIKE MKPF-XBLNR,
      END OF ITDEMO1.
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 FOR A MATERIAL DOCUMENT*
**begin- for bsis to be reterived**
IF ITBKPF-AWTYP EQ 'MKPF'.
    ITDEMO1-MBLNR = ITBKPF-AWKEY(10).
    ITDEMO1-MJAHR = ITBKPF-AWKEY+10(4).
    ITDEMO1-XBLNR = ITBKPF-XBLNR.
    SELECT SINGLE MBLNR FROM MKPF INTO (ITDEMO1-MBLNR)
    WHERE MBLNR EQ ITBKPF-AWKEY(10)
    AND MJAHR EQ ITBKPF-AWKEY+10(4) AND XBLNR > 0.
CHECK SY-SUBRC EQ 0 AND ITDEMO1-MBLNR IN P_LFBNR.
**end -  for bsis to be reterived**
  ELSE.
    ITDEMO-BELNR = ITBKPF-AWKEY(10).
    ITDEMO-GJAHR = ITBKPF-AWKEY+10(4).
    ITDEMO-XBLNR = ITBKPF-XBLNR.
    SELECT LFBNR FROM RSEG INTO
    (ITDEMO-LFBNR) WHERE
    BELNR EQ ITBKPF-AWKEY(10) AND
    GJAHR EQ ITBKPF-AWKEY+10(4) AND
    XBLNR EQ ITBKPF-XBLNR AND LFBNR  > 0.
CHECK SY-SUBRC EQ 0 AND ITDEMO-LFBNR IN P_LFBNR.
END OF TRY CODE FOR A MATERIAL DOCUMENT**
APPEND ITDEMO1.
EXIT.
ENDSELECT.
ENDIF.
APPEND ITDEMO.
EXIT.
ENDSELECT.
APPEND ITBKPF.
ENDSELECT.
Edited by: abaper2008 on Jun 10, 2008 10:19 AM