C************************************************************************
C Common definitions for PROFILE
C************************************************************************

        character*64 defdir, lgicmd, old_defdir, old_lgicmd
        character*32 account, owner, tables, defcli, defdev
	character*32 old_account, old_owner, old_tables
	character*32 old_defcli, old_defdev
	character*23 exprdate, old_exprdate
	character*23 pwd_lifetime, old_pwd_lifetime
	character*20 u, orig_uname
	character*15 uic, old_uic
	character*12 username, old_username, password, old_password
	character*10 cpu_string, old_cpu_string
	character*8  quota, overdraft
        character*6  maxjobs_string, fillm_string, bytlm_string,
     .		     maxacctjobs_string, shrfillm_string,
     .		     pbytlm_string, maxdetach_string, biolm_string,
     .		     jtquota_string, prclm_string, diolm_string,
     .		     wsdef_string, prio_string, astlm_string,
     .		     wsquo_string, queprio_string, tqelm_string,
     .		     wsextent_string, enqlm_string, pgflquo_string,
     .		     pwd_length_string
	integer*4    smg$read_string, smg$create_virtual_keyboard,
     .		     smg$create_pasteboard, smg$paste_virtual_display,
     .		     smg$create_virtual_display, smg$set_cursor_abs,
     .		     smg$begin_pasteboard_update, smg$put_chars_wide,
     .		     smg$end_pasteboard_update, smg$put_chars, 
     .		     smg$change_rendition, smg$erase_display,
     .		     smg$read_keystroke,
     .		     ots$cvt_l_ti, ots$cvt_ti_l, ots$cvt_to_l, 
     .		     sys$asctim, sys$bintim, sys$getuai, sys$setprv, 
     .		     sys$setuai, lib$create_dir, lib$getdvi,
     .		     lib$bbssi, lib$bbcci, lib$get_foreign,
     .		     lib$sys_fao, lib$getjpi, lib$find_file,
     .		     lib$rename_file
	integer*4    flags, bytlm, prime, jtquota, prio, queprio,
     .		     cpu, end_list, days, hours, minutes, 
     .		     seconds, astlm, biolm, wsdef, diolm, enqlm, 
     . 		     maxacctjobs, maxdetach, maxjobs, pbytlm, fillm,
     .		     mem, grp, pgflquo, prclm, shrfillm, tqelm,
     .		     wsextent, wsquo, batch_p, batch_s, dialup_p, 
     .		     dialup_s, local_p, local_s, network_p, network_s, 
     .		     remote_p, remote_s, uic_value
	integer*4    old_flags, old_bytlm, old_prime, old_jtquota,
     .		     old_prio, old_queprio, old_cpu, old_astlm,
     .		     old_biolm, old_wsdef, old_diolm, old_enqlm,
     .		     old_maxacctjobs, old_maxdetach, old_maxjobs,
     .		     old_pbytlm, old_fillm, old_pgflquo, old_prclm,
     .		     old_shrfillm, old_tqelm, old_wsextent, old_wsquo,
     .		     old_batch_p, old_batch_s, old_dialup_p,
     .		     old_dialup_s, old_local_p, old_local_s, 
     .		     old_network_p, old_network_s, old_remote_p,
     .		     old_remote_s, old_uic_value, old_pwd_length
       	integer*4    keyboard, main, message, priv_board, flags_board,
     .		     access_board, days_board, pasteboard, instruct,
     .		     error_message, term, help_board
	integer*4    account_len, defdev_len, defdir_len,
     .		     owner_len, username_len, password_len, uname_len,
     .		     tables_len, lgicmd_len, defcli_len
        integer*4    mem_len, grp_len, pwd_life_len, auth_priv_len, 
     .		     prime_len, def_priv_len, flags_len, pwd_length, 
     .		     pwd_length_len, expir_len, maxjobs_len, fillm_len, 
     .		     bytlm_len, maxacctjobs_len, shrfillm_len, 
     .		     pbytlm_len, maxdetach_len, biolm_len, uic_len,
     .		     jtquota_len, prclm_len, diolm_len, wsdef_len, 
     .		     prio_len, astlm_len, wsquo_len, queprio_len, 
     .		     tqelm_len, wsextent_len, cpu_len, enqlm_len,
     .		     pgflquo_len, batch_p_len, batch_s_len, u_len,
     .		     dialup_p_len, dialup_s_len, local_p_len, 
     .		     local_s_len, network_p_len, network_s_len, 
     .		     remote_p_len, remote_s_len, uic_value_len
	integer*4    auth_priv(2), def_priv(2)
	integer*4    old_auth_priv(2), old_def_priv(2)
	integer*2    pwd_life(4), expir(4)
	integer*2    old_pwd_life(4), old_expir(4)
	integer	     item
	logical      user_exists, bogus_key, change, add_quota,
     .		     pwd_change, rename, success, add_identifier,
     .		     send_mail, create_directory, noecho
	logical      u_change, owner_change, account_change,
     .		     uic_change, defcli_change, tables_change,
     .		     defdev_change, defdir_change, lgicmd_change,
     .		     expir_change, pwdlen_change, fillm_change,
     .		     pwdlife_change, maxjobs_change, bytlm_change,
     .		     maxacctjobs_change, shrfillm_change,
     .		     pbytlm_change, maxdetach_change, biolm_change,
     .		     jtquota_change, prclm_change, diolm_change,
     .		     wsdef_change, prio_change, astlm_change,
     .		     wsquo_change, tqelm_change, wsextent_change,
     .		     cpu_change, enqlm_change, pgflquo_change,
     .		     queprio_change

 	common /board_stuff/
     .		     keyboard, main, message, priv_board, flags_board,
     .		     instruct, access_board, days_board, term,
     .		     pasteboard, error_message, help_board

	common /uai_strings/
     .		     exprdate, u, username, orig_uname, password,
     .		     pwd_lifetime, uic, u_len, account, cpu_string,
     .		     pwd_length_string, maxjobs_string, enqlm_string,
     .		     fillm_string, maxacctjobs_string, shrfillm_string, 
     .		     pbytlm_string, maxdetach_string, jtquota_string, 
     .		     biolm_string, prclm_string, diolm_string, 
     .		     wsdef_string, astlm_string, prio_string, 
     .		     wsquo_string, queprio_string, tqelm_string, 
     .		     wsextent_string, pgflquo_string, bytlm_string,
     .		     defdir, lgicmd, owner, tables, defcli, defdev,
     .		     old_cpu_string, old_password, old_uic, 
     .		     old_username, old_exprdate, old_pwd_lifetime

	common /uai_lengths/
     .		     account_len, defdev_len, defdir_len, owner_len, 
     .		     username_len, mem_len, grp_len, pwd_life_len, 
     .		     pwd_length_len, lgicmd_len, defcli_len, tables_len, 
     .		     expir_len, maxjobs_len, bytlm_len, flags_len,
     .		     fillm_len, maxacctjobs_len, shrfillm_len,
     .		     prime_len, pbytlm_len, maxdetach_len, uname_len,
     .		     biolm_len, jtquota_len, prclm_len, diolm_len, 
     .		     wsdef_len, prio_len, astlm_len, wsquo_len,
     .		     queprio_len, tqelm_len, cpu_len, wsextent_len, 
     .		     enqlm_len, pgflquo_len, password_len, uic_len,
     .		     uic_value_len

	common /uai_int/
     .		     pwd_life, expir, mem, grp, prime, auth_priv,
     .		     pwd_length, bytlm, maxjobs, fillm, maxacctjobs, 
     .	             shrfillm, pbytlm, maxdetach, biolm, jtquota, prclm, 
     .		     diolm, wsdef, prio, astlm, wsquo, queprio, tqelm, 
     .		     wsextent, cpu, enqlm, pgflquo, flags, days, hours, 
     .		     minutes, seconds, def_priv, uic_value, item

	common /access_lens/
     .		     batch_p, batch_p_len, batch_s, batch_s_len, 
     .		     dialup_p, dialup_p_len, dialup_s, dialup_s_len, 
     .		     local_p, local_s, local_p_len, local_s_len, 
     .		     network_p, network_p_len, network_s, network_s_len,
     .		     remote_p, remote_p_len, remote_s, remote_s_len

	common /misc_strings/ quota, overdraft

	common /misc_logicals/
     .		     rename, change, user_exists, pwd_change, 
     .		     success, add_quota, add_identifier, send_mail,
     .		     create_directory, noecho

c	common /setuai_items/ modlist

	common /old_uai_strings/ old_defdir, old_lgicmd, old_account, 
     .		     old_owner, old_tables, old_defcli, old_defdev

	common /old_uai_int/ old_flags, old_bytlm, old_prime, 
     .		     old_jtquota, old_prio, old_queprio, old_cpu, 
     .		     old_astlm, old_wsdef, old_diolm, old_enqlm,
     .		     old_biolm, old_maxdetach, old_maxjobs,
     .		     old_maxacctjobs, old_pgflquo, old_prclm,
     .		     old_pbytlm, old_fillm, old_wsextent, old_wsquo,
     .		     old_shrfillm, old_tqelm, old_uic_value,
     .		     old_batch_p, old_batch_s, old_dialup_p,
     .		     old_dialup_s, old_local_p, old_local_s, 
     .		     old_network_p, old_network_s, old_remote_p,
     .		     old_remote_s, old_auth_priv, old_def_priv,
     .		     old_expir, old_pwd_life, old_pwd_length

	common /changes/ u_change, owner_change, account_change,
     .		     uic_change, defcli_change, tables_change,
     .		     defdev_change, defdir_change, lgicmd_change,
     .		     expir_change, pwdlen_change, fillm_change,
     .		     pwdlife_change, maxjobs_change, bytlm_change,
     .		     maxacctjobs_change, shrfillm_change,
     .		     pbytlm_change, maxdetach_change, biolm_change,
     .		     jtquota_change, prclm_change, diolm_change,
     .		     wsdef_change, prio_change, astlm_change,
     .		     wsquo_change, tqelm_change, wsextent_change,
     .		     cpu_change, enqlm_change, pgflquo_change,
     .		     queprio_change

	common /changed_items/ modlist