>how it will be done in sql
>
>sele student
> Set Filter To scode=zscode and lcode=zlcode and sec=zsec and admtd=1
> Set Order To CODE
> Goto Top
> Do While !Eof()
> zcode = code
> zname = descr
> zroll = roll
> zweight = weight
> zpath=path
> sele examtran
> Goto Top
> Seek zcode
> If !Found()
> Append Blank
> Endif
> If Found()
> Locate For code=zcode
> ENDIF
>
> sele examtran
>
> Replace sub25 With "Total"
> Replace tmax With max01+max02+max03+max04+max05+max07+max08+max09+max10+max11+max12+max14+max15+max16+max18+max19+max20+max21+max22+max23+max24
> Replace tmin With min01+min02+min03+min04+min05+min07+min08+min09+min10+min11+min12+min14+min15+min16+min18+min19+min20+min21+min22+min23+min24
> .......
> sele student
> Skip
> Enddo
> ENDIF

Try, but not tested.

Insert into examtran (code)
Select Code From student left join examtran on student.code = examtran.code
Where scode=zscode And lcode=zlcode And Sec=zsec And admtd=1 and IsNull(examtran.code)

Update examtran set sub25 = "Total",
	tmax = max01+max02+max03+max04+max05+max07+max08+max09+max10+max11+max12+max14+max15+max16+max18+max19+max20+max21+max22+max23+max24
	tmin = min01+min02+min03+min04+min05+min07+min08+min09+min10+min11+min12+min14+min15+min16+min18+min19+min20+min21+min22+min23+min24