Just a side note. Why do you write "If Found()=.T."? I find such code difficult to follow. Instead you can just use "If Found()". There is not necessary to check whether true is true, either it's true or it's not.

>Thanks a lot. It worked. However I tried the same SQl on another similar code, but it didn't worked. Please Guide Again
>
>

>Select Subledger
>Go Top
>Scan While .Not. Eof()
>If Left(Vrno,2)=="J-"
>Alldata_Vrno=Vrno
>Select Journal
>Locate For Vrno==Alldata_Vrno
>If Found()=.T.
>SumNaration=Naration1+Naration2+Naration3+Naration4+Naration5
>Endif
>Select Subledger
>Replace Details With SumNaration
>Endif
>ENDSCAN
>

>
>
>Regards
>
>
>
>
>>>I am Using the following code to Update Subledger.DBF file from Schedule.DBF.
>>>Kindly provide me Equivalent SQL to do the same. Currently I am using the following code.
>>>
>>>

>>>
>>>******UPDATE SUBLEDGER DETAILS*******
>>>Goto Top
>>>Scan While .Not. Eof()
>>>T_Newcode=Left(Accode,3)+"0000"
>>>
>>>Select Schedule
>>>Locate For newcode=T_Newcode
>>>If Found()=.T.
>>>T_desc=Desc
>>>Else
>>>T_desc="Account Code Missing"
>>>Endif
>>>Select Subledger
>>>Replace Schedule With T_desc
>>>Endscan
>>>
>>>

>>>
>>>Regards
>>>Harsh
>>

>>UPDATE SubLedger SET Schedule = NVL(Sch.DESC, "Account Code Missing")
>>FROM SubLedger LEFT JOIN Schedule Sch ON Sch.NewCode = LEFT(SubLedger.AcCode,3) + '0000'