Example 01:
Example 02:
DECLARE CURSOR NAME_CUR IS SELECT LAST_NAME FROM STUDENT WHERE ROWNUM<=10; TYPE LASTNAME_TYPE IS VARRAY(10) OF STUDENT.LAST_NAME % TYPE; LAST_NAME_VARRAY LAST_NAME=LASTNAME_TYPE(); V_COUNT INTEGER=0; BEGIN FOR NAME_REC IN NAME_CUR LOOP V_COUNT=V_COUNT+1; LAST_NAME_VARRAY(V_COUNT)=NAME_REC.LAST_NAME; DBMS_OUTPUT.PUT_LINE('LAST NAME('||V_COUNT||'):'||LAST_NAME_VARRAY(V_COUNT)); END LOOP; END;
Example 02:
DECLARE TYPE MY_VARRAY_TYPE IS VARRAY(10) OF NUMBER; VARRAY MY_VARRAY_TYPE=MY_VARRAY_TYPE(1,2,3,4); BEGIN DBMS_OUTPUT.PUT_LINE('MY VARRAY COUNT='||VARRAY.COUNT); DBMS_OUTPUT.PUT_LINE('MY VARRAY LIMIT='||VARRAY.LIMIT); DBMS_OUTPUT.PUT_LINE('MY VARRAY FIRST='||VARRAY.FIRST); DBMS_OUTPUT.PUT_LINE('MY VARRAY LAST='||VARRAY.LAST); VARRAY.EXTEND(2,4) DBMS_OUTPUT.PUT_LINE('MY VARRAY LAST='||VARRAY.LAST); DBMS_OUTPUT.PUT_LINE('MY VARRAY('||VARRAY.LAST||')='||VARRAY(VARRAY.LAST)); VARRAY.TRIM(2); DBMS_OUTPUT.PUT_LINE('MY VARRAY LAST='||VARRAY.LAST); END; MY_VARRAY.COUNT=6 MY_VARRAY.LIMIT=10 MY_VARRAY.FIRST=1 MY_VARRAY.LAST=8 MY_VARRAY(8)=4 MY_VARRAY.LAST=6
Comments
Post a Comment