Databases Reference
In-Depth Information
valid
)
INTO v checksum
FROM emp
WHERE empno = c.empno;
IF c.checksum <> v checksum
THEN
v message :=
v message
|| '<br/>'
|| 'Empno: '
|| c.empno
|| ': Snapshot too old.';
END IF;
END LOOP;
v message := LTRIM (v message, '<br/>');
RETURN v message;
END validate collection data;
PROCEDURE update table from collection (
p deptno IN NUMBER,
p message OUT VARCHAR2
)
IS
v ins count INTEGER := 0;
v upd count INTEGER := 0;
v del count INTEGER := 0;
v message VARCHAR2 (4000);
BEGIN
FOR c IN (SELECT empno, ename, job, mgr, hiredate,
sal, comm, deptno,
valid, checksum, delete flag
FROM emp coll v)
LOOP
IF c.delete flag IS NULL AND c.checksum IS NOT NULL
THEN
IF c.checksum <>
wwv flow item.md5 (c.empno,
c.ename,
c.job,
c.mgr,
c.hiredate,
c.sal,
c.comm,
c.deptno,
c.valid
)
THEN
UPDATE emp
SET ename = c.ename,
