Control varray index with if statement

   
SQL>
SQL> create table product(
  2          product_id          integer     primary key
  3          ,price                  number(7,2)
  4          ,description            varchar2(75)
  5          ,onhand                 number(5,0)
  6          ,reorder                number(5,0)
  7          ,supplier_no            integer
  8  );

Table created.

SQL> -- product Table Inserts:
SQL> insert into product(product_id, price, description, onhand, reorder)values (1,2.50,'PC',100,20);

1 row created.

SQL> insert into product(product_id, price, description, onhand, reorder)values (2,23.00,'Disk',null,null);

1 row created.

SQL> insert into product(product_id, price, description, onhand, reorder)values (3,null,'Monitor',null,null);

1 row created.

SQL> insert into product(product_id, price, description, onhand, reorder)values (4,1.50,'Mouse',50,10);

1 row created.

SQL> insert into product(product_id, price, description, onhand, reorder)values (5,10.50,'Vase',100,20);

1 row created.

SQL> insert into product(product_id, price, description, onhand, reorder)values (6,45.00,'Keyboard',null,null);

1 row created.

SQL> insert into product(product_id, price, description, onhand, reorder)values (7,19.99,'Cable',3,5);

1 row created.

SQL> insert into product(product_id, price, description, onhand, reorder)values (8,4.50,'Notebook',null,null);

1 row created.

SQL>
SQL> CREATE SEQUENCE Product_seq
  2  INCREMENT BY 1
  3  START WITH 9
  4  NOMAXVALUE
  5  NOCYCLE;

Sequence created.

SQL>
SQL> CREATE OR REPLACE PROCEDURE p_add_prod (v_supplier IN number, v_ctr IN number)
  2  AS
  3      i  number := 1;
  4      idIndex  number := 1;
  5      newOrder   product.reorder%TYPE;
  6
  7      TYPE names IS VARRAY(10) OF VARCHAR2(75);
  8      v_names names := names('A','B','C','D','E','F','G','H','I','J');
  9
 10      TYPE Prod_Prices IS VARRAY(10) OF NUMBER(7,2);
 11      v_prices    Prod_prices := Prod_prices(2,2.25,3,4.2,6,12.4,11.7,9.25,5,7.5);
 12
 13      TYPE Prod_Onhand IS VARRAY(10) OF NUMBER;
 14      v_onhand    Prod_Onhand := Prod_Onhand(70,20,10,40,30,50,60,80,90,55);
 15
 16  begin
 17
 18      WHILE i <= v_ctr LOOP
 19          IF idIndex > 10 THEN
 20              idIndex := 1;
 21          END IF;
 22
 23          IF v_onhand(idIndex) >= 30 THEN
 24             newOrder := v_onhand(idIndex) - 1;
 25          ELSE
 26             newOrder := v_onhand(idIndex) + 5;
 27          END IF;
 28
 29          INSERT INTO product (PRODUCT_ID, PRICE, DESCRIPTION, ONHAND, REORDER, SUPPLIER_NO)
 30          VALUES (product_seq.NEXTVAL, v_prices(idIndex), v_names(idIndex), v_onhand(idIndex), newOrder, v_supplier);
 31
 32          i := i + 1 ;
 33          idIndex := idIndex + 1;
 34
 35      END LOOP;
 36  end;
 37  /

Procedure created.

SQL>
SQL>
SQL> drop table product;

Table dropped.

SQL> drop sequence product_seq;

Sequence dropped.

SQL>
SQL>

Related examples in the same category

1.	Varray constructors.
2.	legal and illegal varray assignments.
3.	TYPE Strings IS VARRAY(5) OF VARCHAR2(10)
4.	Create a varray based on user defined type
5.	Store pre-defined constants in VARRAY
6.	Creating and Using VARRAYs
7.	Query a stored varray.
8.	VARRAY of VARCHAR2 and Varray of number
9.	Table of numbers and varray of numbers
10.	Initialize the array and create two entries using the constructor
11.	Reference elements in varray
12.	assignments to varray elements, and the ORA-6532 and ORA-6533 errors.
13.	ORA-06533: Subscript beyond count
14.	Compare two varray variables
15.	Constructs a two varrays and one nested table type in the database
16.	Create type prices with a varray of number
17.	Declare the varray with null values.
18.	Declaring a VARRAY of scalar variable
19.	Define a varray of integer with 3 rows
20.	Define a varray of twelve strings.
21.	Define a varray with a null element constructor and extends it one element at a time by a formula
22.	Define a varray with a null element constructor and extends it one element at a time.
23.	Define a varray with a three element constructor of null elements and attempt to populate it beyond three elements.
24.	Define a varray with a three element constructor of null elements.
25.	Hard code value in varray and use for loop to insert them to a table
26.	Nested varray
27.	Reference varray.count in for loop
28.	Store 12 months in varray of string
29.	Use table() function to display varray type column
30.	exceeded maximum VARRAY limit
31.	Assign values to subscripted members of the varray.
32.	Check the size of a varray
33.	Declare an array initialized as a no-element collection.
34.	Extend with null element to the maximum limit size.
35.	Initialization and assignment with a numeric index value to an associative array.
36.	Initialization and assignment with a unique string index value to an associative array.
37.	Associative array example
38.	Assigns a value to the indexed value.
39.	Avoid traversing an associative array where no elements are initialized.
40.	Subscript index values begin at 1, not 0

Control varray index with if statement : varray « PL SQL « Oracle PL / SQL

Related examples in the same category