Hi Steven,

I am no SPT expert, but I can give you one valuable tip. Change

Select Left(AllT(dwgno),6) As dwgno From relhist WHere reldate = CTOD("04/16/04") InTo Cursor myRelDwg Order By dwgno

into

ldDate=CTOD("04/16/04")
Select Left(AllT(dwgno),6) As dwgno From relhist WHere reldate = ldDate InTo Cursor myRelDwg Order By dwgno

Without this change, the server must evaluate CTOD("04/16/04") for every record!