-- Create profile 
create profile COMM_USER limit
  failed_login_attempts 5
  password_life_time 30
  password_reuse_time 360
  password_reuse_max unlimited
  password_lock_time unlimited
  password_grace_time 15
  password_verify_function SF_PWD_VER;
-- Add users to profile 
alter user cas profile NOPASS_USER;

Procedure invalid_logon Is
ddl_statement varchar2(200);
BEGIN
.....
.....
.....
 	If :global.attempt_indicator='N' and :global.attempt_counter=0 THEN
  		display_invalid(:global.msg_cannot_logon);
  		:global.attempt_indicator:='Y'; 
  		:global.attempt_counter:=1;
  		raise form_trigger_failure;
  	Elsif :global.attempt_indicator='Y' and :global.attempt_counter=1 THEN
  		display_invalid(:global.msg_max_logon_attempt);
  		:global.attempt_indicator:='Y'; 
  		:global.attempt_counter:=2;
  		raise form_trigger_failure;  		
  	Elsif :global.attempt_indicator='Y' and :global.attempt_counter=2 THEN
  		ddl_statement := 'alter user '||upper(:bk_control.user)||' account lock';
  		Forms_DDL(ddl_statement);
   		IF NOT Form_Success THEN
  		   message(Dbms_Error_Code);
  		ELSE
  		   message('Lock Succeeded! ');
  		END IF;	  		
  		display_invalid(:global.tmessages_075);
  		:global.attempt_indicator:='N';
  		:global.attempt_counter:=0;
  		raise form_trigger_failure;  
	End If;
....
....
....
END