PROCEDURE JOBS_ADD_ROWS
(
    I_JOB_ID    IN varchar2,
    I_JOB_TITLE IN varchar2,
    I_MIN_SALARY IN NUMBER,
    I_MAX_SALARY IN Number
)
AS
    new_sal           number;
BEGIN 
    if I_MAX_SALARY = 16000 then
        new_sal := I_MAX_SALARY + 500;
    else
        new_sal := I_MAX_SALARY + 1;
    end if;
    INSERT INTO JOBS VALUES
    (
    I_JOB_ID    ,
    I_JOB_TITLE ,
    I_MIN_SALARY,
    new_sal
    );
END;

--> .net code
 Protected Sub btnInsert_Click(sender As Object, e As EventArgs) Handles btnInsert.Click
        cn = New OracleConnection(System.Configuration.ConfigurationManager.ConnectionStrings("OraConnectionString").ConnectionString)
        cn.Open()

        cmd = New OracleCommand
        cmd.Connection = cn

        cmd.CommandText = "JOBS_ADD_ROWS"
        cmd.CommandType = CommandType.StoredProcedure

        paramOracle = New Oracle.DataAccess.Client.OracleParameter
        paramOracle.ParameterName = "JOB_ID"
        paramOracle.DbType = DbType.String
        Dim Arr1() As String = {"IT_DBA", "IT_MAN", "IT_VP"}
        paramOracle.Value = Arr1
        paramOracle.Direction = ParameterDirection.Input
        cmd.Parameters.Add(paramOracle)

        paramOracle = New Oracle.DataAccess.Client.OracleParameter
        paramOracle.ParameterName = "JOB_TITLE"
        paramOracle.DbType = DbType.String
        Dim Arr2() As String = {"Database Administrator", "IT Manager", "IT Vice President"}
        paramOracle.Value = Arr2
        paramOracle.Direction = ParameterDirection.Input
        cmd.Parameters.Add(paramOracle)

        paramOracle = New Oracle.DataAccess.Client.OracleParameter
        paramOracle.ParameterName = "MIN_SALARY"
        paramOracle.DbType = DbType.Int32
        Dim Arr3() As Integer = {8000, 12000, 18000}
        paramOracle.Value = Arr3
        paramOracle.Direction = ParameterDirection.Input
        cmd.Parameters.Add(paramOracle)

        paramOracle = New Oracle.DataAccess.Client.OracleParameter
        paramOracle.ParameterName = "MAX_SALARY"
        paramOracle.DbType = DbType.Int32
        Dim Arr4() As Integer = {16000, 24000, 35000}
        paramOracle.Value = Arr4
        paramOracle.Direction = ParameterDirection.Input
        cmd.Parameters.Add(paramOracle)

        cmd.ArrayBindCount = Arr1.Length
        cmd.ExecuteNonQuery()
    End Sub