I have an error while creating a procedure for Oracle. Anyone could help? I am getting the error saying PLS-00103: Encountered the symbol PROMPT when expecting one of the following: .... bla bla bla The code are as follow: CREATE OR REPLACE PROCEDURE ADD_STAFF IS ACCEPT IN_STAFF_TYPE PROMPT Staff Type (ACADEMIC/ADMIN): ; ACCEPT IN_FULL_PART PROMPT Status (Full/Part): ; ACCEPT IN_STAFF_NAME PROMPT Staff Name: ; ACCEPT IN_STAFF_IC PROMPT IC No: ; ACCEPT IN_STAFF_ADD PROMPT Address: ; ACCEPT IN_STAFF_HP PROMPT Contact No: ; ACCEPT IN_STAFF_EMAIL PROMPT Email Address: ; ACCEPT IN_T_HOUR PROMPT Part Timer Hour Worked: ; ACCEPT IN_R_HOUR PROMPT Part Timer Rate per Hour: ; ACCEPT IN_M_SALARY PROMPT Full Timer Monthly Salary: ; DECLARE IN_STAFF_TYPE STAFF.StaffType%TYPE := &IN_STAFF_TYPE; IN_FULL_PART VARCHAR := &IN_FULL_PART; IN_STAFF_NAME STAFF.StaffName%TYPE := &IN_STAFF_NAME; IN_STAFF_IC STAFF.StaffIC%TYPE := &IN_STAFF_IC; IN_STAFF_ADD STAFF.StaffAddress%TYPE := &IN_STAFF_ADD; IN_STAFF_HP STAFF.StaffHPNo%TYPE := &IN_STAFF_HP; IN_STAFF_EMAIL STAFF.StaffEmail%TYPE := &IN_STAFF_EMAIL; IN_T_HOUR STAFF.TotalHour%TYPE := &IN_T_HOUR; IN_R_HOUR STAFF.RatePerHour%TYPE := &IN_R_HOUR; IN_M_SALARY STAFF.MonthSalary%TYPE := &IN_M_SALARY; v_idcode VARCHAR(4); v_inserted BOOLEAN DEFAULT TRUE; BEGIN IF IN_STAFF_TYPE = ACADEMIC AND UPPER(IN_FULL_PART) = FULL THEN v_idcode := STAC; INSERT INTO STAFF VALUES (v_idcode||staffid_seq.nextval,IN_STAFF_NAME,IN_STAFF_IC,IN_STAFF_ADD,IN_STAFF_HP,IN_STAFF_EMAIL,to_date(SYSDATE, DD-MM-YYYY),IN_STAFF_TYPE,,,IN_M_SALARY); ELSIF IN_STAFF_TYPE = ACADEMIC AND UPPER(IN_FULL_PART) = PART THEN v_idcode := STAC; INSERT INTO STAFF VALUES (v_idcode||staffid_seq.nextval,IN_STAFF_NAME,IN_STAFF_IC,IN_STAFF_ADD,IN_STAFF_HP,IN_STAFF_EMAIL,to_date(SYSDATE, DD-MM-YYYY),IN_STAFF_TYPE,IN_T_HOUR,IN_R_HOUR,); ELSIF IN_STAFF_TYPE = ADMIN AND UPPER(IN_FULL_PART) = FULL THEN v_idcode := STAD; INSERT INTO STAFF VALUES (v_idcode||staffid_seq.nextval,IN_STAFF_NAME,IN_STAFF_IC,IN_STAFF_ADD,IN_STAFF_HP,IN_STAFF_EMAIL,to_date(SYSDATE, DD-MM-YYYY),IN_STAFF_TYPE,,,IN_M_SALARY); ELSIF IN_STAFF_TYPE = ADMIN AND UPPER(IN_FULL_PART) = PART THEN v_idcode := STAD; INSERT INTO STAFF VALUES (v_idcode||staffid_seq.nextval,IN_STAFF_NAME,IN_STAFF_IC,IN_STAFF_ADD,IN_STAFF_HP,IN_STAFF_EMAIL,to_date(SYSDATE, DD-MM-YYYY),IN_STAFF_TYPE,IN_T_HOUR,IN_R_HOUR,); ELSE v_inserted := FALSE; END IF; IF v_inserted = TRUE THEN IF UPPER(IN_FULL_PART) = FULL THEN DBMS_OUTPUT.PUT_LINE(Olympia College Staff Management); DBMS_OUTPUT.PUT_LINE(-------------------------------); DBMS_OUTPUT.PUT_LINE(Staff ID : ||v_idcode||staffid_seq.currval); DBMS_OUTPUT.PUT_LINE(Staff Name : ||IN_STAFF_NAME); DBMS_OUTPUT.PUT_LINE(Staff IC No : ||IN_STAFF_IC); DBMS_OUTPUT.PUT_LINE(Staff Address : ||IN_STAFF_ADD); DBMS_OUTPUT.PUT_LINE(Staff Contact : ||IN_STAFF_HP); DBMS_OUTPUT.PUT_LINE(Staff Email : ||IN_STAFF_EMAIL); DBMS_OUTPUT.PUT_LINE(Staff Type : ||IN_STAFF_TYPE); DBMS_OUTPUT.PUT_LINE(-------------------------------); DBMS_OUTPUT.PUT_LINE(Full Time/ Part Time : ||UPPER(IN_FULL_PART)); DBMS_OUTPUT.PUT_LINE(Total Hour Worked : 0); DBMS_OUTPUT.PUT_LINE(Rate / Hour : 0); DBMS_OUTPUT.PUT_LINE(Monthly Salary : ||IN_M_SALARY); DBMS_OUTPUT.PUT_LINE(-------------------------------); ELSIF UPPER(IN_FULL_PART) = PART THEN DBMS_OUTPUT.PUT_LINE(Olympia College Staff Management); DBMS_OUTPUT.PUT_LINE(-------------------------------); DBMS_OUTPUT.PUT_LINE(Staff ID : ||v_idcode||staffid_seq.currval); DBMS_OUTPUT.PUT_LINE(Staff Name : ||IN_STAFF_NAME); DBMS_OUTPUT.PUT_LINE(Staff IC No : ||IN_STAFF_IC); DBMS_OUTPUT.PUT_LINE(Staff Address : ||IN_STAFF_ADD); DBMS_OUTPUT.PUT_LINE(Staff Contact : ||IN_STAFF_HP); DBMS_OUTPUT.PUT_LINE(Staff Email : ||IN_STAFF_EMAIL); DBMS_OUTPUT.PUT_LINE(Staff Type : ||IN_STAFF_TYPE); DBMS_OUTPUT.PUT_LINE(-------------------------------); DBMS_OUTPUT.PUT_LINE(Full Time/ Part Time : ||UPPER(IN_FULL_PART)); DBMS_OUTPUT.PUT_LINE(Total Hour Worked : ||IN_T_HOUR); DBMS_OUTPUT.PUT_LINE(Rate / Hour : ||IN_R_HOUR); DBMS_OUTPUT.PUT_LINE(Monthly Salary : 0); DBMS_OUTPUT.PUT_LINE(-------------------------------); END IF; END IF; END; /
Posted on: Tue, 12 Aug 2014 08:49:49 +0000
Trending Topics
Recently Viewed Topics
© 2015