Edit D:\app\Administrator\product\11.2.0\dbhome_1\oc4j\j2ee\oc4j_applications\applications\em\em\online_help\tdddg\tdddg

Edit D:\app\Administrator\product\11.2.0\dbhome_1\oc4j\j2ee\oc4j_applications\applications\em\em\online_help\tdddg\tdddg_subprograms038.htm

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<script src="./callback.js" type="text/javascript"></script>
<noscript>Your browser does not support JavaScript. This help page requires JavaScript to render correctly.</noscript>
</head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii" />
<meta http-equiv="Content-Style-Type" content="text/css" />
<meta http-equiv="Content-Script-Type" content="text/javascript" />

emp_record EMPLOYEES%ROWTYPE; -- for row returned by cursor
 all_evals BOOLEAN; -- true if all employees in dept need evaluations
 today DATE;

BEGIN
 today := SYSDATE;

IF (EXTRACT(MONTH FROM today) &lt; 6) THEN
 all_evals := FALSE; -- only new employees need evaluations
 ELSE
 all_evals := TRUE; -- all employees need evaluations
 END IF;

OPEN emp_cursor;

DBMS_OUTPUT.PUT_LINE (
 'Determining evaluations necessary in department # ' ||
 dept_id );

LOOP
 FETCH emp_cursor INTO emp_record;
 EXIT WHEN emp_cursor%NOTFOUND;

IF all_evals THEN
 add_eval(emp_record.employee_id, today);
 ELSIF (eval_frequency(emp_record.employee_id) = 2) THEN
 add_eval(emp_record.employee_id, today);
 END IF;
 END LOOP;

DBMS_OUTPUT.PUT_LINE('Processed ' || emp_cursor%ROWCOUNT || ' records.');

CLOSE emp_cursor;
END eval_department;
</pre>
(For a step-by-step example of changing a package body, see <a href="tdddg_subprograms019.htm#CIHBGDBA">"Tutorial: Declaring Variables and Constants in a Subprogram"</a>.)
</li>
<li>
Compile the <code>EMP_EVAL</code> package specification.
</li>
<li>
Compile the <code>EMP_EVAL</code> package body.
</li>
</ol>
<div class="helpinfonotealso">
<h2>Related Topics</h2>
<a href="tdddg_subprograms037.htm#BABIEDFH">Using an Explicit Cursor to Retrieve Result Set Rows One at a Time</a>
<a href="tdddg_subprograms032.htm#CIHHCJDI">Using Records and Cursors</a>
</div>
</div>


<div class="footer">
<table class="simple oac_no_warn" summary="" cellspacing="0" cellpadding="0" width="100%">
<col width="86%" />
<col width="*" />
<tr>
<td align="left">Copyright&nbsp;&copy;&nbsp;1996, 2009,&nbsp;Oracle&nbsp;and/or&nbsp;its&nbsp;affiliates.&nbsp;All&nbsp;rights&nbsp;reserved. 
<a href="./dcommon/html/cpyr.htm">Legal Notices</a></td>
<td align="center"><a href="tdddg_subprograms037.htm"><img width="24" height="24" src="./dcommon/gifs/leftnav.gif" alt="Previous" /> 
Previous</a>&nbsp;</td>
<td align="center"><a href="tdddg_subprograms039.htm"><img width="24" height="24" src="./dcommon/gifs/rightnav.gif" alt="Next" /> 
Next</a></td>
</tr>
</table>
</div>

</body>
</html>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de