Member Avatar for thiodre26
thiodre26 0 Newbie Poster

Help!

I am trying to write some PL/SQL code to display a menu and get prompted for me to enter a selection. I've created 2 procedures and am trying to call those 2 procedure from a PL/SQL block. When I create the selection procedure using variable substitution, I get prompted for input. But when I call the procedure from within a PL/SQL block, I don't get prompted. Is it possible to call the procedure and get prompted to enter a selection.

Please take a look at my two procedures and main pl/sql block that is attached and give me some hints or pointers as to what I am doing wrong.

Thanks for any assistance.

CREATE OR REPLACE PROCEDURE DisplayMenu
AS
BEGIN
	DBMS_OUTPUT.PUT_LINE(CHR(0));
	DBMS_OUTPUT.PUT_LINE(CHR(0));
	DBMS_OUTPUT.PUT_LINE(CHR(0));
	DBMS_OUTPUT.PUT_LINE(CHR(0));
	DBMS_OUTPUT.PUT_LINE(CHR(0));
	DBMS_OUTPUT.PUT_LINE(CHR(0));
	DBMS_OUTPUT.PUT_LINE(CHR(9)||CHR(9)||CHR(9)||'R2D2 Car Repair Shop');
	DBMS_OUTPUT.PUT_LINE(CHR(9)||CHR(9)||CHR(9)||'====================');
	DBMS_OUTPUT.PUT_LINE(CHR(0));
	DBMS_OUTPUT.PUT_LINE(CHR(0));
	DBMS_OUTPUT.PUT_LINE(CHR(9)||CHR(9)||CHR(9)||CHR(9)||'Main Menu');
	DBMS_OUTPUT.PUT_LINE(CHR(9)||CHR(9)||CHR(9)||CHR(9)||'==========');
	DBMS_OUTPUT.PUT_LINE(CHR(0));
	DBMS_OUTPUT.PUT_LINE(CHR(0));
	DBMS_OUTPUT.PUT_LINE('Select One of the Options Below:');
	DBMS_OUTPUT.PUT_LINE(CHR(9));
	DBMS_OUTPUT.PUT_LINE(CHR(9)||CHR(9)||'1. Work With Employee Table');	
	DBMS_OUTPUT.PUT_LINE(CHR(9)||CHR(9)||'2. Work With Maintenance Tasks Table');
	DBMS_OUTPUT.PUT_LINE(CHR(9)||CHR(9)||'3. Work With Car Repair Order Table');
	DBMS_OUTPUT.PUT_LINE(CHR(9)||CHR(9)||'3. Work With Repair Material Inventory Table');
	DBMS_OUTPUT.PUT_LINE(CHR(9)||CHR(9)||'4. Work With Quarries and Reports');
	DBMS_OUTPUT.PUT_LINE(CHR(9)||CHR(9)||'6. End Program');
	DBMS_OUTPUT.PUT_LINE(CHR(0));
	DBMS_OUTPUT.PUT_LINE('Enter Your Selection (1-6)=>:');
END DisplayMenu;
/
SET SERVEROUTPUT ON FEEDBACK OFF
PROMPT
DECLARE
v_option  NUMBER;
BEGIN
	DisplayMenu();
	GetSelection();
EXCEPTION
	WHEN OTHERS THEN
		NULL;
END;
/
CREATE OR REPLACE PROCEDURE GetSelection
AS
v_option  NUMBER;
BEGIN
	v_option := &sv_option;
END GetSelection;
/
  • 1 Contributor
  • 0 Replies
  • 72 Views
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.