1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
CREATE PROCEDURE chargement() IS
BEGIN
DECLARE
TYPE type_tab_char IS TABLE OF VARCHAR2(60) INDEX BY BINARY_INTEGER ;
tab_dblinks type_tab := type_tab('db_link_fes','db_link_agadir','db_link_marakech','db_link_meknes','db_link_casa',) ;
i pls_integer ;
----------------------------------------------------------------------------------------------------
FOR i IN 0..4 LOOP
INSERT INTO client(numclie, cin_clie, typeclie, formjuri, codepays, libepays, codecate, libecate,
nom_clie, prenclie, nais, adreclie, nom_conj, prenconj, nombenfa, sexecle, sitfamcl, cin_conj)
SELECT numclie, cin_clie, typeclie, formjuri, codepays, libepays, codecate, libecate, nom_clie, prenclie,
nais, adreclie, nom_conj, prenconj, nombenfa, sexecle, sitfamcl, cin_conj
FROM com_client@||tab_dblinks(i);
END LOOP ;
COMMIT;
----------------------------------------------------------------------------------------------------
FOR i IN 0..4 LOOP
INSERT INTO attribution_client(numedoss, codeoper, codtyppr, attr,
aff, etatdoss, prixcess, atte)
SELECT numedoss, codeoper, codtyppr, attr,
aff, etatdoss, prixcess, atte
FROM com_attribution_client@||tab_dblinks(i);
END LOOP ;
COMMIT;
----------------------------------------------------------------------------------------------------
FOR i IN 0..4 LOOP
INSERT INTO dossier_attribution(numedoss, codeoper, codtyppr, attr,
aff, etatdoss, prixcess, atte)
SELECT numedoss, codeoper, codtyppr, attr,
aff, etatdoss, prixcess, atte
FROM com_dossier_attribution@||tab_dblinks(i);
END LOOP ;
COMMIT;
----------------------------------------------------------------------------------------------------
FOR i IN 0..4 LOOP
INSERT INTO produit(numeprod, codtyppr, codeoper, titrfonc,
surfprov, surfcada, prixprov, prixdefi)
SELECT com_produit.numeprod@||tab_dblinks(i), com_type_produit.codtyppr@||tab_dblinks(i), com_operation.codeoper@||tab_dblinks(i), com_produit.titrfonc@||tab_dblinks(i), com_produit.surfprov@||tab_dblinks(i), com_produit.surfcada@||tab_dblinks(i), com_produit.prixprov@||tab_dblinks(i), com_produit.prixdefi@||tab_dblinks(i)
FROM com_produit@||tab_dblinks(i), com_type_produit@||tab_dblinks(i), com_operation@||tab_dblinks(i)
WHERE com_produit.codtyppr@||tab_dblinks(i) = com_type_produit.codtyppr@||tab_dblinks(i) AND com_type_produit.codtyppr@||tab_dblinks(i) = com_operation.codtyppr@||tab_dblinks(i);
END LOOP ;
COMMIT;
----------------------------------------------------------------------------------------------------
FOR i IN 0..4 LOOP
INSERT INTO com_operation(codeoper, libeoper, numproj, codeante, numoper, desto)
SELECT codeoper, libeoper, numproj, codeante, numoper, desto
FROM com_operation@||tab_dblinks(i);
END LOOP ;
COMMIT;
----------------------------------------------------------------------------------------------------
FOR i IN 0..4 LOOP
INSERT INTO agence_regionale(codeante, libeante, typeante, username, password, db_link)
SELECT codeante, libeante, typeante, username, password, db_link
FROM agence_regionale@||tab_dblinks(i);
END LOOP ;
COMMIT;
----------------------------------------------------------------------------------------------------
FOR i IN 0..4 LOOP
INSERT INTO echeancier_dossier(numedoss, numligdo, codorgfi, chdo, monteche)
SELECT numedoss, numligdo, codorgfi, chdo, monteche
FROM com_echeanchier_dossier@||tab_dblinks(i);
END LOOP ;
COMMIT;
----------------------------------------------------------------------------------------------------
FOR i IN 0..4 LOOP
INSERT INTO contrat(numedoss, numecont, prixcess, convispa, datremcl, datremno, datrecno,
datregdi, dasicocl, conetapa, refecont, matragen, typecont)
SELECT numedoss, numecont, prixcess, convispa, datremcl, datremno, datrecno,
datregdi, dasicocl, conetapa, refecont, matragen, typecont
FROM com_contrat@||tab_dblinks(i);
END LOOP ;
COMMIT;
END;
/ |
