5: IS
6: PRAGMA AUTONOMOUS_TRANSACTION;
7: BEGIN
8: -- Output
9: DBMS_OUTPUT.put_line (p_data);
10:
11: -- Insert into the log table
12: wms_carousel_integration_pvt.log(NULL,p_data);
13:
54: PROCEDURE run
55: IS
56: BEGIN
57: -- set outbut buffer size
58: DBMS_OUTPUT.ENABLE (200000);
59: -- database objects
60: --check_objects;
61: -- Bug# 4088489
62: --check_privileges;
638: v_i2 NUMBER;
639: v_calc_hash_value NUMBER := 0;
640: BEGIN
641: -- set outbut buffer size
642: DBMS_OUTPUT.ENABLE (200000);
643: DBMS_OUTPUT.put_line ( '-- Configuration data for devices '
644: || p_device_type_ids
645: || ' and zones '
646: || p_zones
639: v_calc_hash_value NUMBER := 0;
640: BEGIN
641: -- set outbut buffer size
642: DBMS_OUTPUT.ENABLE (200000);
643: DBMS_OUTPUT.put_line ( '-- Configuration data for devices '
644: || p_device_type_ids
645: || ' and zones '
646: || p_zones
647: );
644: || p_device_type_ids
645: || ' and zones '
646: || p_zones
647: );
648: DBMS_OUTPUT.put_line ('set scan off;');
649: DBMS_OUTPUT.put_line ('delete from wms_carousel_configuration;');
650: -- Build dynamic SQL
651: v_statement :=
652: 'select * from wms.wms_carousel_configuration where (1 = 0 ';
645: || ' and zones '
646: || p_zones
647: );
648: DBMS_OUTPUT.put_line ('set scan off;');
649: DBMS_OUTPUT.put_line ('delete from wms_carousel_configuration;');
650: -- Build dynamic SQL
651: v_statement :=
652: 'select * from wms.wms_carousel_configuration where (1 = 0 ';
653:
672: END IF;
673:
674: v_statement :=
675: v_statement || 'or (device_type_id is null and zone is null)) ';
676: --dbms_output.put_line('-- '||v_statement);
677: v_statement1 :=
678: 'and name is not null and active_ind is not null '
679: || 'and name <> ''DIAG_CONFIG_HASH_VALUE'' '
680: || -- skip hash value and add at the end
678: 'and name is not null and active_ind is not null '
679: || 'and name <> ''DIAG_CONFIG_HASH_VALUE'' '
680: || -- skip hash value and add at the end
681: 'order by device_type_id, sequence_id, zone, active_ind, name';
682: --dbms_output.put_line('-- '||v_statement1);
683: v_statement := v_statement || v_statement1;
684:
685: OPEN c_config
686: FOR v_statement;
689: FETCH c_config
690: INTO v_row;
691:
692: EXIT WHEN c_config%NOTFOUND;
693: DBMS_OUTPUT.put_line ('insert into wms_carousel_configuration');
694: DBMS_OUTPUT.put_line
695: (' (name, device_type_id, sequence_id, zone, active_ind, value)'
696: );
697: DBMS_OUTPUT.put_line ('values');
690: INTO v_row;
691:
692: EXIT WHEN c_config%NOTFOUND;
693: DBMS_OUTPUT.put_line ('insert into wms_carousel_configuration');
694: DBMS_OUTPUT.put_line
695: (' (name, device_type_id, sequence_id, zone, active_ind, value)'
696: );
697: DBMS_OUTPUT.put_line ('values');
698: -- Name, device_type_id, and sequence_id
693: DBMS_OUTPUT.put_line ('insert into wms_carousel_configuration');
694: DBMS_OUTPUT.put_line
695: (' (name, device_type_id, sequence_id, zone, active_ind, value)'
696: );
697: DBMS_OUTPUT.put_line ('values');
698: -- Name, device_type_id, and sequence_id
699: v_insert :=
700: ' ('
701: || ''''
716:
717: -- Active indicator
718: v_insert := v_insert || '''' || v_row.active_ind || ''',';
719: -- print out what is so far
720: DBMS_OUTPUT.put_line (v_insert);
721:
722: -- Value is null ?
723: IF NVL (v_row.CONFIG_VALUE, '
724: THEN
721:
722: -- Value is null ?
723: IF NVL (v_row.CONFIG_VALUE, '
724: THEN
725: DBMS_OUTPUT.put_line (' null);');
726: ELSE
727: -- print out value one line at a time
728: v_i1 := 1;
729:
758: v_insert := ' ||chr(10)||' || v_insert;
759: END IF;
760:
761: -- print out what is so far
762: DBMS_OUTPUT.put_line (v_insert);
763: -- next ?
764: EXIT WHEN v_i2 >= LENGTH (v_row.CONFIG_VALUE) + 1;
765: v_i1 := v_i2 + 1;
766: END LOOP;
765: v_i1 := v_i2 + 1;
766: END LOOP;
767:
768: -- Close parenthesis
769: DBMS_OUTPUT.put_line (' );');
770: END IF;
771:
772: -- Hash value
773: v_calc_hash_value :=
792:
793: CLOSE c_config;
794:
795: -- Add hash value parameter
796: DBMS_OUTPUT.put_line ('insert into wms_carousel_configuration');
797: DBMS_OUTPUT.put_line (' (name, value)');
798: DBMS_OUTPUT.put_line ('values');
799: DBMS_OUTPUT.put_line ( ' (''DIAG_CONFIG_HASH_VALUE'','
800: || v_calc_hash_value
793: CLOSE c_config;
794:
795: -- Add hash value parameter
796: DBMS_OUTPUT.put_line ('insert into wms_carousel_configuration');
797: DBMS_OUTPUT.put_line (' (name, value)');
798: DBMS_OUTPUT.put_line ('values');
799: DBMS_OUTPUT.put_line ( ' (''DIAG_CONFIG_HASH_VALUE'','
800: || v_calc_hash_value
801: || ');'
794:
795: -- Add hash value parameter
796: DBMS_OUTPUT.put_line ('insert into wms_carousel_configuration');
797: DBMS_OUTPUT.put_line (' (name, value)');
798: DBMS_OUTPUT.put_line ('values');
799: DBMS_OUTPUT.put_line ( ' (''DIAG_CONFIG_HASH_VALUE'','
800: || v_calc_hash_value
801: || ');'
802: );
795: -- Add hash value parameter
796: DBMS_OUTPUT.put_line ('insert into wms_carousel_configuration');
797: DBMS_OUTPUT.put_line (' (name, value)');
798: DBMS_OUTPUT.put_line ('values');
799: DBMS_OUTPUT.put_line ( ' (''DIAG_CONFIG_HASH_VALUE'','
800: || v_calc_hash_value
801: || ');'
802: );
803: -- Done
800: || v_calc_hash_value
801: || ');'
802: );
803: -- Done
804: DBMS_OUTPUT.put_line ('commit;');
805: DBMS_OUTPUT.new_line;
806: EXCEPTION
807: WHEN OTHERS
808: THEN
801: || ');'
802: );
803: -- Done
804: DBMS_OUTPUT.put_line ('commit;');
805: DBMS_OUTPUT.new_line;
806: EXCEPTION
807: WHEN OTHERS
808: THEN
809: DBMS_OUTPUT.put_line
805: DBMS_OUTPUT.new_line;
806: EXCEPTION
807: WHEN OTHERS
808: THEN
809: DBMS_OUTPUT.put_line
810: ( '*** Error: exception in EXPORT_CONFIGURATION: '
811: || SQLERRM
812: || ' !'
813: );
915: END LOOP;
916: EXCEPTION
917: WHEN OTHERS
918: THEN
919: DBMS_OUTPUT.put_line ( '*** Error: exception in CHECK_JOBS: '
920: || SQLERRM
921: || ' !'
922: );
923: END;
993: v_request_id NUMBER := 999999999;
994: PRAGMA AUTONOMOUS_TRANSACTION;
995: BEGIN
996: -- set outbut buffer size
997: DBMS_OUTPUT.ENABLE (200000);
998: LOG ('================================== Test task');
999: -- Derive segments
1000: v_segment1 := get_segment (p_locator, '.', 1);
1001: v_segment2 := get_segment (p_locator, '.', 2);
1125: COMMIT;
1126: EXCEPTION
1127: WHEN OTHERS
1128: THEN
1129: DBMS_OUTPUT.put_line ( '*** Error: exception in TEST_GO: '
1130: || SQLERRM
1131: || ' !'
1132: );
1133: END;