[Progress Communities] [Progress OpenEdge ABL] Forum Post: RE: Progress v10.2B performance on new server

  • Thread starter Thread starter George Potemkin
  • Start date Start date
Status
Not open for further replies.
G

George Potemkin

Guest
mitreddep, Can you post the result of the following code? DEFINE VARIABLE vTime1 AS INTEGER NO-UNDO. DEFINE VARIABLE vTime2 AS INTEGER NO-UNDO. ASSIGN vTime1 = MTIME. FOR EACH DICTDB._Index-Field NO-LOCK, FIRST DICTDB._Index OF DICTDB._Index NO-LOCK: END. ASSIGN vTime1 = MTIME - vTime1. ASSIGN vTime2 = MTIME. FOR EACH DICTDB._Index NO-LOCK: ACCUMULATE "_Index" (COUNT). END. FOR EACH DICTDB._Index-Field NO-LOCK: ACCUMULATE "_Index-Field" (COUNT). END. ASSIGN vTime2 = MTIME - vTime2. MESSAGE "Time1:" vTime1 / 1000 SKIP "Time2:" vTime2 / 1000 SKIP "Count1:" ACCUM COUNT "_Index" SKIP "Count2:" ACCUM COUNT "_Index-Field" VIEW-AS ALERT-BOX.

Continue reading...
 
Status
Not open for further replies.
Back
Top