السادة الزملاء اعضاء المنتدى الكريم برجاء المساعدة فى التالى كود يعطى خطأ أريد تحديد الخطأ والمعالجة شكرا جزيلا :

create or replace procedure pf_06_01
( p_employee_id employees . employee_id%type)
is 
type employee_record_type is record 
( employee_id number(6) not null :=100, 
last_name employees . last_name%type,
job_id employees . job_id%type ) ;
employee_record employee_record_type;
begin
select employee_id,last_name, job_id into employee_record from employees where employee_id = p_employee_id ;
dbms _output.put_line( employee_record . employee_id || ' ' || employee_record . last_name || ' ' || employee_record . job_id ); 
end pf_06_01 ;

ممكن تستخدم جمله 

show errors 

ده بيبين الاخطاء اللى في الكود بتاعك 

هناك مسافه في هذا السطر

dbms _output.put_line

والصحيح

dbms_output.put_line

شكرا السادة الزملاء على حسن الاهتمام والرد جزاكم الله خيرا 

 

create or replace procedure pf_06_01

( p_employee_id employees . employee_id%type)

is 

type employee_record_type is record 

( employee_id number(6) not null :=100, 

last_name employees . last_name%type,

job_id employees . job_id%type ) ;

employee_record employee_record_type;

begin

select employee_id,last_name, job_id into employee_record from employees where employee_id = p_employee_id ;

dbms_output.put_line( employee_record . employee_id || ' ' || employee_record . last_name || ' ' || employee_record . job_id ); 

end pf_06_01 ;

========================================

يعطى النتيجة : Procedure created. فقط مع العلم بأنى كتبت كود اظهار الطباعة وهو SET SERVEROUTPUT ON

برجاء الرد وسع الله اجركم وعلمكم ، شكرا للأخوة الزملاء 

 

السلام عليكم الكود سليم اخى محمد بس الفكرة ان انتا معملتش execute procedure

دلوقتى ال  procedure  تم تخزينه فى قاعدة البيانات فاضل بس انك تستدعيه

set serveroutput on 
create or replace procedure pf_06_01
( p_employee_id employees . employee_id%type)
is 
type employee_record_type is record 
( employee_id number(6) not null :=100, 
last_name employees.last_name%type,
job_id employees.job_id%type ) ;
employee_record employee_record_type;
begin
select employee_id,last_name, job_id into employee_record from employees where employee_id = p_employee_id ;
dbms_output.put_line( employee_record.employee_id || ' ' || employee_record.last_name || ' ' || employee_record.job_id ); 
end pf_06_01 ;
/
execute pf_06_01(100);

 

 

ده الكود بتاعك انا بس زودت عليه اخر سطرين وهيشتغل معاك على طول 

اى سؤال تحت امرك !! 

الأخ الكريم mido جزيل الشكر لحضرتك واهتمامك جزيت خيرا