SELECT scode,descr,lcode,sec,;
TRANSFORM(round(CAST(sum(obt05)) AS I) ;
                  /;
               COUNT(code) *100;
             ,2),"###%") AS sPER;
 WHERE examcode=thisform.code.value .and.scode="H";
 FROM Examtran;
 GROUP BY lcode,sec;
 into cursor hsper