>Form.INIT >DODEFAULT() > >USE Answer AGAIN SHARED IN 1 >CURSORSETPROP("Buffering", 5, "Answer") > >USE Department AGAIN SHARED IN 2 >CURSORSETPROP("Buffering", 5, "Department") > >USE Division AGAIN SHARED IN 3 >CURSORSETPROP("Buffering", 5, "Division") > >USE Position AGAIN SHARED IN 4 >CURSORSETPROP("Buffering", 5, "Position") > >SELECT Employee_Name ; >FROM Answer ; >GROUP BY Employee_Name ; >INTO CURSOR csrPersonal > >FORM.DOREPORT() > >SELECT COUNT(*) AS nCount, SubScale; >FROM ScaleSetting s, Answer a ; >WHERE a.Q_No = s.Q_No ; >GROUP BY SubScale ; >INTO CURSOR csrAnswer > >SELECT a.Q_No ; >FROM Answer a, Question q ; >WHERE a.Answer != q.PreferAnswer AND a.Q_No = q.Q_No ; >INTO CURSOR csrWrg > >SELECT COUNT(*) AS nWrg, SubScale ; >FROM csrWrg t, ScaleSetting s ; >WHERE t.Q_No = s.Q_No ; >GROUP BY SubScale ; >INTO CURSOR csrWrg > >SELECT s.SubScale, 30 AS nLowLevel, ((nWrg / nCount) * 100) AS nWrgPer, "C" AS cType ; >FROM csrWrg s, csrAnswer a ; >WHERE a.SubScale = s.SubScale ; >INTO CURSOR csrCStatus > >SELECT COUNT(*) AS nCount, SubScale; >FROM ScaleSetting s, Answer a ; >WHERE a.Q_No = s.Q_No AND Employee_Name = .cboPersonal.VALUE ; >GROUP BY SubScale ; >INTO CURSOR csrPerAnswer > >SELECT a.Q_No ; >FROM Answer a, Question q ; >WHERE a.Q_No = q.Q_No AND Answer != PreferAnswer AND ; > Employee_Name = THIS.cboPersonal.VALUE ; >INTO CURSOR csrWrg > >SELECT COUNT(*) AS nWrg, Subscale ; >FROM csrWrg w ,Scalesetting s ; >WHERE s.Q_no = w.Q_no ; >GROUP BY Subscale ; >INTO CURSOR csrWrg > >SELECT IIF(ISNULL(nWrg), 0, nWrg) AS nWrg, s.Subscale ; >FROM csrWrg c RIGHT JOIN Scalesetting s ; >ON c.Subscale = s.Subscale ; >GROUP BY s.Subscale ; >INTO CURSOR csrWrg > >SELECT c.SubScale, 30 AS nLowLevel, ((nWrg / nCount) * 100) AS nWrgPer, "P" AS cType ; >FROM csrWrg c, csrPerAnswer a ; >WHERE c.SubScale = a.SubScale ; >INTO CURSOR csrStatus >>