Here is a one-liner, if I understand your need correctly, and given that the field with the values A, L and P is called "category" in both tables

Insert into (Dbf(Alias(11))) (code, date, type, category, scode, lcode, sec);
Select code, date, 1 as type, category, scode, lcode, sec from Dbf(Alias(6)) where admtd=1 order by category

>i am replace the data in 11(add new records)
hi tore message is comming"select abject is not match"
because in alias 6 category 1 and date is not exist. i am using as temp veraialbe"