get zuonr of table bsis and bsas

Hi All,

Tried getting the zuonr of bsas and bsis using bseg but got

Run time error long text. Exceeded the permitted time.

My condition is c_sales_pdc type bseg-hkont value u20180000102120u2019.

Need your advise on program optimization and rephrasing my program statements especially the case statements.

below is the code

Many thanks,

Aashta

SELECT bukrs
         hkont
         gjahr
         belnr
         budat
         waers
         blart
         shkzg
         wrbtr
         dmbtr
         augdt
         xragl
  FROM bsis
  INTO TABLE it_bsis
  WHERE hkont EQ c_sales_pdc
    AND bukrs IN s_bukrs
    AND belnr IN s_belnr
    AND budat LE p_budat.

  DELETE it_bsis WHERE blart NE 'DZ'
                 AND   blart NE 'PD'.
  DELETE it_bsis WHERE xragl NE ''.

  SELECT  augbl belnr bukrs  gjahr buzei bschl
   FROM bseg
   INTO TABLE it_bseg
   FOR ALL ENTRIES IN it_bsis
   WHERE zuonr NE space
     AND buzei = '01'
     AND gjahr = it_bsis-gjahr
     AND bschl  IN ('01', '15')
     AND qsskz = 'XX'
     AND bukrs IN s_bukrs
     AND zuonr IN s_zuonr
     AND augbl IN s_belnr
     AND augbl = it_bsis-belnr.

  LOOP AT it_bseg.

    CLEAR: it_bseg2-belnr, it_bseg2-zuonr, it_bseg2-kunnr.
    
    CASE it_bseg-bschl.
      WHEN '01'.
        SELECT augbl  zuonr kunnr
            FROM bseg
            INTO TABLE it_bseg2
            FOR ALL ENTRIES IN it_bseg
            WHERE augbl = it_bseg-augbl
              AND augbl IN s_belnr
              AND zuonr IN s_zuonr
              AND kunnr IN s_kunnr.

      WHEN '15'.
        SELECT belnr zuonr kunnr
             FROM bseg
             INTO TABLE it_bseg2
             FOR ALL ENTRIES IN it_bseg
             WHERE belnr = it_bseg-belnr
               AND belnr IN s_belnr
               AND zuonr IN s_zuonr
               AND kunnr IN s_kunnr.

      WHEN OTHERS.
        EXIT.
    ENDCASE.
  ENDLOOP.

  SELECT zuonr prctr
    FROM zfspbu
    INTO TABLE it_zfspbu
    FOR ALL ENTRIES IN it_bseg2
    WHERE zuonr = it_bseg2-zuonr
      AND zuonr IN s_zuonr.