Kennwort ändern

PROCEDURE passwort_aendern IS
	un VARCHAR2(80) := get_application_property(username);
	pw VARCHAR2(80) := get_application_property(password); 
	cn VARCHAR2(80) := get_application_property(connect_string);
begin
	forms_ddl('alter user '||un||' password expire');
	LOGOUT;
	:global.logon := 'J';
	:global.un := un;
	:global.pw := pw||'@'||cn;
	LOGON (un,pw||'@'||cn);
end;