% VAX-11 Librarian V03-00@Sœ ^œ!,"h &DFTQUOTAQUOTAUSER e~XœcAc *************************************************************** c * *+c * Quota 2.9 Default Record Definition * c * *Ac ***************************************************************c2 common /dftquota_def/dftquota_def,dftquota_length character*482 dftquota_record byte dftquota_def (0:481). equivalence (dftquota_record,dftquota_def(0))cc Identification Fieldsc* character*12 dftquota_username ! username0 equivalence (dftquota_username,dftquota_def(0))c integer*4 dftquota_uic ! uic) integer*2 dftquota_member,dftquota_group, equivalence (dftquota_uic,dftquota_def(12))/ equivalence (dftquota_member,dftquota_def(12)). equivalence (dftquota_group,dftquota_def(14))c+ character*30 dftquota_owner ! owners name. equivalence (dftquota_owner,dftquota_def(16))/ character*30 dftquota_address ! owners address0 equivalence (dftquota_address,dftquota_def(46))/ character*2 dftquota_bldgnum ! building number0 equivalence  (dftquota_bldgnum,dftquota_def(76))- character*10 dftquota_phonnum ! phone number0 equivalence (dftquota_phonnum,dftquota_def(78)). character*1 dftquota_collnum ! college number0 equivalence (dftquota_collnum,dftquota_def(88))1 character*3 dftquota_deptnum ! department number0 equivalence (dftquota_deptnum,dftquota_def(89))1 character*20 dftquota_deptname ! department name1 equivalence (dftquota_deptname,dftquota_def(92))cc Privileges Fieldsc& integer*4 dftquota_mask ! quota ma sk* integer*4 dftquota_status ! quota status. equivalence (dftquota_mask,dftquota_def(112))0 equivalence (dftquota_status,dftquota_def(116))c, integer*4 dftquota_isupriv ! isu privileges1 equivalence (dftquota_isupriv,dftquota_def(120))- byte dftquota_fwdfiles ! forward files flag2 equivalence (dftquota_fwdfiles,dftquota_def(123))cc byte*2c. integer*2 dftquota_purkeep ! purge/keep limit1 equivalence (dftquota_purkeep,dftquota_def(126))c c byte*20cc Login/Logout Field sc- integer*4 dftquota_create(2) ! creation date5 integer*4 dftquota_authorize(2) ! authorization date/ integer*4 dftquota_expire(2) ! expiration date1 integer*4 dftquota_login(2) ! date of last login3 integer*4 dftquota_logout(2) ! date of last logout3 integer*4 dftquota_update(2) ! date of last update3 equivalence (dftquota_create(1),dftquota_def(148))6 equivalence (dftquota_authorize(1),dftquota_def(156))3 equivalence (dftquota_expire(1),dftquota_def(164))2 equivalence (dftquo ta_login(1),dftquota_def(172))3 equivalence (dftquota_logout(1),dftquota_def(180))3 equivalence (dftquota_update(1),dftquota_def(188))c. integer*4 dftquota_nlogin ! number of logins/ integer*4 dftquota_nlogout ! number of logouts0 equivalence (dftquota_nlogin,dftquota_def(196))1 equivalence (dftquota_nlogout,dftquota_def(200))c. character*1 dftquota_semester ! semester flag2 equivalence (dftquota_semester,dftquota_def(204))c c byte*19cc Cumulative Quota Fieldsc integ er*4 dftquota_quota(20)2 equivalence (dftquota_quota(1),dftquota_def(224))c" real*4 dftquota_dollm ! dollars/ equivalence (dftquota_dollm,dftquota_quota(1))c& integer*4 dftquota_cputime ! cpu time integer*4 dftquota_cpulm1 equivalence (dftquota_cputime,dftquota_quota(2))/ equivalence (dftquota_cpulm,dftquota_quota(3))c+ integer*4 dftquota_trmtime ! terminal time integer*4 dftquota_trmlm1 equivalence (dftquota_trmtime,dftquota_quota(4))/ equivalence (dftquota_trmlm,dftqu ota_quota(5))c) integer*4 dftquota_dskspace ! disk space integer*4 dftquota_dsklm2 equivalence (dftquota_dskspace,dftquota_quota(6))/ equivalence (dftquota_dsklm,dftquota_quota(7))c* integer*4 dftquota_prtpages ! print pages integer*4 dftquota_prtlm2 equivalence (dftquota_prtpages,dftquota_quota(8))/ equivalence (dftquota_prtlm,dftquota_quota(9))c2c dftquota_quota(10) - dftquota_quota(15) not usedc0 integer*4 dftquota_ncslm ! concurrent sessions0 equivalence (dftquota_ncslm,dftquota_quota(16))cc dftquota_quota(17) not usedc- integer*4 dftquota_diolm ! direct I/O count0 equivalence (dftquota_diolm,dftquota_quota(18))c2c dftquota_quota(19) - dftquota_quota(20) not usedcc Cumulative Costs Fieldsc real*4 dftquota_costs(16)2 equivalence (dftquota_costs(1),dftquota_def(304))c c byte*16cc dftquota_costs(1) not usedc!c real*4 costs_cpulm ! cpu time-c equivalence (costs_cpulm,dftquota_costs(2))c$c real*4 costs_diolm ! direct I/Os-c equivalence (costs_diolm,dftquota_costs(3))c0c dftquota_costs(4) - dftquota_costs(5) not usedc#c real*4 costs_prtlm ! page count-c equivalence (costs_prtlm,dftquota_costs(6))c&c real*4 costs_trmlm ! terminal time-c equivalence (costs_trmlm,dftquota_costs(7))c1c dftquota_costs(8) - dftquota_costs(16) not usedcc Cumulative Usage Fieldsc integer*4 dftquota_usage(20)2 equivalence (dftquota_usage(1),dftquota_def(384))c c real*4 usage_dollm ! dollars-c equivalence (usage_dollm,dftquota_usage(1))c%c integer*4 usage_cputime ! cpu timec integer*4 usage_cpulm/c equivalence (usage_cputime,dftquota_usage(2))-c equivalence (usage_cpulm,dftquota_usage(3))c*c integer*4 usage_trmtime ! terminal timec integer*4 usage_trmlm/c equivalence (usage_trmtime,dftquota_usage(4))-c equivalence (usage_trmlm,dftquota_usage(5))c(c integer*4 usage_dskspace ! disk spacec integer*4 usage_dsklm0c equivalence (usage_dskspace,dftquota_usage(6))-c equivalence (usage_dsklm,dftquota_usage(7))c)c integer*4 usage_prtpages ! print pagesc integer*4 usage_prtlm0c equivalence (usage_prtpages,dftquota_usage(8))-c equivalence (usage_prtlm,dftquota_usage(9))c2c dftquota_usage(10) - dftquota_usage(15) not usedc.c integer*4 usage_ncslm ! concurrent sessions.c equivalence (usage_ncslm,dftquota_usage(16))cc dftquota_usage(17) not usedc+c integer*4 usage_diolm ! direct I/O count.c equivalence (usage_diolm,dftquota_usage(18))c2c dftquota_usage(19) - dftquota_usage(20) not usedcAc ***************************************************************cww!Yœ D005003 DFTQUOTA \œ D005003 QUOTA]_œ D005003 USER'[œcAc *************************************************************** c * *$c * Quota 2.9 Record Definition * c * *Ac ***************************************************************c) common /quota_def/quota_def,quota_length character*482 quota_record byte quota_def (0:481)( equivalence (quota_record,quota_def(0))cc Identification Fieldsc( character*12 quota_username ! username* equivalence (quota_username,quota_def(0))c integer*4 quota_uic ! uic# integer*2 quota_member,quota_group& equivalence (quota_uic,quota_def(12))) equivalence (quota_member,quota_def(12))( equivalence (quota_group,quota_def(14))c( character*30 quota_owner ! owners name( equivalence (quota_owner,quota_def(16))- character*30 quota_address ! owners address* equivalence (quota_address,quota_def(46))- character*2 quota_bldgnum ! building number* equivalence (quota_bldgnum,quota_def(76))+ character*10 quota_phonnum ! phone number* equivalence (quota_phonnum,quota_def(78)), character*1 quota_collnum ! college number* equivalence (quota_collnum,quota_def(88))/ character*3 quota_deptnum ! department number* equivalence (quota_deptnum,quota_def(89))/ character*20 quota_deptname ! department name+ equivalence (quota_deptname,quota_def(92))cc Privileges Fieldsc# integer*4 quota_mask ! quota mask' integer*4 quota_status ! quota status( equivalence (quota_mask,quota_def(112))* equivalence (quota_status,quota_def(116))c* integer*4 quota_isupriv ! isu privileges+ equivalence (quota_isupriv,quota_def(120))+ byte quota_fwdfiles ! forward files flag, equivalence (quota_fwdfiles,quota_def(123))cc byte*2c, integer*2 quota_purkeep ! purge/keep limit+ equivalence (quota_purkeep,quota_def(126))c c byte*20cc Login/Logout Fieldsc+ integer*4 quota_create(2) ! creation date2 integer*4 quota_authorize(2) ! authorization date- integer*4 quota_expire(2) ! expiration date/ integ er*4 quota_login(2) ! date of last login1 integer*4 quota_logout(2) ! date of last logout1 integer*4 quota_update(2) ! date of last update- equivalence (quota_create(1),quota_def(148))0 equivalence (quota_authorize(1),quota_def(156))- equivalence (quota_expire(1),quota_def(164)), equivalence (quota_login(1),quota_def(172))- equivalence (quota_logout(1),quota_def(180))- equivalence (quota_update(1),quota_def(188))c+ integer*4 quota_nlogin ! number of logins- integer*4 quota_nlogout ! number of logouts* equivalence (quota_nlogin,quota_def(196))+ equivalence (quota_nlogout,quota_def(200))c, character*1 quota_semester ! semester flag, equivalence (quota_semester,quota_def(204))c c byte*19cc Cumulative Quota Fieldsc integer*4 quota_quota(20), equivalence (quota_quota(1),quota_def(224))c real*4 quota_dollm ! dollm) equivalence (quota_dollm,quota_quota(1))c$ integer*4 quota_cputime ! cpu time integer*4 quota_cpulm+ equivalence (quota_cputime,quota_quota(2))) equivalence (quota_cpulm,quota_quota(3))c) integer*4 quota_trmtime ! terminal time integer*4 quota_trmlm+ equivalence (quota_trmtime,quota_quota(4))) equivalence (quota_trmlm,quota_quota(5))c' integer*4 quota_dskspace ! disk space integer*4 quota_dsklm, equivalence (quota_dskspace,quota_quota(6))) equivalence (quota_dsklm,quota_quota(7))c( integer*4 quota_prtpages ! print pages integer*4 quota_prtlm, equivalence (quota_prtpages,quota_quota(8))) equivalence (quota_prtlm,quota_quota(9))c,c quota_quota(10) - quota_quota(15) not usedc- integer*4 quota_ncslm ! concurrent sessions* equivalence (quota_ncslm,quota_quota(16))cc quota_quota(17) not usedc0 integer*4 quota_diolm ! direct I/O count* equivalence (quota_diolm,quota_quota(18))c,c quota_quota(19) - quota_quota(20) not usedcc Cumulative Costs Fieldsc real*4 quota_costs(16), equivalence (quota_costs(1),quota_def(304))c c byte*16cc quota_costs(1) not usedc real*4 costs_cpulm ! cpu time) equivalence (costs_cpulm,quota_costs(2))c) real*4 costs_diolm ! direct I/Os) equivalence (costs_diolm,quota_costs(3))c*c quota_costs(4) - quota_costs(5) not usedc" real*4 costs_prtlm ! page count) equivalence (costs_prtlm,quota_costs(6))c% real*4 costs_trmlm ! terminal time) equivalence (costs_trmlm,quota_costs(7))c+c quota_costs(8) - quota_costs(16) not usedcc Cumulative Usage Fieldsc integer*4 quota_usage(20), equivalence (quota_usage(1),quota_def(384))c real*4 usage_dollm ! dollm) equivalence (usage_dollm,quota_usage(1))c$ integer*4 usage_cputime ! cpu time integer*4 usage_cpulm+ equivalence (usage_cputime,quota_usage(2))) equivalence (usage_cpulm,quota_usage(3))c) integer*4 usage_trmtime ! terminal time integer*4 usage_trmlm+ equivalence (usage_trmtime,quota_usage(4))) equivalence (usage_trmlm,quota_usage(5))c' integer*4 usage_dskspace ! disk space integer*4 usage_dsklm, equivalence (usage_dskspace,quota_usage(6))) equivalence (usage_dsklm,quota_usage(7))c( integer*4 usage_prtpages ! print pages integer*4 usage_prtlm, equivalence (usage_prtpages,quota_usage(8))) equivalence (usage_prtlm,quota_usage(9))c,c quota_usage(10) - quota_usage(15) not usedc- integer*4 usage_ncslm ! concurrent sessions* equivalence (usage_ncslm,quota_usage(16))cc quota_usage(17) not usedc0 integer*4 usage_diolm ! direct I/O count* equivalence (usage_diolm,quota_usage(18))c,c quota_usage(19) - quota_usage(20) not usedcAc ***************************************************************cww  ^œcAc ***************************************************************c * USERSPEC definitions *Ac ***************************************************************c7 common /userdef/username_def,uic_def,flag_def,save_defc byte username_def(24)' character*12 from_username,to_username, equivalence (from_username,username_def(1))+ equivalence (to_username,username_def(13))c byte uic_def(8) integer*4 from_uic,to_uic" equivalence (from_uic,uic_def(1)) ! equivalence (to_uic,uic_def(5))! integer*2 from_group,from_member integer*2 to_group,to_member% equivalence (from_member,uic_def(1))$ equivalence (from_group,uic_def(3))# equivalence (to_member,uic_def(5))" equivalence (to_group,uic_def(7))c byte flag_def(8) integer*4 from_flag,to_flag$ equivalence (from_flag,flag_def(1))" equivalence (to_flag,flag_def(5))c byte save_def(20) character*12 save_username( equivalence (save_username,save_def(1)) integer*4 save_uic$ equ ivalence (save_uic,save_def(13))! integer*2 save_group,save_member' equivalence (save_member,save_def(13))& equivalence (save_group,save_def(15)) integer*4 save_flag% equivalence (save_flag,save_def(17))cAc ***************************************************************cww