DBMS-OUTPUT.
Put_LINE ( bonjour tout le mone de l aprat fde l'ingenieur d'etat safae
kwyasse )
end ;
---inserer une nouvelle categorie(table produit ) de produit ( code_cat = 5 ,
LIBELLE_CAT ="composantes " )
declare
code categorie .code _cat%type = 5 ;
lib categorie .libelle _cat %type = "composantes ;
begin
insert into categorie values ( code , lib ) ;
end ;
declare
code categorie . code_cat%tyep = 5 ;
lib categorie . libelle_cat%type = "composantes ;
begin
insert into categoroes values ( code , lib ) ;
end ;
type structure_salarie is record
( numero salries. numero sal % type ;
nom slaries.nom_sal %type ;
prenom salaries .prenom_sal % type ;
salaire salaries .salaire_sal % type ;
fonction salaries.fonction_sal % type ;
commisision salaries. commisision_sal % type)
tyep structure _ salrie is record
( numero salarie .numero sal % type ;
nom . salaries
----
type tableau is table of structure_salaries index by binary integer ;
begin
t(1) .numero = 1 ;
t(1 ).nom = "safae " ;
t(1).prenom ="kwyasse";
t(1).salaire = 30 000 ;
t(1) .fonction = "ingenieur d'etat" ;
--- estce que c'est ce sue doit eter pour la 4 emme question
DECLARE
date_commande commande.date_cde%TYPE;
BEGIN
date_commande := SYSDATE;
DBMS_OUTPUT.PUT_LINE('Contenu de date_commande : ' || TO_CHAR(date_commande,
'DD/MM/YYYY HH24:MI:SS'));
END;
TP3
2 ) -----simulation d'augmentation de 10 % si leurs salire est inferieur a la
moyenne dse salires et de 5 % si ce n'est pas le cas
declare
moyenne salaries.salaire%type ;
vsalire salaries.salire %type =&numero_salaries ;
numero salarie.numero
begin
select avrg ( salire) into moyenne from salaries ;
slect salire into Vsalire from salire where numero_sal = numero ;
if Vslaire < moyenne tehn vsalire = vdslaire* 1;1 ;
else Vsalaire = Vsalire*1,05 ; end if ;
update salaries set salire = Vsalire where numero_sal;
numero ;
end ;
4) -- commet creer un tableau de _ NOMS et l'afficher
declare
type tableau is table of varchar (30) index by binary_index ; dbms_output
t tableua ;
begin
t(1) ="safae" ; t(2) = "reda" ; t(3) ="ayoub" ; t(4)= "hiba" ; t(5)="abdessamad
" ;t(6) ="youssra" ; (7) = "anas" ; t(8) = "badr"
for i in 1..... t. count loop
dbms_output.put_line(t(i));
end loop ;
end ;
5) -----afficher les ingormationd etout les slaries en utilisnat boucle ;
declare
type tableau is table of salaries %rowtyoe index by binary _integer ;
t tableua ;
begin
slect *bulk collect into t from salaries ;
foe i in 1... sql% rowcount loop
dbms out_put .put_ line (t(1). numero_sal //'_'//t(1).nom_sal
//t(1).prneom_sla //'_'// t(i)fo,ction
end loop ;
end ;
6)----
declare
typoe tableau is table of slaries %rowtype index by binary integer ;
t tableau ;
i integer:=() ;
begin
select * bulk collect into from slaroe s;
while i< sql % rowcount loop
i:= i+1 ;
dbms-output.putline (t(1).numero_sal //'-'
