Databases Reference
In-Depth Information
BEGIN
EXECUTE IMMEDIATE 'alter session set NLS SORT=BINARY CI';
EXECUTE IMMEDIATE 'alter session set NLS COMP=LINGUISTIC';
v search := REPLACE (wwv flow.g x01, '*', '%');
FOR i IN (SELECT ename, empno
FROM emp
WHERE ename LIKE '%' || v search || '%'
AND empno IN (SELECT mgr FROM emp))
LOOP
v output := i.ename || '|' || i.empno;
HTP.p (v output);
END LOOP;
END get manager;
FUNCTION get autocomplete key (
p value IN VARCHAR2,
p key item IN VARCHAR2,
p rownum IN VARCHAR2,
p width IN NUMBER,
p process IN VARCHAR2,
p max length IN NUMBER DEFAULT 80,
p size IN NUMBER DEFAULT 80
)
RETURN VARCHAR2
IS
v rownum VARCHAR2 (20);
v name VARCHAR2 (5) := 'f50';
v item VARCHAR2 (20);
v item html VARCHAR2 (3000);
v key item VARCHAR2 (20);
v script VARCHAR2 (1000);
v output item VARCHAR2 (4000);
a rownum VARCHAR2 (400);
BEGIN
v rownum := p rownum;
v item := v name || ' ' || v rownum;
v item html :=
'<input type="text" id="'
|| v item
|| '" value="'
|| p value
|| '" maxlength="'
|| p max length
|| '" size="'
|| p size
|| '" name="'
|| v name
|| '" '
|| 'autocomplete="off" class="ac input"'
