Assistance with piece of code please

Hi, I don't do much coding and borrow much of what I need from what's already out on the net.   No sense in re-inventing the wheel every time.

I'm testing this piece of code that allow me to use segment advisor when OEM is not available.  I borrowed from this from the net and there are a couple of issues with it, I hope someone could resolve.

SET serveroutput ON

SET pagesize 10000

SET linesize 120

SET verify OFF

SET define off

-- Declare all the required variables.

ACCEPT t_name prompt 'Enter a unique Task Name : '

PROMPT * * * Object Type can be one of the following * * *