abc

DECLARE

  v_name varchar2(30):='&give_name';

   v_parse varchar2(50):=NULL;

        BEGIN

   dbms_output.put_line('the given nameis'||v_name);

      FOR x IN 1..LENGTH(v_name)

       loop

   v_parse:=v_parse||substr(v_name,x,1);

    dbms_output.put_line('the position of the string is'||v_parse);

         END loop;

      v_parse:=NULL;       

       FOR Y IN reverse 1..LENGTH(v_name)

           loop 

    v_parse:= v_parse||substr(v_name,LENGTH(v_name)-1,1);

   dbms_output.put_line('the position of the string is'||v_parse);

           END loop;

            END;