Updating a Program using SETLL/READPE - Suggestions

Hi All,

 

We have a PF that has over two million records in it (and it grows
daily), that uses a SETLL/READPE command.  I know there has been much
debate as of late on the use of these commands, and I wanted to present
a bit of could for your perusal and suggestions.  Right now, the system
is very slow at updating records (sometimes in excess of five minutes),
and I suspect it has something to do with this code:

 

     #SRUPD        BEGSR                                              

                   TIME                    TIME6             6 0      

*(SST22)                                                              

     KEYT22        SETLL     SST22                                    

     *IN99         DOUEQ     *ON                                      

     KEYT22        READE     SST22                                  99

   99              LEAVE                                              

                   MOVE      '1'           SRADNF

                   Z-ADD     *DATE         SRADDT

                   MOVEL     TIME6         SRADTM

                   UPDATE    RSST22              

                   ENDDO

 

The key on which the system uses is based on a Physical File, and not a
Logical File (SST22 is a PF).

 

Anyone have suggestions on how I can improve / optimize this code to
reduce the wait times in this area down to something significantly less
than five minutes?

 

Thank you!

 

Brian.

 

-=-=-=-=-=-=-=-=-=-=-=-=-=-

Brian Piotrowski

Specialist - I.T.

Simcoe Parts Service, Inc.

PH: 705-435-7814

FX: 705-435-6746

-=-=-=-=-=-=-=-=-=-=-=-=-=-