Bseg Table Issue

Question

Hi,
Below is my code, it taking much time to get the data from BSEG table and even after executing for long time it not populating the data into internal table. If i pass single account in selection screen, it is displaying the data.
Please help me out.
  SELECT hkont lkorr FROM t030hb INTO CORRESPONDING FIELDS OF
                      TABLE gt_tr_t030hb
                      WHERE ktopl = 'ZCOA'
                      AND   bwber = 'TR'
                      and hkont in so_hkont.
  IF gp_pprct IS INITIAL.
  loop at gt_tr_t030hb.
    SELECT hkont prctr bewar dmbe2 FROM bseg INTO CORRESPONDING
                       FIELDS OF table gt_hkont for all entries
                       in gt_tr_t030hb
                       WHERE bukrs IN so_bukrs
                       AND prctr IN so_prctr
                       AND saknr = gt_tr_t030hb-hkont
                       AND vbund IN so_vbund
                       and gjahr in so_gjahr
                       and xauto = 'X'.
Thanks,
Pavan.
Message was edited by: Pavan Panduru

Answer 1

Hi
Try to select the items from BSIS/BSAS:
- One solution can be:
TABLES: BSIS.
DATA:  GT_TR_T030HB LIKE STANDARD TABLE OF  T030HB.
SELECT-OPTIONS: SO_BUKRS FOR BSIS-BUKRS,
                SO_HKONT FOR BSIS-HKONT,
                SO_GJAHR FOR BSIS-GJAHR,
                SO_PRCTR FOR BSIS-PRCTR,
                SO_VBUND FOR BSIS-VBUND.
DATA: BEGIN OF GT_HKONT OCCURS 0,
        BUKRS LIKE BSIS-BUKRS,
        HKONT LIKE BSIS-HKONT,
        GJAHR LIKE BSIS-GJAHR,
        BELNR LIKE BSIS-BELNR,
        BUZEI LIKE BSIS-BUZEI,
        PRCTR LIKE BSIS-PRCTR,
        BEWAR LIKE BSIS-BEWAR,
        DMBE2 LIKE BSIS-DMBE2,
      END OF GT_HKONT.
DATA: XAUTO.
SELECT * FROM T030HB INTO TABLE GT_TR_T030HB
                    WHERE HKONT IN SO_HKONT
Open Items (BSIS)
SELECT BUKRS HKONT GJAHR BELNR BUZEI
       PRCTR BEWAR DMBE2
       FROM BSIS INTO TABLE GT_HKONT
        FOR ALL ENTRIES IN GT_TR_T030HB
                      WHERE BUKRS IN SO_BUKRS
                        AND HKONT = GT_TR_T030HB-HKONT
                        AND GJAHR IN SO_GJAHR
                        AND PRCTR IN SO_PRCTR
                        AND VBUND IN SO_VBUND.
Cleared items
SELECT BUKRS HKONT GJAHR BELNR BUZEI
       PRCTR BEWAR DMBE2
       FROM BSAS APPENDING TABLE GT_HKONT
        FOR ALL ENTRIES IN GT_TR_T030HB
                      WHERE BUKRS IN SO_BUKRS
                        AND HKONT = GT_TR_T030HB-HKONT
                        AND GJAHR IN SO_GJAHR
                        AND PRCTR IN SO_PRCTR
                        AND VBUND IN SO_VBUND.
If you need to check if the item is automatically loaded:
LOOP AT GT_HKONT.
  SELECT SINGLE XAUTO FROM BSEG INTO XAUTO
                                WHERE BUKRS = GT_HKONT-BUKRS
                                  AND BELNR = GT_HKONT-BELNR
                                  AND GJAHR = GT_HKONT-GJAHR
                                  AND BUZEI = GT_HKONT-BUZEI.
  IF XAUTO = SPACE.
    DELETE GT_HKONT.
  ENDIF.
ENDLOOP.
Other solution can be
TABLES: BSIS.
DATA:  GT_TR_T030HB LIKE STANDARD TABLE OF  T030HB.
SELECT-OPTIONS: SO_BUKRS FOR BSIS-BUKRS,
                SO_HKONT FOR BSIS-HKONT,
                SO_GJAHR FOR BSIS-GJAHR,
                SO_PRCTR FOR BSIS-PRCTR,
                SO_VBUND FOR BSIS-VBUND.
DATA: BEGIN OF T_DOCUMENT OCCURS 0,
        BUKRS LIKE BSIS-BUKRS,
        GJAHR LIKE BSIS-GJAHR,
        BELNR LIKE BSIS-BELNR,
        BUZEI LIKE BSIS-BUZEI,
      END   OF T_DOCUMENT.
DATA: BEGIN OF GT_HKONT OCCURS 0,
        HKONT LIKE BSIS-HKONT,
        PRCTR LIKE BSIS-PRCTR,
        BEWAR LIKE BSIS-BEWAR,
        DMBE2 LIKE BSIS-DMBE2,
      END OF GT_HKONT.
DATA: XAUTO.
Open Items (BSIS)
SELECT BUKRS GJAHR BELNR BUZEI
       FROM BSIS INTO TABLE T_DOCUMENT
        FOR ALL ENTRIES IN GT_TR_T030HB
                      WHERE BUKRS IN SO_BUKRS
                        AND HKONT = GT_TR_T030HB-HKONT
                        AND GJAHR IN SO_GJAHR
                        AND PRCTR IN SO_PRCTR
                        AND VBUND IN SO_VBUND.
Cleared items
SELECT BUKRS GJAHR BELNR BUZEI
       FROM BSAS INTO TABLE T_DOCUMENT
        FOR ALL ENTRIES IN GT_TR_T030HB
                      WHERE BUKRS IN SO_BUKRS
                        AND HKONT = GT_TR_T030HB-HKONT
                        AND GJAHR IN SO_GJAHR
                        AND PRCTR IN SO_PRCTR
                        AND VBUND IN SO_VBUND.
Auto items
SELECT HKONT PRCTR BEWAR DMBE2
       FROM BSEG INTO TABLE GT_HKONT
        FOR ALL ENTRIES IN T_DOCUMENT
                      WHERE BUKRS = T_DOCUMENT-BUKRS
                        AND BELNR = T_DOCUMENT-BELNR
                        AND GJAHR = T_DOCUMENT-GJAHR
                        AND BUZEI = T_DOCUMENT-BUZEI
                        AND XAUTO = 'X'.
Try
Max