Little change in my code and it is taking little less time.

How to do below code with REPLACE ?

Local lcmasterid, lnavgrec1, lnavgrec2, lnavgrec3, lnpackno, lntakano, lntotrec, lntrnno
USEFILE('cuttm')
USEFILE('cuttct')
USEFILE('packtc')
lntakano = 0
Select cuttm
Set Order To takano
Select cuttct
Set Order To takano
Select packtm
Set Order To MASTERID
Select packtc
Set Order To takano
Select cuttct

Wait Window 'Working... Taka... Please Wait...' At Srows() / 2, Scols() / 2  Nowait

Select cuttct
Scan For Not Empty(takano)    && Created a BINARY index on empty(takano)
   lntakano = takano
   Do Case
      Case Seek(m.lntakano, 'packtc', 'takano')
         If Seek(packtc.MASTERID, 'packtm', 'masterid')
            lnpackno = packtm.packno
			Replace	;
					packed With	Iif(m.lnpackno <> 0, 'Y', ' ') ;
					packno With	m.lnpackno ;
					recuttno  With 0  ;
				In cuttct
         Endif
      Case Seek(m.lntakano, 'cuttm', 'takano')
         lntrnno =	cuttm.trnno
         Replace packed With Iif(m.lntrnno <> 0, 'Y', ' '), packno With 0, recuttno With m.lntrnno In cuttct
      Case Seek(m.lntakano, 'cuttm', 'takano1')
         lntrnno =	cuttm.trnno
         Replace packed With Iif(m.lntrnno <> 0, 'Y', ' '), packno With 0, recuttno With m.lntrnno In cuttct
      Otherwise
         Replace packed With ' ', packno With 0, recuttno With 0 In cuttct
   Endcase
Endscan
Wait Clear

Warm regards,
mk.