How to do the calculation in the plsql loop?

Question

Hi,
I have table like below below
MODEL_NAME     ITEM_NUMBER     DA_VALUE
     A     A-1          2.1
     A     A-2          3.1
     A     A-3          1.1
     A     A-4          4.5
     B     B-1          3.2
     B     B-2          5.3
     B     B-3          7.2
     C     C-1          3.9
     C     C-2          4.0
     C     C-3          9.9          I need to write a stored procedure with 2 input values. One is design_code and another one is model_name. I will pass the model name as comma
separated values to the procedure. Model name is nothing but A,B,C in the above table. Procedure has to split those model names and display
all the item_numbers and da_numbers for the model names.
Here the logic is i have to take all the model's item da_value and multiply.
For example for the above table, I have to multiply all A-1 da_values and B-1 da_value and C-1 da_value then stored in to one array that result.
Again A-1 da_value and B-2 da_values and C-2 da_values then stored into the same array.
Again A-1 da_value and B-3 da_values and C-3 da_values then stored into the same array.
After that come to A-2 da_value and start B-1 da_value and C-1 da_value then store into the same array.
Again A-2 da_value and B-2 da_values and C-2 da_values then stored into the same array.
Again A-2 da_value and B-3 da_values and C-3 da_values then stored into the same array.
So like this only the flow should go for all the models. Below is the sample example.
v_variable := 2.1 * 3.2 * 3.9;
           A-1   B-1   C-1
v_variable := 2.1 * 5.3 * 4.0;
           A-1   B-2   C-2          
v_variable := 2.1 * 7.2 * 9.9;
           A-1   B-3   C-3
v_variable := 3.1 * 3.2 * 3.9;
           A-2   B-1   C-1          
v_variable := 3.1 * 5.3 * 4.0;
           A-2   B-2   C-2     The calculation should happen like above example. Can anyone share with your thoughts?
Thanks

Answer 1

Hi All,
I have built the below package. It is something like below. But it is working 75%. can you rearrange this?
    PROCEDURE calc_cv_valve (
            i_design_cv     IN NUMBER,
            i_option_class  IN VARCHAR2
            --o_calculated_cv OUT FND_TABLE_OF_VARCHAR2_255,
            --o_item_number   OUT FND_TABLE_OF_VARCHAR2_255
    IS
        CALC_CV     FND_TABLE_OF_VARCHAR2_255 := FND_TABLE_OF_VARCHAR2_255();
        ITEM_NUMBER FND_TABLE_OF_VARCHAR2_255 := FND_TABLE_OF_VARCHAR2_255();
        TYPE calculate_oc1_cv_rec IS RECORD
                 ITEM_NUMBER          VARCHAR2(100) := NULL,
                 CV_NUMBER      NUMBER := NULL                
        TYPE calculate_oc1_cv_tbl_type IS TABLE OF calculate_oc1_cv_rec INDEX BY BINARY_INTEGER;
        v_calculate_oc1_cv_tbl_type   calculate_oc1_cv_tbl_type;
        v_calc_oc1_index  PLS_INTEGER;
        TYPE calculate_oc2_cv_rec IS RECORD
                 ITEM_NUMBER          VARCHAR2(100) := NULL,
                 CV_NUMBER      NUMBER := NULL                
        TYPE calculate_oc2_cv_tbl_type IS TABLE OF calculate_oc2_cv_rec INDEX BY BINARY_INTEGER;
        v_calculate_oc2_cv_tbl_type   calculate_oc2_cv_tbl_type;
        v_calc_oc2_index  PLS_INTEGER;
        TYPE calculate_oc3_cv_rec IS RECORD
                 ITEM_NUMBER          VARCHAR2(100) := NULL,
                 CV_NUMBER      NUMBER := NULL                
        TYPE calculate_oc3_cv_tbl_type IS TABLE OF calculate_oc3_cv_rec INDEX BY BINARY_INTEGER;
        v_calculate_oc3_cv_tbl_type   calculate_oc3_cv_tbl_type;
        v_calc_oc3_index  PLS_INTEGER;               
        TYPE option_class_rec IS RECORD
                 OPTION_CLASS      VARCHAR2(100) := NULL
        TYPE option_class_tbl_type IS TABLE OF option_class_rec INDEX BY BINARY_INTEGER;
        v_option_class_tbl_type   option_class_tbl_type;
        v_option_index  PLS_INTEGER;
        v_count_option_class    NUMBER;
        v_attribstart           NUMBER;
        v_attribpos             NUMBER;
        v_calc1_inc     NUMBER;
        v_calc2_inc     NUMBER;
        v_calc3_inc     NUMBER;
        v_end_loop2     NUMBER;
        v_end_loop3     NUMBER;
        v_end_loop4     NUMBER;
        v_end_loop5     NUMBER;
        v_prior_loop    NUMBER;
        v_valid_cv      NUMBER;
        v_calculation   NUMBER;
    BEGIN
        BEGIN
            SELECT  COUNT(COLUMN_VALUE)
            INTO    v_count_option_class
            FROM    TABLE(xxcz_va_sizing_util_pkg.get_string_comma(i_option_class,','));
            DBMS_OUTPUT.PUT_LINE('Count of Option Class----: '||v_count_option_class);
        EXCEPTION
        WHEN OTHERS
        THEN
            NULL;       
        END;
        IF v_count_option_class = 3
        THEN
            v_attribstart := 1;
            v_attribpos := 1;
            v_option_index := 1;
            WHILE (v_attribpos <> 0)
            LOOP
                v_attribstart := v_attribpos;
                xxcz_va_sizing_util_pkg.tokenize_string (v_attribstart,
                                                        ',' || i_option_class,
                                                        v_option_class_tbl_type(v_option_index).option_class,
                                                        v_attribpos
                v_option_index := v_option_index + 1;
            END LOOP;
            SELECT  item_number, cv_number
            BULK COLLECT INTO v_calculate_oc1_cv_tbl_type
            FROM    SAMPLE_CONTROLS--xxcz_va_controls_info
            WHERE   control_name = v_option_class_tbl_type(1).option_class;
            SELECT  item_number, cv_number
            BULK COLLECT INTO v_calculate_oc2_cv_tbl_type
            FROM    SAMPLE_CONTROLS--xxcz_va_controls_info
            WHERE   control_name = v_option_class_tbl_type(2).option_class;           
            SELECT  item_number, cv_number
            BULK COLLECT INTO v_calculate_oc3_cv_tbl_type
            FROM    SAMPLE_CONTROLS--xxcz_va_controls_info
            WHERE   control_name = v_option_class_tbl_type(3).option_class;
            --v_calc1_inc := v_calculate_oc1_cv_tbl_type.count;
            DBMS_OUTPUT.PUT_LINE('v_calculate_oc1_cv_tbl_type----: '||v_calculate_oc1_cv_tbl_type.count);
            --v_calc2_inc := v_calculate_oc2_cv_tbl_type.count;
            DBMS_OUTPUT.PUT_LINE('v_calculate_oc2_cv_tbl_type----: '||v_calculate_oc2_cv_tbl_type.count);          
            --v_calc3_inc := v_calculate_oc3_cv_tbl_type.count;
            DBMS_OUTPUT.PUT_LINE('v_calculate_oc3_cv_tbl_type----: '||v_calculate_oc3_cv_tbl_type.count);
            v_calc1_inc := 0;
            v_calc2_inc := 0;
            v_calc3_inc := 0;
            v_end_loop2 := 0;
            v_end_loop3 := 0;
            v_end_loop4 := 0;
            v_end_loop5 := 0;
            v_prior_loop    := 0;
            v_valid_cv  := 0;
            WHILE (v_calculate_oc1_cv_tbl_type.next(v_calc1_inc) IS NOT NULL) AND v_valid_cv = 0
            LOOP
                DBMS_OUTPUT.PUT_LINE('Pre index count of oc1----: '||v_calc1_inc);
                v_calc1_inc := v_calculate_oc1_cv_tbl_type.next(v_calc1_inc);
                DBMS_OUTPUT.PUT_LINE('Post index count of oc1----: '||v_calc1_inc);
                v_prior_loop := v_calculate_oc1_cv_tbl_type.prior(v_calc1_inc);
                --IF v_calc1_inc <> v_prior_loop--v_end_loop2 = 1 OR v_end_loop4 = 1
                --THEN
                    v_calc2_inc := 0;
                    DBMS_OUTPUT.PUT_LINE(v_calc1_inc||'Y');
                --END IF;
                DBMS_OUTPUT.PUT_LINE(v_calc1_inc||'N');
                WHILE (v_calculate_oc1_cv_tbl_type.next(v_calc2_inc) IS NOT NULL)
                LOOP
                    DBMS_OUTPUT.PUT_LINE(v_calc1_inc||'Pre index count of oc2----: '||v_calc2_inc);
                    v_calc2_inc := v_calculate_oc1_cv_tbl_type.next(v_calc2_inc);
                    DBMS_OUTPUT.PUT_LINE(v_calc1_inc||'Pre index count of oc2----: '||v_calc2_inc);
                    --IF v_calc1_inc <> v_prior_loop AND v_calc2_inc = v_calculate_oc1_cv_tbl_type.prior(v_calc2_inc)--v_end_loop3 = 1 OR v_end_loop5 = 1
                    --THEN
                        v_calc3_inc := 0;
                        DBMS_OUTPUT.PUT_LINE('Y');                       
                    --END IF;
                    DBMS_OUTPUT.PUT_LINE('N');                                       
                    WHILE (v_calculate_oc1_cv_tbl_type.next(v_calc3_inc) IS NOT NULL)
                    LOOP
                        DBMS_OUTPUT.PUT_LINE(v_calc1_inc||'Pre index count of oc3----: '||v_calc3_inc);
                        v_calc3_inc := v_calculate_oc1_cv_tbl_type.next(v_calc3_inc);
                        DBMS_OUTPUT.PUT_LINE(v_calc1_inc||'Pre index count of oc3----: '||v_calc3_inc);
                        DBMS_OUTPUT.PUT_LINE(v_calc1_inc||'Calc Value----: '||v_calculate_oc1_cv_tbl_type(v_calc1_inc).cv_number||','
                                                                ||v_calculate_oc2_cv_tbl_type(v_calc2_inc).cv_number||','
                                                                ||v_calculate_oc3_cv_tbl_type(v_calc3_inc).cv_number);
                        v_calculation := v_calculate_oc1_cv_tbl_type(v_calc1_inc).cv_number + v_calculate_oc2_cv_tbl_type(v_calc2_inc).cv_number +
                                            v_calculate_oc3_cv_tbl_type(v_calc3_inc).cv_number;
                        DBMS_OUTPUT.PUT_LINE(v_calc1_inc||'Calculated value----: '||v_calculation);                                           
                        IF i_design_cv <= v_calculation
                        THEN
                            v_valid_cv  := 1;
                            DBMS_OUTPUT.PUT_LINE('v_valid_cv----: '||v_valid_cv);                           
                            GOTO end_loop;                           
                        END IF;
                        IF v_calculate_oc2_cv_tbl_type.next(v_calc2_inc) IS NOT NULL
                        THEN
                            v_end_loop2 := 1;
                            DBMS_OUTPUT.PUT_LINE('v_end_loop2----: '||v_end_loop2);                           
                            GOTO calc2_loop;                           
                        END IF;
                        IF v_calculate_oc3_cv_tbl_type.next(v_calc3_inc) IS NOT NULL
                        THEN
                            v_end_loop3 := 1;
                            DBMS_OUTPUT.PUT_LINE('v_end_loop3----: '||v_end_loop3);
                            GOTO calc3_loop;
                        END IF;                       
                        IF v_calc2_inc = v_calculate_oc2_cv_tbl_type.count AND v_calc3_inc = v_calculate_oc3_cv_tbl_type.count
                        THEN
                            IF v_calc2_inc = v_calculate_oc2_cv_tbl_type.count
                            THEN
                                v_end_loop4 := 1;
                            ELSE
                                v_end_loop5 := 1;
                            END IF;
                            DBMS_OUTPUT.PUT_LINE('Count point reached for both oc2 and oc3----: '||v_calculate_oc2_cv_tbl_type.count
                                        ||','||v_calculate_oc3_cv_tbl_type.count);
                            GOTO next_record;
                        END IF;
                        <<calc3_loop>>
                        DBMS_OUTPUT.PUT_LINE('Third Loop Conditions finished-------: '||v_calculation);
                    END LOOP;
                    <<calc2_loop>>
                    DBMS_OUTPUT.PUT_LINE('Second Loop Conditions finished-------: '||v_calculation);
                END LOOP;
                <<end_loop>>
                DBMS_OUTPUT.PUT_LINE('Loop Conditions Satisfied-------: '||v_calculation);
                <<next_record>>
                DBMS_OUTPUT.PUT_LINE('Loop Conditions Started with next record-------: '||v_calculation);
            END LOOP;
        END IF;
    END calc_cv_valve;