create userdisc1:dbready     (
	okaytouse   =i1,
	quarter     =text(3)
)
with logging
copy dbready      () from "USERDISC1:[UWRF.ACCESS.ACCESS_MGR]dbready.ab"
\p\g
copy zopt1stat    () from "USERDISC1:[UWRF.ACCESS.ACCESS_MGR]zopt1stat.ab"
\p\g
create userdisc1:crsuics     (
	dept        =text(4),
	course      =text(3),
	section     =text(2),
	grp_number  =i2,
	mem_number  =i2
)
with logging
copy crsuics      () from "USERDISC1:[UWRF.ACCESS.ACCESS_MGR]crsuics.ab"
\p\g
modify crsuics      to hash on dept        ,
	course      ,
	section     
\p\g
create userdisc1:deptinfo    (
	dept_name   =text(20),
	dept_number =text(4)
)
with logging
copy deptinfo     () from "USERDISC1:[UWRF.ACCESS.ACCESS_MGR]deptinfo.ab"
\p\g
copy fdtrim       () from "USERDISC1:[UWRF.ACCESS.ACCESS_MGR]fdtrim.ab"
\p\g
create userdisc1:ingresinfo  (
	dept        =text(4),
	course      =text(3),
	section     =text(2),
	dblist      =text(40),
	dbaccess    =i1
)
with logging
copy ingresinfo   () from "USERDISC1:[UWRF.ACCESS.ACCESS_MGR]ingresinf.ab"
\p\g
modify ingresinfo   to hash on dept        ,
	course      ,
	section     
\p\g
copy reports      () from "USERDISC1:[UWRF.ACCESS.ACCESS_MGR]reports.ab"
\p\g
copy abfappl      () from "USERDISC1:[UWRF.ACCESS.ACCESS_MGR]abfappl.ab"
\p\g
copy rcommands    () from "USERDISC1:[UWRF.ACCESS.ACCESS_MGR]rcommands.ab"
\p\g
copy fdfields     () from "USERDISC1:[UWRF.ACCESS.ACCESS_MGR]fdfields.ab"
\p\g
copy gcommands    () from "USERDISC1:[UWRF.ACCESS.ACCESS_MGR]gcommands.ab"
\p\g
copy zopt2stat    () from "USERDISC1:[UWRF.ACCESS.ACCESS_MGR]zopt2stat.ab"
\p\g
copy abfobjs      () from "USERDISC1:[UWRF.ACCESS.ACCESS_MGR]abfobjs.ab"
\p\g
copy fdframes     () from "USERDISC1:[UWRF.ACCESS.ACCESS_MGR]fdframes.ab"
\p\g
copy graphs       () from "USERDISC1:[UWRF.ACCESS.ACCESS_MGR]graphs.ab"
\p\g
copy qbfmap       () from "USERDISC1:[UWRF.ACCESS.ACCESS_MGR]qbfmap.ab"
\p\g
create userdisc1:crsinfo     (
	dept        =text(4),
	course      =text(3),
	section     =text(2),
	usr_prefix  =text(6),
	account_name=text(31),
	owner_name  =text(31),
	device      =text(15),
	lgicmd      =text(63),
	f_captive   =text(1),
	f_dismail   =text(1),
	f_disnewmail=text(1),
	f_disrecon  =text(1),
	f_disreport =text(1),
	f_lockpwd   =text(1),
	primedays   =text(42),
	batch       =text(40),
	local       =text(40),
	dialup      =text(40),
	pwdlifetime =text(9),
	pwdminimum  =i1,
	prclm       =i4,
	bytlm       =i4,
	wsdefault   =i4,
	wsquota     =i4,
	wsextent    =i4,
	pgflquota   =i4,
	identifiers =text(80),
	privs_auth  =text(40),
	privs_def   =text(40),
	quota_perm  =i4,
	quota_over  =i4,
	ingresuser  =text(1),
	rsv_maxblks =i1
)
with logging
copy crsinfo      () from "USERDISC1:[UWRF.ACCESS.ACCESS_MGR]crsinfo.ab"
\p\g
modify crsinfo      to hash on dept        ,
	course      ,
	section     
\p\g
copy iiqbfinfo    () from "USERDISC1:[UWRF.ACCESS.ACCESS_MGR]iiqbfinfo.ab"
\p\g
create userdisc1:instructor  (
	dept        =text(4),
	course      =text(3),
	section     =text(2),
	quarter     =text(3),
	faculty_usr =text(12),
	edituser    =text(1)
)
with logging
copy instructor   () from "USERDISC1:[UWRF.ACCESS.ACCESS_MGR]instructo.ab"
\p\g
modify instructor   to hash on dept        ,
	course      ,
	section     ,
	quarter     
\p\g
create userdisc1:menuitems   (
	commandkey  =c10,
	commanddesc =c67,
	menu        =i2
)
with logging
copy menuitems    () from "USERDISC1:[UWRF.ACCESS.ACCESS_MGR]menuitems.ab"
\p\g
/*	Permissions on dbready are:	*/

/*	Permission 1 -	*/

range of d is dbready
define permit retrieve on d 
	to all \p\g


/*	Permission 2 -	*/

range of d is dbready
define permit retrieve, replace, delete, append on d 
	to sys_mn \p\g


/*	Permissions on crsuics are:	*/

/*	Permission 1 -	*/

range of c is crsuics
define permit retrieve on c 
	to all \p\g


/*	Permission 2 -	*/

range of c is crsuics
define permit retrieve, replace, delete, append on c 
	to sys_mn \p\g


/*	Permission 3 -	*/

range of c is crsuics
define permit replace on c (mem_number)
	to all \p\g


/*	Permissions on deptinfo are:	*/

/*	Permission 1 -	*/

range of d is deptinfo
define permit retrieve on d 
	to all \p\g


/*	Permission 2 -	*/

range of d is deptinfo
define permit retrieve, replace, delete, append on d 
	to sys_mn \p\g


/*	Permissions on ingresinfo are:	*/

/*	Permission 1 -	*/

range of i is ingresinfo
define permit retrieve on i 
	to all \p\g


/*	Permission 2 -	*/

range of i is ingresinfo
define permit retrieve, replace, delete, append on i 
	to sys_mn \p\g


/*	Permissions on crsinfo are:	*/

/*	Permission 1 -	*/

range of c is crsinfo
define permit retrieve on c 
	to all \p\g


/*	Permission 2 -	*/

range of c is crsinfo
define permit retrieve, replace, delete, append on c 
	to sys_mn \p\g


/*	Permissions on instructor are:	*/

/*	Permission 1 -	*/

range of i is instructor
define permit retrieve on i 
	to all \p\g


/*	Permission 2 -	*/

range of i is instructor
define permit retrieve, replace, delete, append on i 
	to sys_mn \p\g


/*	Permissions on menuitems are:	*/

/*	Permission 1 -	*/

range of m is menuitems
define permit retrieve on m 
	to all \p\g


/*	Permission 2 -	*/

range of m is menuitems
define permit retrieve, replace, delete, append on m 
	to sys_mn \p\g