Asset aquisition report help req (urgent)

Question

hi  all,
in my following code there is a problem ie i am not getting all line items from
table ANLC & ANEK.
check the query whether there is any problem in the loop or query .
send me the modification for that or otherwise if u have devloped the code
for asset aquisition then send me that to my id- [email protected]
Report Z_FA_ACQ  NO STANDARD PAGE HEADING
                 LINE-SIZE 400
                 LINE-COUNT 65(3).
TYPE-POOLS : SLIS.
TABLES : ANLA,                     "ASSET MASTER RECORD-SEGMENT
         ANLZ.                     "time dependent asset allocations
DATA : BEGIN OF T_ANLA OCCURS 0,
       BUKRS LIKE ANLA-BUKRS,
       ANLN1 LIKE ANLA-ANLN1,
       ANLN2 LIKE ANLA-ANLN2,
       AKTIV LIKE ANLA-AKTIV,
       TXT50 LIKE ANLA-TXT50,
       ZUGDT LIKE ANLA-ZUGDT,
       MENGE LIKE ANLA-MENGE,
       MEINS LIKE ANLA-MEINS,
       END OF T_ANLA.
DATA : BEGIN OF T_ANLZ OCCURS 0,
       BUKRS LIKE ANLZ-BUKRS,
       ANLN1 LIKE ANLZ-ANLN1,
       ANLN2 LIKE ANLZ-ANLN2,
       GSBER LIKE ANLZ-GSBER,
       KOSTL LIKE ANLZ-KOSTL,
       STORT LIKE ANLZ-STORT,
       RAUMN LIKE ANLZ-RAUMN,
       KFZKZ LIKE ANLZ-KFZKZ,
       END OF T_ANLZ.
DATA : BEGIN OF T_ANEK OCCURS 0,
       BUKRS LIKE ANEK-BUKRS,
       ANLN1 LIKE ANEK-ANLN1,
       ANLN2 LIKE ANEK-ANLN2,
       BELNR LIKE ANEK-BELNR,
       BUDAT LIKE ANEK-BUDAT,
       XBLNR LIKE ANEK-XBLNR,
       SGTXT LIKE ANEK-SGTXT,
       END OF T_ANEK.
DATA : BEGIN OF T_ANLC OCCURS 0,
       BUKRS LIKE ANLC-BUKRS,
       ANLN1 LIKE ANLC-ANLN1,
       ANLN2 LIKE ANLC-ANLN2,
       KANSW LIKE ANLC-KANSW,
       KNAFA LIKE ANLC-KNAFA,
       AAFAP LIKE ANLC-AAFAP,
       AFABE LIKE ANLC-AFABE,
       GJAHR LIKE ANLC-GJAHR,
       END OF T_ANLC.
DATA : BEGIN OF IT_FINAL OCCURS 0,
        ANLN1 LIKE ANLA-ANLN1,
        ANLN2 LIKE ANLA-ANLN2,
        AKTIV LIKE ANLA-AKTIV,
        TXT50 LIKE ANLA-TXT50,
        ZUGDT LIKE ANLA-ZUGDT,
        MENGE LIKE ANLA-MENGE,
        MEINS LIKE ANLA-MEINS,
        GSBER LIKE ANLZ-GSBER,
        KOSTL LIKE ANLZ-KOSTL,
        STORT LIKE ANLZ-STORT,
        RAUMN LIKE ANLZ-RAUMN,
        KFZKZ LIKE ANLZ-KFZKZ,
        BELNR LIKE ANEK-BELNR,
        BUDAT LIKE ANEK-BUDAT,
        XBLNR LIKE ANEK-XBLNR,
        SGTXT LIKE ANEK-SGTXT,
        KANSW LIKE ANLC-KANSW,
        KNAFA LIKE ANLC-KNAFA,
        AAFAP LIKE ANLC-AAFAP,
        GJAHR LIKE ANEK-GJAHR,
        END OF IT_FINAL.
DATA : LINE_COLOR(4) TYPE C.
DATA : FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
       GD_LAYOUT TYPE SLIS_LAYOUT_ALV.
SELECTION-SCREEN : BEGIN OF BLOCK B_FA WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_BUKRS FOR ANLA-BUKRS DEFAULT 'ML',
                 S_ANLN1 FOR ANLA-ANLN1,
                 S_ANLN2 FOR ANLA-ANLN2.
                s_gjahr FOR anlc-gjahr.
SELECTION-SCREEN : END OF BLOCK B_FA.
*SELECT-OPTIONS : s_belnr FOR anek-belnr.
SELECT BUKRS ANLN1 ANLN2 AKTIV TXT50 ZUGDT MENGE MEINS
       FROM ANLA
       INTO CORRESPONDING FIELDS OF TABLE T_ANLA
       WHERE ANLN1 IN S_ANLN1
       AND   ANLN2 IN S_ANLN2
       AND   BUKRS IN S_BUKRS.
SELECT BUKRS ANLN1 ANLN2 GSBER KOSTL STORT RAUMN KFZKZ
       FROM ANLZ
       INTO CORRESPONDING FIELDS OF TABLE T_ANLZ
       FOR ALL ENTRIES IN T_ANLA
       WHERE ANLN1 = T_ANLA-ANLN1
       AND   ANLN2 = T_ANLA-ANLN2
       AND   BUKRS = T_ANLA-BUKRS.
*IF sy-subrc EQ 0.
SELECT BUKRS ANLN1 ANLN2 BELNR BUDAT XBLNR SGTXT GJAHR
       FROM ANEK
       INTO CORRESPONDING FIELDS OF TABLE T_ANEK
       FOR ALL ENTRIES IN T_ANLA
       WHERE ANLN1 = T_ANLA-ANLN1
       AND   ANLN2 = T_ANLA-ANLN2
       AND   BUKRS = T_ANLA-BUKRS.
      AND   gjahr = t_anek-gjahr.
*ENDIF.
SELECT BUKRS ANLN1 ANLN2 KANSW KNAFA AAFAP AFABE GJAHR
       FROM ANLC
       INTO CORRESPONDING FIELDS OF TABLE T_ANLC
       FOR ALL ENTRIES IN T_ANLA
       WHERE ANLN1 = T_ANLA-ANLN1
       AND   ANLN2 = T_ANLA-ANLN2
       AND   BUKRS = T_ANLA-BUKRS
       AND   GJAHR = T_ANLC-GJAHR.
      AND   afabe = '01'.
LOOP AT T_ANLA.
  MOVE : T_ANLA-ANLN1 TO IT_FINAL-ANLN1,
         T_ANLA-ANLN2 TO IT_FINAL-ANLN2,
         T_ANLA-AKTIV TO IT_FINAL-AKTIV,
         T_ANLA-TXT50 TO IT_FINAL-TXT50,
         T_ANLA-ZUGDT TO IT_FINAL-ZUGDT,
         T_ANLA-MENGE TO IT_FINAL-MENGE,
         T_ANLA-MEINS TO IT_FINAL-MEINS.
READ TABLE T_ANLZ WITH KEY BUKRS = T_ANLA-BUKRS
                           ANLN1 = T_ANLA-ANLN1
                           ANLN2 = T_ANLA-ANLN2 BINARY SEARCH.
IF SY-SUBRC EQ 0.
MOVE : T_ANLZ-GSBER TO IT_FINAL-GSBER,
        T_ANLZ-KOSTL TO IT_FINAL-KOSTL,
        T_ANLZ-STORT TO IT_FINAL-STORT,
        T_ANLZ-RAUMN TO IT_FINAL-RAUMN,
        T_ANLZ-KFZKZ TO IT_FINAL-KFZKZ.
ENDIF.
READ TABLE T_ANLC WITH KEY BUKRS = T_ANLA-BUKRS
                           ANLN1 = T_ANLA-ANLN1
                           ANLN2 = T_ANLA-ANLN2 BINARY SEARCH.
IF SY-SUBRC EQ 0.
MOVE : T_ANLC-KANSW TO IT_FINAL-KANSW,
        T_ANLC-KNAFA TO IT_FINAL-KNAFA,
        T_ANLC-AAFAP TO IT_FINAL-AAFAP.
ENDIF.
*SORT t_anla.
READ TABLE T_ANEK WITH KEY BUKRS = T_ANLA-BUKRS
                           ANLN1 = T_ANLA-ANLN1
                           ANLN2 = T_ANLA-ANLN2 BINARY SEARCH.
IF SY-SUBRC EQ 0.
MOVE : T_ANEK-BELNR TO IT_FINAL-BELNR,
        T_ANEK-BUDAT TO IT_FINAL-BUDAT,
        T_ANEK-XBLNR TO IT_FINAL-XBLNR,
        T_ANEK-SGTXT TO IT_FINAL-SGTXT.
ENDIF.
APPEND IT_FINAL.
*ENDLOOP.
ENDLOOP.
*ENDIF.
PERFORM BUILD_FIELDCATALOG.
PERFORM DISPLAY_ALV_REPORT.
PERFORM BUILD_LAYOUT.
      FORM BUILD_FIELDCATALOG                                       *
FORM BUILD_FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'ANLN1'.
  FIELDCATALOG-SELTEXT_M = 'ASSET MAIN NO'.
  FIELDCATALOG-COL_POS   = 0.
  FIELDCATALOG-OUTPUTLEN = 14.
  FIELDCATALOG-EMPHASIZE = 'X'.
  FIELDCATALOG-KEY       = 'X'.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'ANLN2'.
  FIELDCATALOG-SELTEXT_M = 'SUB NO'.
  FIELDCATALOG-COL_POS   = 1.
  FIELDCATALOG-OUTPUTLEN = 7.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'AKTIV'.
  FIELDCATALOG-SELTEXT_M = 'CAP.DATE'.
  FIELDCATALOG-COL_POS   = 2.
  FIELDCATALOG-OUTPUTLEN = 10.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'TXT50'.
  FIELDCATALOG-SELTEXT_M = 'NAME'.
  FIELDCATALOG-COL_POS   = 3.
  FIELDCATALOG-OUTPUTLEN = 50.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'ZUGDT'.
  FIELDCATALOG-SELTEXT_M = 'POSTING DATE'.
  FIELDCATALOG-COL_POS   = 4.
  FIELDCATALOG-OUTPUTLEN = 10.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'MENGE'.
  FIELDCATALOG-SELTEXT_M = 'QTY'.
  FIELDCATALOG-COL_POS   = 5.
  FIELDCATALOG-OUTPUTLEN = 13.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'MEINS'.
  FIELDCATALOG-SELTEXT_M = 'UNITS'.
  FIELDCATALOG-COL_POS   = 6.
  FIELDCATALOG-OUTPUTLEN = 3.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'GSBER'.
FIELDCATALOG-SELTEXT_M = 'BA'.
FIELDCATALOG-COL_POS   = 7.
FIELDCATALOG-OUTPUTLEN = 4.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'KOSTL'.
  FIELDCATALOG-SELTEXT_M = 'COST CENTER'.
  FIELDCATALOG-COL_POS   = 8.
  FIELDCATALOG-OUTPUTLEN = 13.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'STORT'.
  FIELDCATALOG-SELTEXT_M = 'LOCATION'.
  FIELDCATALOG-COL_POS   = 9.
  FIELDCATALOG-OUTPUTLEN = 10.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'RAUMN'.
  FIELDCATALOG-SELTEXT_M = 'ROOM'.
  FIELDCATALOG-COL_POS   = 10.
  FIELDCATALOG-OUTPUTLEN = 10.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'KFZKZ'.
  FIELDCATALOG-SELTEXT_M = 'LICENSE PLATE NO'.
  FIELDCATALOG-COL_POS   = 11.
  FIELDCATALOG-OUTPUTLEN = 20.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'BELNR'.
  FIELDCATALOG-SELTEXT_M = 'DOC NO'.
  FIELDCATALOG-COL_POS   = 12.
  FIELDCATALOG-OUTPUTLEN = 13.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
   FIELDCATALOG-FIELDNAME = 'BUDAT'.
   FIELDCATALOG-SELTEXT_M = 'POSTING DATE'.
   FIELDCATALOG-COL_POS   = 13.
   FIELDCATALOG-OUTPUTLEN = 15.
   APPEND FIELDCATALOG TO FIELDCATALOG.
   CLEAR FIELDCATALOG.
   FIELDCATALOG-FIELDNAME = 'XBLNR'.
   FIELDCATALOG-SELTEXT_M = 'REF NO'.
   FIELDCATALOG-COL_POS   = 14.
   FIELDCATALOG-OUTPUTLEN = 25.
   APPEND FIELDCATALOG TO FIELDCATALOG.
   CLEAR FIELDCATALOG.
   FIELDCATALOG-FIELDNAME = 'SGTXT'.
   FIELDCATALOG-SELTEXT_M = 'TEXT'.
   FIELDCATALOG-COL_POS   = 15.
   FIELDCATALOG-OUTPUTLEN = 50.
   APPEND FIELDCATALOG TO FIELDCATALOG.
   CLEAR FIELDCATALOG.
ENDFORM.
      FORM BUILD_LAYOUT                                             *
FORM BUILD_LAYOUT.
GD_LAYOUT-ZEBRA = 'X'.
GD_LAYOUT-INFO_FIELDNAME = 'LINE_COLOR'.
ENDFORM.
      FORM DISPLAY_ALV_REPORT                                       *
FORM DISPLAY_ALV_REPORT.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
      EXPORTING
        I_INTERFACE_CHECK        = ' '
        I_CALLBACK_PROGRAM       = ' '
        I_CALLBACK_PF_STATUS_SET = ' '
        I_CALLBACK_USER_COMMAND  = ' '
        I_STRUCTURE_NAME         =
         IS_LAYOUT                = GD_LAYOUT
           IT_FIELDCAT              = FIELDCATALOG[]
        IT_EXCLUDING             =
        IT_SPECIAL_GROUPS        =
        IT_SORT                  =
        IT_FILTER                =
        IS_SEL_HIDE              =
        I_DEFAULT                = 'X'
        I_SAVE                   = ' '
        IS_VARIANT               = ' '
        IT_EVENTS                =
        IT_EVENT_EXIT            =
        IS_PRINT                 =
        I_SCREEN_START_COLUMN    = 0
        I_SCREEN_START_LINE      = 0
        I_SCREEN_END_COLUMN      = 0
        I_SCREEN_END_LINE        = 0
   IMPORTING
        E_EXIT_CAUSED_BY_CALLER  =
        ES_EXIT_CAUSED_BY_USER   =
       TABLES
            T_OUTTAB                 = IT_FINAL
       EXCEPTIONS
            PROGRAM_ERROR            = 1
            OTHERS                   = 2.
ENDFORM.

Answer 1

Hi Sanjeev,
I found out one small error in your code.  While fetching from ANLC table
SELECT bukrs anln1 anln2 kansw knafa aafap afabe gjahr
FROM anlc
INTO CORRESPONDING FIELDS OF TABLE t_anlc
FOR ALL ENTRIES IN t_anla
WHERE anln1 = t_anla-anln1
AND anln2 = t_anla-anln2
AND bukrs = t_anla-bukrs
AND gjahr = t_anlc-gjahr.
<b>gjajr = t_anlc-gjahr</b>: here if you are fetching data into <b>t_anlc</b> for the first time, then how can you use it for selection also? this is my question. I commented and executed and i got the records fetched from ANLC table.