From:	ADVAX::"""PSI%JANET.000000000040::NICK%ncdlab.ulcc.ac.uk""@NSFNET-RELAY.AC.UK" "Nick de Smith" 19-JAN-1990 06:04
To:	EVERHART <EVERHART%arisia.dnet.ge.com@NSFNET-RELAY.AC.UK>
Subj:	An extra for [.ATG...] - QUOTA 2/2

Received: by ADVAX.DECnet (utk-mail11 v1.5) ; Fri, 19 Jan 90 06:05:59 EST
Received:  from mcnc by ge-dab.GE.COM (5.61/GE-DAB 1.10) with UUCP
	id AA23145 for everhart; Fri, 19 Jan 90 06:05:43 -0500
Received: from RELAY.CS.NET by mcnc.mcnc.org (5.59/MCNC/5-16-88)
	id AA12941; Fri, 19 Jan 90 05:52:56 EST
Message-Id: <9001191052.AA12941@mcnc.mcnc.org>
Received: from nsfnet-relay.ac.uk by RELAY.CS.NET id ab10382; 19 Jan 90 4:52 EST
Received: from sun.nsfnet-relay.ac.uk by vax.NSFnet-Relay.AC.UK 
           via Janet with NIFTP  id aa05654; 19 Jan 90 10:27 GMT
Date:           Fri, 19 Jan 90  10:38 BST
From: Nick de Smith <"PSI%JANET.000000000040::NICK%ncdlab.ulcc.ac.uk"@NSFNET-RELAY.AC.UK>
To: EVERHART <EVERHART%arisia.dnet.ge.com@NSFNET-RELAY.AC.UK>
Subject:        An extra for [.ATG...] - QUOTA 2/2
 
-+-+-+-+-+-+-+-+ START OF PART 2 -+-+-+-+-+-+-+-+
X`009`0090`009`009) )`009`009`009`009`009/* P6 -`009`009`009`009`009*/
X`009ss_check( q_iosb`091 0 `093 )`009`009`009`009`009`009/* Check final I/O
V status`009`009*/
X
X`009ss_check( SYS$DASSGN( w_chan ) )`009`009`009`009/* Free up channel to di
Vsk`009`009*/
X
X`009ss_check( Set_Symbol( &x_inuse`009  , r_dqf.dqf$l_usage     ) )`009/* Se
Vt the returned symbol values`009*/
X`009ss_check( Set_Symbol( &x_permquota, r_dqf.dqf$l_permquota ) )
X`009ss_check( Set_Symbol( &x_overdraft, r_dqf.dqf$l_overdraft ) )
X
X`009return SS$_NORMAL;`009`009`009`009`009`009/* Return success to caller`00
V9`009*/
X`125
X`012
X
X/***************************************************************************
V**************************************
X
X`009`009`009`009`009S e t _ S y m b o l
X
X Set a DCL symbol as per the passed parameters. A /Local string symbol is cr
Veated.
X
X****************************************************************************
V*************************************/
Xstatic long
XSet_Symbol(
X`009struct dsc$descriptor * ax_symbol`009,`009`009`009/* Symbol name to set`
V009`009`009*/
X`009unsigned long`009`009l_value`009`009)`009`009`009/* Value to set`009`009
V`009`009*/
X`123
X#define`009MAX_DIGITS`0098
X`009char`009b_value`091 MAX_DIGITS `093;`009`009`009`009`009/* Ascii digit s
Vtring`009`009`009*/
X`009struct dsc$descriptor_s x_value = `123
X`009`009MAX_DIGITS, DSC$K_DTYPE_T, DSC$K_CLASS_S, b_value `125;
X
X`009ss_check( OTS$CVT_L_TU(
X`009`009&l_value`009`009,`009`009`009`009/* Value to convert to ASCII`009`00
V9*/
X`009`009&x_value`009`009,`009`009`009`009/* Output buffer for string`009`009
V*/
X`009`0091`009`009`009,`009`009`009`009/* At least 1 digit in output`009`009*
V/
X`009`0094`009`009`009) )`009`009`009`009/* 4 bytes to convert`009`009`009*/
X
X`009ss_check( LIB$SET_SYMBOL(
X`009`009ax_symbol`009`009,`009`009`009`009/* Name of symbol to set`009`009*/
X`009`009&x_value`009`009) )`009`009`009`009/* Value for symbol`009`009`009*/
X
X`009return SS$_NORMAL;`009`009`009`009`009`009/* Return success to caller`00
V9`009*/
X`125
$ CALL UNPACK [.QUOTA]QUOTA.C;1 1063459845
$ create/nolog 'f'
X/***************************************************************************
V**************************************
X
X`009UAFDEF.H
X
X VAX C language definitions from the LIB library.
X Extracted by NICK using VAXCDEF at 15-NOV-1989 17:22:25.99 on a MicroVAX II
V system under VMS V5.2
X
X****************************************************************************
V*************************************/
X
X#define`009UAF$C_USER_ID`0090x1
X#define`009UAF$C_VERSION1`0090x1
X#define`009UAF$C_KEYED_PART`0090x34
X#define`009UAF$C_AD_II`0090x0
X#define`009UAF$C_PURDY`0090x1
X#define`009UAF$C_PURDY_V`0090x2
X#define`009UAF$C_PREFERED_ALGORITHM`0090x2
X#define`009UAF$K_FIXED`0090x284
X#define`009UAF$C_FIXED`0090x284
X#define`009UAF$K_LENGTH`0090x584
X#define`009UAF$C_LENGTH`0090x584
X#define`009UAF$S_UAFDEF`0090x584
X#define`009UAF$B_RTYPE`0090x0
X#define`009UAF$B_VERSION`0090x1
X#define`009UAF$W_USRDATOFF`0090x2
X#define`009UAF$S_USERNAME`0090x20
X#define`009UAF$T_USERNAME`0090x4
X#define`009UAF$T_USERNAME_TAG`0090x23
X#define`009UAF$L_UIC`0090x24
X#define`009UAF$W_MEM`0090x24
X#define`009UAF$W_GRP`0090x26
X#define`009UAF$L_SUB_ID`0090x28
X#define`009UAF$S_PARENT_ID`0090x8
X#define`009UAF$Q_PARENT_ID`0090x2C
X#define`009UAF$S_ACCOUNT`0090x20
X#define`009UAF$T_ACCOUNT`0090x34
X#define`009UAF$S_OWNER`0090x20
X#define`009UAF$T_OWNER`0090x54
X#define`009UAF$S_DEFDEV`0090x20
X#define`009UAF$T_DEFDEV`0090x74
X#define`009UAF$S_DEFDIR`0090x40
X#define`009UAF$T_DEFDIR`0090x94
X#define`009UAF$S_LGICMD`0090x40
X#define`009UAF$T_LGICMD`0090xD4
X#define`009UAF$S_DEFCLI`0090x20
X#define`009UAF$T_DEFCLI`0090x114
X#define`009UAF$S_CLITABLES`0090x20
X#define`009UAF$T_CLITABLES`0090x134
X#define`009UAF$S_PWD`0090x8
X#define`009UAF$Q_PWD`0090x154
X#define`009UAF$L_PWD`0090x154
X#define`009UAF$S_PWD2`0090x8
X#define`009UAF$Q_PWD2`0090x15C
X#define`009UAF$W_LOGFAILS`0090x164
X#define`009UAF$W_SALT`0090x166
X#define`009UAF$B_ENCRYPT`0090x168
X#define`009UAF$B_ENCRYPT2`0090x169
X#define`009UAF$B_PWD_LENGTH`0090x16A
X#define`009UAF$S_EXPIRATION`0090x8
X#define`009UAF$Q_EXPIRATION`0090x16C
X#define`009UAF$S_PWD_LIFETIME`0090x8
X#define`009UAF$Q_PWD_LIFETIME`0090x174
X#define`009UAF$S_PWD_DATE`0090x8
X#define`009UAF$Q_PWD_DATE`0090x17C
X#define`009UAF$S_PWD2_DATE`0090x8
X#define`009UAF$Q_PWD2_DATE`0090x184
X#define`009UAF$S_LASTLOGIN_I`0090x8
X#define`009UAF$Q_LASTLOGIN_I`0090x18C
X#define`009UAF$S_LASTLOGIN_N`0090x8
X#define`009UAF$Q_LASTLOGIN_N`0090x194
X#define`009UAF$S_PRIV`0090x8
X#define`009UAF$Q_PRIV`0090x19C
X#define`009UAF$S_DEF_PRIV`0090x8
X#define`009UAF$Q_DEF_PRIV`0090x1A4
X#define`009UAF$S_MIN_CLASS`0090x14
X#define`009UAF$R_MIN_CLASS`0090x1AC
X#define`009UAF$S_MAX_CLASS`0090x14
X#define`009UAF$R_MAX_CLASS`0090x1C0
X#define`009UAF$L_FLAGS`0090x1D4
X#define`009UAF$V_DISCTLY`0090x0
X#define`009UAF$V_DEFCLI`0090x1
X#define`009UAF$V_LOCKPWD`0090x2
X#define`009UAF$V_RESTRICTED`0090x3
X#define`009UAF$V_DISACNT`0090x4
X#define`009UAF$V_DISWELCOM`0090x5
X#define`009UAF$V_DISMAIL`0090x6
X#define`009UAF$V_NOMAIL`0090x7
X#define`009UAF$V_GENPWD`0090x8
X#define`009UAF$V_PWD_EXPIRED`0090x9
X#define`009UAF$V_PWD2_EXPIRED`0090xA
X#define`009UAF$V_AUDIT`0090xB
X#define`009UAF$V_DISREPORT`0090xC
X#define`009UAF$V_DISRECONNECT`0090xD
X#define`009UAF$V_AUTOLOGIN`0090xE
X#define`009UAF$V_DISFORCE_PWD_CHANGE`0090xF
X#define`009UAF$V_CAPTIVE`0090x10
X#define`009UAF$V_DISIMAGE`0090x11
X#define`009UAF$S_NETWORK_ACCESS_P`0090x3
X#define`009UAF$B_NETWORK_ACCESS_P`0090x1D8
X#define`009UAF$S_NETWORK_ACCESS_S`0090x3
X#define`009UAF$B_NETWORK_ACCESS_S`0090x1DB
X#define`009UAF$S_BATCH_ACCESS_P`0090x3
X#define`009UAF$B_BATCH_ACCESS_P`0090x1DE
X#define`009UAF$S_BATCH_ACCESS_S`0090x3
X#define`009UAF$B_BATCH_ACCESS_S`0090x1E1
X#define`009UAF$S_LOCAL_ACCESS_P`0090x3
X#define`009UAF$B_LOCAL_ACCESS_P`0090x1E4
X#define`009UAF$S_LOCAL_ACCESS_S`0090x3
X#define`009UAF$B_LOCAL_ACCESS_S`0090x1E7
X#define`009UAF$S_DIALUP_ACCESS_P`0090x3
X#define`009UAF$B_DIALUP_ACCESS_P`0090x1EA
X#define`009UAF$S_DIALUP_ACCESS_S`0090x3
X#define`009UAF$B_DIALUP_ACCESS_S`0090x1ED
X#define`009UAF$S_REMOTE_ACCESS_P`0090x3
X#define`009UAF$B_REMOTE_ACCESS_P`0090x1F0
X#define`009UAF$S_REMOTE_ACCESS_S`0090x3
X#define`009UAF$B_REMOTE_ACCESS_S`0090x1F3
X#define`009UAF$B_PRIMEDAYS`0090x202
X#define`009UAF$V_MONDAY`0090x0
X#define`009UAF$V_TUESDAY`0090x1
X#define`009UAF$V_WEDNESDAY`0090x2
X#define`009UAF$V_THURSDAY`0090x3
X#define`009UAF$V_FRIDAY`0090x4
X#define`009UAF$V_SATURDAY`0090x5
X#define`009UAF$V_SUNDAY`0090x6
X#define`009UAF$B_PRI`0090x204
X#define`009UAF$B_QUEPRI`0090x205
X#define`009UAF$W_MAXJOBS`0090x206
X#define`009UAF$W_MAXACCTJOBS`0090x208
X#define`009UAF$W_MAXDETACH`0090x20A
X#define`009UAF$W_PRCCNT`0090x20C
X#define`009UAF$W_BIOLM`0090x20E
X#define`009UAF$W_DIOLM`0090x210
X#define`009UAF$W_TQCNT`0090x212
X#define`009UAF$W_ASTLM`0090x214
X#define`009UAF$W_ENQLM`0090x216
X#define`009UAF$W_FILLM`0090x218
X#define`009UAF$W_SHRFILLM`0090x21A
X#define`009UAF$L_WSQUOTA`0090x21C
X#define`009UAF$L_DFWSCNT`0090x220
X#define`009UAF$L_WSEXTENT`0090x224
X#define`009UAF$L_PGFLQUOTA`0090x228
X#define`009UAF$L_CPUTIM`0090x22C
X#define`009UAF$L_BYTLM`0090x230
X#define`009UAF$L_PBYTLM`0090x234
X#define`009UAF$L_JTQUOTA`0090x238
X#define`009UAF$W_PROXY_LIM`0090x23C
X#define`009UAF$W_PROXIES`0090x23E
X#define`009UAF$W_ACCOUNT_LIM`0090x240
X#define`009UAF$W_ACCOUNTS`0090x242
X
X/* End of UAFDEF.H */
$ CALL UNPACK [.QUOTA]UAFDEF.H;1 457977140
$ create/nolog 'f'
X/***************************************************************************
V**************************************
X
X`009UAIDEF.H
X
X VAX C language definitions from the STARLET library.
X Extracted by NICK using VAXCDEF at 15-NOV-1989 19:49:11.61 on a MicroVAX II
V system under VMS V5.2
X
X****************************************************************************
V*************************************/
X
X#define`009UAI$_RTYPE`0090x1
X#define`009UAI$_VERSION`0090x2
X#define`009UAI$_USRDATOFF`0090x3
X#define`009UAI$_USERNAME`0090x4
X#define`009UAI$_USERNAME_TAG`0090x5
X#define`009UAI$_UIC`0090x6
X#define`009UAI$_MEM`0090x7
X#define`009UAI$_GRP`0090x8
X#define`009UAI$_SUB_ID`0090x9
X#define`009UAI$_PARENT_ID`0090xA
X#define`009UAI$_ACCOUNT`0090xB
X#define`009UAI$_OWNER`0090xC
X#define`009UAI$_DEFDEV`0090xD
X#define`009UAI$_DEFDIR`0090xE
X#define`009UAI$_LGICMD`0090xF
X#define`009UAI$_DEFCLI`0090x10
X#define`009UAI$_CLITABLES`0090x11
X#define`009UAI$_PWD`0090x12
X#define`009UAI$_PWD2`0090x13
X#define`009UAI$_LOGFAILS`0090x14
X#define`009UAI$_SALT`0090x15
X#define`009UAI$_ENCRYPT`0090x16
X#define`009UAI$_ENCRYPT2`0090x17
X#define`009UAI$_PWD_LENGTH`0090x18
X#define`009UAI$_EXPIRATION`0090x19
X#define`009UAI$_PWD_LIFETIME`0090x1A
X#define`009UAI$_PWD_DATE`0090x1B
X#define`009UAI$_PWD2_DATE`0090x1C
X#define`009UAI$_LASTLOGIN_I`0090x1D
X#define`009UAI$_LASTLOGIN_N`0090x1E
X#define`009UAI$_PRIV`0090x1F
X#define`009UAI$_DEF_PRIV`0090x20
X#define`009UAI$_MIN_CLASS`0090x21
X#define`009UAI$_MAX_CLASS`0090x22
X#define`009UAI$_FLAGS`0090x23
X#define`009UAI$_NETWORK_ACCESS_P`0090x24
X#define`009UAI$_NETWORK_ACCESS_S`0090x25
X#define`009UAI$_BATCH_ACCESS_P`0090x26
X#define`009UAI$_BATCH_ACCESS_S`0090x27
X#define`009UAI$_LOCAL_ACCESS_P`0090x28
X#define`009UAI$_LOCAL_ACCESS_S`0090x29
X#define`009UAI$_DIALUP_ACCESS_P`0090x2A
X#define`009UAI$_DIALUP_ACCESS_S`0090x2B
X#define`009UAI$_REMOTE_ACCESS_P`0090x2C
X#define`009UAI$_REMOTE_ACCESS_S`0090x2D
X#define`009UAI$_PRIMEDAYS`0090x2E
X#define`009UAI$_PRI`0090x2F
X#define`009UAI$_QUEPRI`0090x30
X#define`009UAI$_MAXJOBS`0090x31
X#define`009UAI$_MAXACCTJOBS`0090x32
X#define`009UAI$_MAXDETACH`0090x33
X#define`009UAI$_PRCCNT`0090x34
X#define`009UAI$_BIOLM`0090x35
X#define`009UAI$_DIOLM`0090x36
X#define`009UAI$_TQCNT`0090x37
X#define`009UAI$_ASTLM`0090x38
X#define`009UAI$_ENQLM`0090x39
X#define`009UAI$_FILLM`0090x3A
X#define`009UAI$_SHRFILLM`0090x3B
X#define`009UAI$_WSQUOTA`0090x3C
X#define`009UAI$_DFWSCNT`0090x3D
X#define`009UAI$_WSEXTENT`0090x3E
X#define`009UAI$_PGFLQUOTA`0090x3F
X#define`009UAI$_CPUTIM`0090x40
X#define`009UAI$_BYTLM`0090x41
X#define`009UAI$_PBYTLM`0090x42
X#define`009UAI$_JTQUOTA`0090x43
X#define`009UAI$_PROXY_LIM`0090x44
X#define`009UAI$_PROXIES`0090x45
X#define`009UAI$_ACCOUNT_LIM`0090x46
X#define`009UAI$_ACCOUNTS`0090x47
X#define`009UAI$_USER_DATA`0090x48
X#define`009UAI$_PASSWORD`0090x49
X#define`009UAI$_PASSWORD2`0090x4A
X#define`009UAI$_MAX_ITEM_CODE`0090x4B
X#define`009UAI$C_AD_II`0090x0
X#define`009UAI$C_PURDY`0090x1
X#define`009UAI$C_PURDY_V`0090x2
X#define`009UAI$M_DISCTLY`0090x1
X#define`009UAI$M_DEFCLI`0090x2
X#define`009UAI$M_LOCKPWD`0090x4
X#define`009UAI$M_RESTRICTED`0090x8
X#define`009UAI$M_DISACNT`0090x10
X#define`009UAI$M_DISWELCOM`0090x20
X#define`009UAI$M_DISMAIL`0090x40
X#define`009UAI$M_NOMAIL`0090x80
X#define`009UAI$M_GENPWD`0090x100
X#define`009UAI$M_PWD_EXPIRED`0090x200
X#define`009UAI$M_PWD2_EXPIRED`0090x400
X#define`009UAI$M_AUDIT`0090x800
X#define`009UAI$M_DISREPORT`0090x1000
X#define`009UAI$M_DISRECONNECT`0090x2000
X#define`009UAI$M_AUTOLOGIN`0090x4000
X#define`009UAI$M_DISFORCE_PWD_CHANGE`0090x8000
X#define`009UAI$M_CAPTIVE`0090x10000
X#define`009UAI$M_DISIMAGE`0090x20000
X#define`009UAI$V_DISCTLY`0090x0
X#define`009UAI$V_DEFCLI`0090x1
X#define`009UAI$V_LOCKPWD`0090x2
X#define`009UAI$V_RESTRICTED`0090x3
X#define`009UAI$V_DISACNT`0090x4
X#define`009UAI$V_DISWELCOM`0090x5
X#define`009UAI$V_DISMAIL`0090x6
X#define`009UAI$V_NOMAIL`0090x7
X#define`009UAI$V_GENPWD`0090x8
X#define`009UAI$V_PWD_EXPIRED`0090x9
X#define`009UAI$V_PWD2_EXPIRED`0090xA
X#define`009UAI$V_AUDIT`0090xB
X#define`009UAI$V_DISREPORT`0090xC
X#define`009UAI$V_DISRECONNECT`0090xD
X#define`009UAI$V_AUTOLOGIN`0090xE
X#define`009UAI$V_DISFORCE_PWD_CHANGE`0090xF
X#define`009UAI$V_CAPTIVE`0090x10
X#define`009UAI$V_DISIMAGE`0090x11
X#define`009UAI$V_MONDAY`0090x0
X#define`009UAI$V_TUESDAY`0090x1
X#define`009UAI$V_WEDNESDAY`0090x2
X#define`009UAI$V_THURSDAY`0090x3
X#define`009UAI$V_FRIDAY`0090x4
X#define`009UAI$V_SATURDAY`0090x5
X#define`009UAI$V_SUNDAY`0090x6
X
X/* End of UAIDEF.H */
$ CALL UNPACK [.QUOTA]UAIDEF.H;1 220078515
$ v=f$verify(v)
$ EXIT
