DECLARE
	sso_user varchar2(40);
	
	nn number;
	v_vis VARCHAR2(20);
	
	uid varchar2(50);
  udn varchar2(50);
  sdn varchar2(50);
  
  myid varchar2(8);
  ckid varchar2(8);
  atpos number;
  
  cursor chk_user is
     select ID
        from users
        where id = upper(myid);
        
	
BEGIN

  --set_window_property (forms_mdi_window, window_size, 600, 385);
  set_window_property (forms_mdi_window, window_size, 625, 435);
  set_window_property (forms_mdi_window, position, 0, 0);                
  set_window_property ('Application Menu', window_state, maximize);

  --sso_user := get_application_property(sso_userid);
  --message('SSO User: ' || sso_user);
  --return;
  
  --execute_query;
  --clear_form;
  --clear_message;
  --:system.message_level:=25;
  
	-- get the SSO logon ID
	uid := Get_Application_Property(sso_userid);
	
	-- keep the first portion of the SSO user stopping at the @ sign
	atpos := instr(uid, '@') - 1;
	myid := substr(uid, 1, atpos);
	
	MESSAGE('myid: ' || myid);
	
	open chk_user;
	fetch chk_user into ckid;
	close chk_user;
	
	:GLOBAL.ID := upper(ckid);
	
	--message('ckid is: ' || ckid);
	
	--if uid is null then
      --message('Invalid sso userid is '||uid);
  --end if;

  --udn := Get_Application_Property(sso_usrdn);
  --dbms_output.put_line('sso userid is '||udn);
  --sdn := Get_Application_Property(sso_subdn);
  --dbms_output.put_line('sso userid is '||sdn);

	-- initialize global.id if null
	IF :GLOBAL.ID IS NULL THEN 	
		Default_Value('MARTIN','GLOBAL.ID'); 
	end if;


  ckid := upper(:global.id);
  message('ckid is: ' || ckid);
  
	--IF app_user_security.valid_user(:USERS.id,:USERS.password) then
	if ckid is not null then
		--:GLOBAL.ID := TO_CHAR(ckid); 
		
		v_vis := GET_VIEW_PROPERTY('APPLICATIONS', VISIBLE);
		IF v_vis = 'FALSE' THEN
			SET_VIEW_PROPERTY('APPLICATIONS', VISIBLE, PROPERTY_TRUE);
		END IF;
    GO_BLOCK('AUTHUSER');
    --do_key('enter_query');
    --:authuser.id := :global.id;
    EXECUTE_QUERY;
    clear_message;
    :system.message_level:=25;
	ELSE
		SET_ALERT_PROPERTY ('note_alert', alert_message_text, 
	  'Your Password is incorrect please try again.');
		nn := show_alert('note_alert');
	END IF;
END;

DECLARE
  nn number;	
  uid varchar2(50);
  myid varchar2(8);
  ckid varchar2(8);
  atpos number;
	
BEGIN

  set_window_property (forms_mdi_window, window_size, 625, 435);
  set_window_property (forms_mdi_window, position, 0, 0);                
  set_window_property ('Application Menu', window_state, maximize);
  
  -- get the SSO logon ID
  uid := Get_Application_Property(sso_userid);
	
  -- keep the first portion of the SSO user stopping at the @ sign
  atpos := instr(uid, '@') - 1;
  myid := substr(uid, 1, atpos);
	
  MESSAGE('SSO ID: ' || myid);
	
  select ID into :global.id
      from users
      where id = myid;

  -- initialize global.id if null
  IF :GLOBAL.ID IS NULL THEN 	
     Default_Value('MARTIN','GLOBAL.ID'); 
  end if;

  if :global.id is not null then
    GO_BLOCK('AUTHUSER');
    EXECUTE_QUERY;
  ELSE
     SET_ALERT_PROPERTY ('note_alert', alert_message_text, 
	  'Your Password is incorrect please try again.');
     nn := show_alert('note_alert');
  END IF;
END;

if :global.id is not null then
   set_block_property('authuser', default_where, 'id = ' || :global.id);
else
   ...
end if;

SQL> create user abc@dot.net identified by a;
create user abc@dot.net identified by a
               *
ERROR at line 1:
ORA-00922: missing or invalid option


SQL>

SQL> create user "abc@dot.net" identified by a;

User created.

SQL>