Update ztable is taking long time

Question

Hi All,
i have run the 5 jobs with the same program at a time but when we check the db trace
zs01 is taking long time as shown below.here zs01 is having small amount of data.
in the below dbtrace for updating zs01 is taking 2,315,485 seconds .how to reduce this?
HH:MM:SS.MS Duration     Program   ObjectName  Op.   Curs   Array   Rec     RC     Conn     
2:36:15 AM     2,315,485     SAPLZS01  ZS01       FETCH  294     1     1     0     R/3     
The code as shown below
you can check the code in the program SAPLZS01 include LZS01F01.
FORM UPDATE_ZS01.
IF ZS02-STATUS = '3'.
    IF Z_ZS02_STATUS = '3'.            "previous status is ERROR
      EXIT.
    ELSE.
      SELECT SINGLE FOR UPDATE * FROM  ZS01
             WHERE  PROC_NUM    = ZS02-PROC_NUM.
      CHECK SY-SUBRC = 0.
      ADD ZS02-MF_AMT TO ZS01-ERR_AMT.
      ADD 1           TO ZS01-ERR_INVOI.
      UPDATE ZS01.
    ENDIF.
  ENDIF.
my question is when updating the ztable why it is taking such long time,
how to reduce the time or how to make faster to update the ztable .
Thanks in advance,
regards
Suni

Answer 1

Try the code like this..
data: wa_zs01 type zs01.
FORM UPDATE_ZS01.
IF ZS02-STATUS = '3'.
    IF Z_ZS02_STATUS = '3'.            "previous status is ERROR
      EXIT.
    ELSE.
      SELECT SINGLE FOR UPDATE * FROM  ZS01
             WHERE  PROC_NUM    = ZS02-PROC_NUM.
-- change
  CHECK SY-SUBRC = 0.
      ADD ZS02-MF_AMT TO wa_ZS01-ERR_AMT.
      ADD 1           TO wa_ZS01-ERR_INVOI.
      UPDATE ZS01 from wa_zs01.
    ENDIF.
  ENDIF.
And i think this Select query for ZS01 is inside the ZS02 SELECT statement,
This might also make slow process.
If you want to make database access always use Workarea/Internal table to fetch the data
and work with that.
Accessing database like this or with Select.... endselect is an inefficient programming.