REM alterpwd.sql 
create or replace procedure CHANGE_MY_PASSWORD(NewPass IN VARCHAR2) AS 
Cursor_Name INTEGER; 
String VARCHAR2(100); 
cursor USERNAME_CURSOR is 
select User from DUAL; 
UserNm VARCHAR2(32); 
BEGIN 
open USERNAME_CURSOR; 
fetch USERNAME_CURSOR into UserNm; 
close USERNAME_CURSOR; 
String:= 'alter user '||UserNm||' identified by '||NewPass ; 
Cursor_Name := DBMS_SQL.OPEN_CURSOR; 
DBMS_SQL.PARSE(Cursor_Name, String, dbms_sql.Native); 
DBMS_SQL.CLOSE_CURSOR(Cursor_Name); 
END; 
/