Notes

-Bonus Activity

--Creating a procedure for displaying firstname

CREATE OR REPLACE PROCEDURE proc_display_firstname(in_firstname VARCHAR2) IS
vn_length NUMBER(3);
vn_counter NUMBER(3) := 1;
BEGIN
vn_length := LENGTH(in_firstname);

DBMS_OUTPUT.PUT_LINE('--FIRSTNAME--');
LOOP
EXIT WHEN vn_counter > vn_length;
DBMS_OUTPUT.PUT_LINE(SUBSTR(in_firstname, vn_counter, 1));
vn_counter := vn_counter+1;
END LOOP;
END proc_display_firstname;
/
SHOW ERRORS;

/*To allow output to appear on the screen*/
SET SERVEROUTPUT ON;

execute proc_display_firstname('ALBERT');

--DROPPING proc_display_middlename procedure
DROP PROCEDURE proc_display_middlename;

--Creating a procedure for displaying middlename

CREATE OR REPLACE PROCEDURE proc_display_middlename(in_middlename VARCHAR2) IS
vn_length NUMBER(3);
vn_counter NUMBER(3) := 1;
BEGIN
vn_length := LENGTH(in_middlename)+1;

DBMS_OUTPUT.PUT_LINE('--MIDDLENAME--');

while vn_counter <= vn_length LOOP
DBMS_OUTPUT.PUT_LINE(SUBSTR(in_middlename, vn_counter, 1));
vn_counter := vn_counter+1;
END LOOP;

END proc_display_middlename;
/
SHOW ERRORS;

/*To allow output to appear on the screen*/
SET SERVEROUTPUT ON;

execute proc_display_middlename('BIBEK');



--DROPPING proc_display_surname procedure
DROP PROCEDURE proc_display_surname;

--Creating a procedure for displaying middlename

CREATE OR REPLACE PROCEDURE proc_display_surname(in_surname VARCHAR2) IS
vn_length NUMBER(3);
vn_counter NUMBER(3) := 1;
BEGIN
vn_length := LENGTH(in_surname);

DBMS_OUTPUT.PUT_LINE('--SURNAME--');

for vn_another_counter IN vn_counter .. vn_length LOOP
DBMS_OUTPUT.PUT_LINE(SUBSTR(in_surname, vn_another_counter, 1));
END LOOP;

END proc_display_surname;
/
SHOW ERRORS;

/*To allow output to appear on the screen*/
SET SERVEROUTPUT ON;

execute proc_display_surname('MISHRA');



--DROPPING proc_display_name procedure
DROP PROCEDURE proc_display_name;

--Creating a procedure for displaying middlename

CREATE OR REPLACE PROCEDURE proc_display_name(in_firstname VARCHAR2, in_middlename VARCHAR2, in_surname VARCHAR2) IS
--vn_length NUMBER(3);
--vn_counter NUMBER(3) := 1;
BEGIN
proc_display_firstname(in_firstname);
proc_display_middlename(in_middlename);
proc_display_surname(in_surname);

END proc_display_name;
/
SHOW ERRORS;

/*To allow output to appear on the screen*/
SET SERVEROUTPUT ON;

execute proc_display_name('ALBERT','BIBEK','MISHRA');