... reclock(3) for i:=1 to 11 xc->(fieldput(i,CL3->(fieldget(i)))) next xc->(fieldput(12,date())) xc->(fieldput(13,time())) replace xc->pda with zpda unlock endif . . . . netuse(progpath+"imachine","xx",.T.,3) ordCreate( (progpath+"ipdainfo" ), "id", ...