From:	SMTP%"mailserv-reply@kopc.hhs.dk"  3-JAN-1994 09:30:26.91
To:	EVERHART
CC:	
Subj:	[UTILITIES]UTILITIES.3-OF-4;1

Date: Mon, 03 Jan 1994 14:41:48 +0100
From: "PMDF Mailserv V4.2" <mailserv-reply@kopc.hhs.dk>
Subject: [UTILITIES]UTILITIES.3-OF-4;1
To: EVERHART@arisia.gce.com
Message-id: <01H78ZRBZ7VA8ZDZ76@kopc.hhs.dk>
MIME-version: 1.0
Content-type: TEXT/PLAIN
Content-transfer-encoding: 7BIT

-+-+-+-+-+-+-+-+ START OF PART 3 -+-+-+-+-+-+-+-+
X`20`20`20`20`20`20QUILIST3(3).RETLENADR=0
X`20`20`20`20`20`20QUILIST4(1).BUFLEN=LEN(JN)
X`20`20`20`20`20`20QUILIST4(1).CODE=QUI$_JOB_NAME
X`20`20`20`20`20`20QUILIST4(1).BUFADR=%LOC(JN)
X`20`20`20`20`20`20QUILIST4(1).RETLENADR=%LOC(JNL)
X`20`20`20`20`20`20QUILIST4(2).BUFLEN=LEN(UN)
X`20`20`20`20`20`20QUILIST4(2).CODE=QUI$_USERNAME
X`20`20`20`20`20`20QUILIST4(2).BUFADR=%LOC(UN)
X`20`20`20`20`20`20QUILIST4(2).RETLENADR=%LOC(UNL)
X`20`20`20`20`20`20QUILIST4(3).BUFLEN=4
X`20`20`20`20`20`20QUILIST4(3).CODE=QUI$_SEARCH_NUMBER
X`20`20`20`20`20`20QUILIST4(3).BUFADR=0
X`20`20`20`20`20`20QUILIST4(3).RETLENADR=0
X`20`20`20`20`20`20QUILIST4(4).BUFLEN=0
X`20`20`20`20`20`20QUILIST4(4).CODE=0
X`20`20`20`20`20`20QUILIST4(4).BUFADR=0
X`20`20`20`20`20`20QUILIST4(4).RETLENADR=0
X`20`20`20`20`20`20STAT=SYS$SETPRV(%VAL(1),PRIV,,)
X`20`20`20`20`20`20STAT=SYS$GETQUIW(,%VAL(QUI$_CANCEL_OPERATION),,,IOSB,,)
X`20`20`20`20`20`20NQ=0
X25`20`20`20`20QUILIST1(2).BUFADR=%LOC(QNAME(NQ+1))
X`20`20`20`20`20`20QUILIST1(2).RETLENADR=%LOC(QNAMEL(NQ+1))
X`20`20`20`20`20`20STAT=SYS$GETQUIW(,%VAL(QUI$_DISPLAY_QUEUE),,QUILIST1,IOSB,,)
V
X`20`20`20`20`20`20IF((STAT.AND.1).NE.1)`20GOTO`2050
X`20`20`20`20`20`20IF((IOSB(1).AND.1).NE.1)`20GOTO`2050
X`20`20`20`20`20`20NQ=NQ+1
X`20`20`20`20`20`20GOTO`2025
X50`20`20`20`20DO`20400`20J=1,NQ
X`20`20`20`20`20`20`20`20QUILIST2(1).BUFLEN=QNAMEL(J)
X`20`20`20`20`20`20`20`20QUILIST2(1).BUFADR=%LOC(QNAME(J))
X`20`20`20`20`20`20`20`20STAT=SYS$GETQUIW(,%VAL(QUI$_DISPLAY_QUEUE),,QUILIST2,I
VOSB,,)
X`20`20`20`20`20`20`20`20NE=0
X100`20`20`20`20`20QUILIST3(1).BUFADR=%LOC(ENT(NE+1))
X`20`20`20`20`20`20`20`20STAT=SYS$GETQUIW(,%VAL(QUI$_DISPLAY_JOB),,QUILIST3,IOS
VB,,)
X`20`20`20`20`20`20`20`20IF((STAT.AND.1).NE.1)`20GOTO`20200
X`20`20`20`20`20`20`20`20IF((IOSB(1).AND.1).NE.1)`20GOTO`20200
X`20`20`20`20`20`20`20`20NE=NE+1
X`20`20`20`20`20`20`20`20GOTO`20100
X200`20`20`20`20`20DO`20300`20I=1,NE
X`20`20`20`20`20`20`20`20`20`20QUILIST4(3).BUFADR=%LOC(ENT(I))
X`20`20`20`20`20`20`20`20`20`20STAT=SYS$GETQUIW(,%VAL(QUI$_DISPLAY_ENTRY),,QUIL
VIST4,IOSB,,)
X`20`20`20`20`20`20`20`20`20`20WRITE(6,'(1X,A,1X,I,1X,A,1X,A)')`20QNAME(J)(1:QN
VAMEL(J)),
X`20`20`20`20`20+`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20ENT(I),UN(1:UNL),JN(1:JNL)
X300`20`20`20`20`20CONTINUE
X400`20`20`20CONTINUE
X`20`20`20`20`20`20END
$ call unpack QUEUE_NQNJ.FOR;1 2065186301 ""
$!
$ create 'f'
X`5Binherit('sys$library:starlet','sys$library:pascal$lib_routines')`5D
X
Xprogram`20queue_nqnj(input,output);
X
Xlabel
X`20`20`20fin1,fin2;
X
Xconst
X`20`20`20string_length`20=`20256;
X
Xtype
X`20`20`20string`20`20`20=`20varying`20`5Bstring_length`5D`20of`20char;
X`20`20`20word`20`20`20`20`20=`20`5Bword`5D`200..65535;
X`20`20`20quad`20`20`20`20`20=`20record
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20l0,l1`20:`20unsigned;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20end;
X`20`20`20itemlist`20=`20record
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20buflen,code`20:`20word;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20bufadr,retlenadr`20:`20unsi
Vgned;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20end;
X
Xvar
X`20`20`20stat`20`20`20`20`20`20`20`20:`20unsigned;
X`20`20`20iosb`20`20`20`20`20`20`20`20:`20quad;
X`20`20`20nq,ne,i,j`20`20`20:`20integer;
X`20`20`20ent`20`20`20`20`20`20`20`20`20:`20array`20`5B1..1000`5D`20of`20intege
Vr;
X`20`20`20un,jn`20`20`20`20`20`20`20:`20string;
X`20`20`20qname`20`20`20`20`20`20`20:`20array`20`5B1..100`5D`20of`20string;
X`20`20`20flag1,flag2`20:`20unsigned;
X`20`20`20all`20`20`20`20`20`20`20`20`20:`20string;
X`20`20`20priv`20`20`20`20`20`20`20`20:`20quad;
X`20`20`20quilist1`20`20`20`20:`20array`20`5B1..3`5D`20of`20itemlist;
X`20`20`20quilist2`20`20`20`20:`20array`20`5B1..3`5D`20of`20itemlist;
X`20`20`20quilist3`20`20`20`20:`20array`20`5B1..3`5D`20of`20itemlist;
X`20`20`20quilist4`20`20`20`20:`20array`20`5B1..4`5D`20of`20itemlist;
X
Xbegin
X`20`20`20flag1:=QUI$M_SEARCH_WILDCARD;
X`20`20`20flag2:=QUI$M_SEARCH_ALL_JOBS;
X`20`20`20all:='*';
X`20`20`20priv.l0:=PRV$M_OPER;
X`20`20`20priv.l1:=0;
X`20`20`20quilist1`5B1`5D.buflen:=length(all);
X`20`20`20quilist1`5B1`5D.code:=QUI$_SEARCH_NAME;
X`20`20`20quilist1`5B1`5D.bufadr:=iaddress(all.body);
X`20`20`20quilist1`5B1`5D.retlenadr:=0;
X`20`20`20quilist1`5B2`5D.buflen:=string_length;
X`20`20`20quilist1`5B2`5D.code:=QUI$_QUEUE_NAME;
X`20`20`20quilist1`5B2`5D.bufadr:=0;
X`20`20`20quilist1`5B2`5D.retlenadr:=0;
X`20`20`20quilist1`5B3`5D.buflen:=0;
X`20`20`20quilist1`5B3`5D.code:=0;
X`20`20`20quilist1`5B3`5D.bufadr:=0;
X`20`20`20quilist1`5B3`5D.retlenadr:=0;
X`20`20`20quilist2`5B1`5D.buflen:=0;
X`20`20`20quilist2`5B1`5D.code:=QUI$_SEARCH_NAME;
X`20`20`20quilist2`5B1`5D.bufadr:=0;
X`20`20`20quilist2`5B1`5D.retlenadr:=0;
X`20`20`20quilist2`5B2`5D.buflen:=4;
X`20`20`20quilist2`5B2`5D.code:=QUI$_SEARCH_FLAGS;
X`20`20`20quilist2`5B2`5D.bufadr:=iaddress(flag1);
X`20`20`20quilist2`5B2`5D.retlenadr:=0;
X`20`20`20quilist2`5B3`5D.buflen:=0;
X`20`20`20quilist2`5B3`5D.code:=0;
X`20`20`20quilist2`5B3`5D.bufadr:=0;
X`20`20`20quilist2`5B3`5D.retlenadr:=0;
X`20`20`20quilist3`5B1`5D.buflen:=4;
X`20`20`20quilist3`5B1`5D.code:=QUI$_ENTRY_NUMBER;
X`20`20`20quilist3`5B1`5D.bufadr:=0;
X`20`20`20quilist3`5B1`5D.retlenadr:=0;
X`20`20`20quilist3`5B2`5D.buflen:=4;
X`20`20`20quilist3`5B2`5D.code:=QUI$_SEARCH_FLAGS;
X`20`20`20quilist3`5B2`5D.bufadr:=iaddress(flag2);
X`20`20`20quilist3`5B2`5D.retlenadr:=0;
X`20`20`20quilist3`5B3`5D.buflen:=0;
X`20`20`20quilist3`5B3`5D.code:=0;
X`20`20`20quilist3`5B3`5D.bufadr:=0;
X`20`20`20quilist3`5B3`5D.retlenadr:=0;
X`20`20`20quilist4`5B1`5D.buflen:=string_length;
X`20`20`20quilist4`5B1`5D.code:=QUI$_JOB_NAME;
X`20`20`20quilist4`5B1`5D.bufadr:=iaddress(jn.body);
X`20`20`20quilist4`5B1`5D.retlenadr:=iaddress(jn.length);
X`20`20`20quilist4`5B2`5D.buflen:=string_length;
X`20`20`20quilist4`5B2`5D.code:=QUI$_USERNAME;
X`20`20`20quilist4`5B2`5D.bufadr:=iaddress(un.body);
X`20`20`20quilist4`5B2`5D.retlenadr:=iaddress(un.length);
X`20`20`20quilist4`5B3`5D.buflen:=4;
X`20`20`20quilist4`5B3`5D.code:=QUI$_SEARCH_NUMBER;
X`20`20`20quilist4`5B3`5D.bufadr:=0;
X`20`20`20quilist4`5B3`5D.retlenadr:=0;
X`20`20`20quilist4`5B4`5D.buflen:=0;
X`20`20`20quilist4`5B4`5D.code:=0;
X`20`20`20quilist4`5B4`5D.bufadr:=0;
X`20`20`20quilist4`5B4`5D.retlenadr:=0;
X`20`20`20stat:=$setprv(enbflg:=1,prvadr:=priv);
X`20`20`20stat:=$getquiw(func:=QUI$_CANCEL_OPERATION,iosb:=iosb);
X`20`20`20nq:=0;
X`20`20`20while(true)`20do`20begin
X`20`20`20`20`20`20quilist1`5B2`5D.bufadr:=iaddress(qname`5Bnq+1`5D.body);
X`20`20`20`20`20`20quilist1`5B2`5D.retlenadr:=iaddress(qname`5Bnq+1`5D.length);
V
X`20`20`20`20`20`20stat:=$getquiw(func:=QUI$_DISPLAY_QUEUE,itmlst:=quilist1,ios
Vb:=iosb);
X`20`20`20`20`20`20if`20not(odd(stat))`20then`20goto`20fin1;
X`20`20`20`20`20`20if`20not(odd(iosb.l0))`20then`20goto`20fin1;
X`20`20`20`20`20`20nq:=nq+1;
X`20`20`20end;
Xfin1:
X`20`20`20for`20j:=1`20to`20nq`20do`20begin
X`20`20`20`20`20`20quilist2`5B1`5D.buflen:=length(qname`5Bj`5D);
X`20`20`20`20`20`20quilist2`5B1`5D.bufadr:=iaddress(qname`5Bj`5D.body);
X`20`20`20`20`20`20stat:=$getquiw(func:=QUI$_DISPLAY_QUEUE,itmlst:=quilist2,ios
Vb:=iosb);
X`20`20`20`20`20`20ne:=0;
X`20`20`20`20`20`20while(true)`20do`20begin
X`20`20`20`20`20`20`20`20`20quilist3`5B1`5D.bufadr:=iaddress(ent`5Bne+1`5D);
X`20`20`20`20`20`20`20`20`20stat:=$getquiw(func:=QUI$_DISPLAY_JOB,itmlst:=quili
Vst3,iosb:=iosb);
X`20`20`20`20`20`20`20`20`20if`20not(odd(stat))`20then`20goto`20fin2;
X`20`20`20`20`20`20`20`20`20if`20not(odd(iosb.l0))`20then`20goto`20fin2;
X`20`20`20`20`20`20`20`20`20ne:=ne+1;
X`20`20`20`20`20`20end;
X`20`20`20fin2:
X`20`20`20`20`20`20for`20i:=1`20to`20ne`20do`20begin
X`20`20`20`20`20`20`20`20`20quilist4`5B3`5D.bufadr:=iaddress(ent`5Bi`5D);
X`20`20`20`20`20`20`20`20`20stat:=$getquiw(func:=QUI$_DISPLAY_ENTRY,itmlst:=qui
Vlist4,iosb:=iosb);
X`20`20`20`20`20`20`20`20`20writeln(qname`5Bj`5D,'`20',ent`5Bi`5D,'`20',un,'
V`20',jn);
X`20`20`20`20`20`20end;
X`20`20`20end;
Xend.
$ call unpack QUEUE_NQNJ.PAS;1 440765406 ""
$!
$ create 'f'
X#include`20<stdio.h>
X#include`20<descrip.h>
X#include`20<prvdef.h>
X#include`20<iodef.h>
X#include`20<fibdef.h>
X#include`20"dqfdef.h"
X
Xlong`20sys$setprv();
Xlong`20sys$assign();
Xlong`20sys$qiow();
Xlong`20sys$idtoasc();
Xlong`20sys$dassgn();
X
Xmain()
X`7B
X`20`20`20long`20stat,iosb`5B2`5D,quoblck`5BDQF$C_LENGTH/sizeof(long)`5D;
X`20`20`20short`20chan,dummy,unl;
X`20`20`20char`20un`5B13`5D;
X`20`20`20$DESCRIPTOR(undesc,un);
X`20`20`20$DESCRIPTOR(devdesc,"SYS$DISK");
X`20`20`20long`20priv`5B2`5D`20=`20`7B`20PRV$M_SYSPRV,0`20`7D;
X`20`20`20struct`20fibdef1`20fibblck;
X`20`20`20long`20qdesc`5B2`5D`20=`20`7B`20sizeof(quoblck),`26quoblck`20`7D;
X`20`20`20long`20fibdesc`5B2`5D`20=`20`7B`20sizeof(fibblck),`26fibblck`20`7D;
X`20`20`20stat`20=`20sys$setprv(1,priv,0,0);
X`20`20`20stat`20=`20sys$assign(`26devdesc,`26chan,0,0);
X`20`20`20while`20(1)`20`7B
X`20`20`20`20`20`20fibblck.fib$w_cntrlfunc`20=`20FIB$C_EXA_QUOTA;
X#ifdef`20__DECC
X`20`20`20`20`20`20fibblck.fib$l_cntrlval`20=`20FIB$M_ALL_MEM`20`7C`20FIB$M_ALL
V_GRP;
X#else
X`20`20`20`20`20`20fibblck.fib$r_cntrlval_overlay.fib$l_cntrlval`20=
X`20`20`20`20`20`20`20`20`20FIB$M_ALL_MEM`20`7C`20FIB$M_ALL_GRP;
X#endif
X`20`20`20`20`20`20stat`20=`20sys$qiow(0,chan,IO$_ACPCONTROL,iosb,0,0,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`26fibdesc,
V`26qdesc,`26dummy,`26qdesc,0,0);
X`20`20`20`20`20`20if`20((stat`261)!=1)`20break;
X`20`20`20`20`20`20if`20((iosb`5B0`5D`261)!=1)`20break;
X`20`20`20`20`20`20stat`20=`20sys$idtoasc(quoblck`5BDQF$L_UIC/sizeof(long)`5D,
V`26unl,`26undesc,0,0,0);
X`20`20`20`20`20`20if((stat`261)==1)`20`7B
X`20`20`20`20`20`20`20`20`20un`5Bunl`5D`20=`20'`5C0';
X`20`20`20`20`20`20`20`20`20printf("%s`20%6d`20%6d`20%6d`5Cn",un,quoblck`5BDQF$
VL_USAGE/sizeof(long)`5D,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`20`20`20quoblck`5BDQF$L_PERMQUOTA/sizeof(long)
V`5D,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`20`20`20quoblck`5BDQF$L_OVERDRAFT/sizeof(long)
V`5D);
X`20`20`20`20`20`20`7D;
X`20`20`20`7D;
X`20`20`20stat`20=`20sys$dassgn(chan);
X`7D;
$ call unpack QUOTA_SUP.C;1 1131966289 ""
$!
$ create 'f'
X`20`20`20`20`20`20PROGRAM`20QUOTA_SUP
X`20`20`20`20`20`20INCLUDE`20'($PRVDEF)'
X`20`20`20`20`20`20INCLUDE`20'($IODEF)'
X`20`20`20`20`20`20INCLUDE`20'($FIBDEF)'
X`20`20`20`20`20`20INCLUDE`20'DQFDEF.FOR'
X`20`20`20`20`20`20STRUCTURE`20/MYFIB/
X`20`20`20`20`20`20`20`20UNION
X`20`20`20`20`20`20`20`20`20`20MAP
X`20`20`20`20`20`20`20`20`20`20`20`20RECORD`20/FIBDEF/FULL
X`20`20`20`20`20`20`20`20`20`20ENDMAP
X`20`20`20`20`20`20`20`20`20`20MAP
X`20`20`20`20`20`20`20`20`20`20`20`20RECORD`20/FIBDEF1/BRIEF
X`20`20`20`20`20`20`20`20`20`20ENDMAP
X`20`20`20`20`20`20`20`20ENDUNION
X`20`20`20`20`20`20ENDSTRUCTURE
X`20`20`20`20`20`20INTEGER*4`20STAT,IOSB(2),QUOBLCK(DQF$C_LENGTH/4)
X`20`20`20`20`20`20INTEGER*2`20CHAN,DUMMY,UNL
X`20`20`20`20`20`20CHARACTER*12`20UN
X`20`20`20`20`20`20INTEGER*4`20PRIV(2)
X`20`20`20`20`20`20RECORD`20/MYFIB/FIBBLCK
X`20`20`20`20`20`20INTEGER*4`20QDESC(2)
X`20`20`20`20`20`20INTEGER*4`20FIBDESC(2)
X`20`20`20`20`20`20INTEGER*4`20SYS$SETPRV,SYS$ASSIGN,SYS$QIOW,SYS$IDTOASC,SYS$D
VASSGN
X`20`20`20`20`20`20DATA`20PRIV/PRV$M_SYSPRV,0/
X`20`20`20`20`20`20QDESC(1)=DQF$C_LENGTH
X`20`20`20`20`20`20QDESC(2)=%LOC(QUOBLCK)
X`20`20`20`20`20`20FIBDESC(1)=FIB$C_LENGTH
X`20`20`20`20`20`20FIBDESC(2)=%LOC(FIBBLCK)
X`20`20`20`20`20`20STAT=SYS$SETPRV(%VAL(1),PRIV,,)
X`20`20`20`20`20`20STAT=SYS$ASSIGN('SYS$DISK',CHAN,,)
X100`20`20`20FIBBLCK.BRIEF.FIB$W_CNTRLFUNC=FIB$C_EXA_QUOTA
X`20`20`20`20`20`20FIBBLCK.BRIEF.FIB$L_CNTRLVAL=FIB$M_ALL_MEM+FIB$M_ALL_GRP
X`20`20`20`20`20`20STAT=SYS$QIOW(,%VAL(CHAN),%VAL(IO$_ACPCONTROL),IOSB,,,
X`20`20`20`20`20+`20`20`20`20`20`20`20`20`20`20`20`20`20`20FIBDESC,QDESC,DUMMY,
VQDESC,,)
X`20`20`20`20`20`20IF((STAT.AND.1).NE.1)`20GOTO`20200
X`20`20`20`20`20`20IF((IOSB(1).AND.1).NE.1)`20GOTO`20200
X`20`20`20`20`20`20STAT=SYS$IDTOASC(%VAL(QUOBLCK(DQF$L_UIC/4+1)),UNL,UN,,,)
X`20`20`20`20`20`20IF((STAT.AND.1).EQ.1)
X`20`20`20`20`20+`20`20WRITE(6,'(1X,A,3(1X,I6))')`20UN(1:UNL),QUOBLCK(DQF$L_USA
VGE/4+1),
X`20`20`20`20`20+`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20QUOBLCK(DQF$L_PERMQUOTA/4+1),
X`20`20`20`20`20+`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20QUOBLCK(DQF$L_OVERDRAFT/4+1)
X`20`20`20`20`20`20GOTO`20100
X200`20`20`20STAT=SYS$DASSGN(%VAL(CHAN))
X`20`20`20`20`20`20END
$ call unpack QUOTA_SUP.FOR;1 1845505403 ""
$!
$ create 'f'
X`5Binherit('sys$library:starlet')`5D
X
Xprogram`20quota_sup(input,output);
X
X%include`20'dqfdef.pas'
X
Xlabel
X`20`20`20fin;
X
Xconst
X`20`20`20string_length`20=`20256;
X
Xtype
X`20`20`20string`20=`20varying`20`5Bstring_length`5D`20of`20char;
X`20`20`20word`20`20`20=`20`5Bword`5D`200..65535;
X`20`20`20quad`20`20`20=`20record
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20l0,l1`20:`20unsigned;
X`20`20`20`20`20`20`20`20`20`20`20`20end;
X`20`20`20myfib`20`20=`20record
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20case`20boolean`20of
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20true`20`20:`20(full`20
V`20:`20FIB$TYPE);
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20false`20:`20(brief`20:
V`20FIB1$TYPE);
X`20`20`20`20`20`20`20`20`20`20`20`20end;
X
Xvar
X`20`20`20stat`20`20`20`20`20`20`20:`20unsigned;
X`20`20`20iosb`20`20`20`20`20`20`20:`20quad;
X`20`20`20quoblck`20`20`20`20:`20array`20`5B1..(DQF$C_LENGTH`20div`204)`5D`20of
V`20unsigned;
X`20`20`20chan,dummy`20:`20word;
X`20`20`20un`20`20`20`20`20`20`20`20`20:`20string;
X`20`20`20priv`20`20`20`20`20`20`20:`20quad;
X`20`20`20fibblck`20`20`20`20:`20myfib;
X`20`20`20qdesc`20`20`20`20`20`20:`20quad;
X`20`20`20fibdesc`20`20`20`20:`20quad;
X
Xbegin
X`20`20`20priv.l0:=PRV$M_SYSPRV;
X`20`20`20priv.l1:=0;
X`20`20`20qdesc.l0:=DQF$C_LENGTH;
X`20`20`20qdesc.l1:=iaddress(quoblck);
X`20`20`20fibdesc.l0:=FIB$C_LENGTH;
X`20`20`20fibdesc.l1:=iaddress(fibblck);
X`20`20`20stat:=$setprv(enbflg:=1,prvadr:=priv);
X`20`20`20stat:=$assign(devnam:='sys$disk',chan:=chan);
X`20`20`20while(true)`20do`20begin
X`20`20`20`20`20`20fibblck.brief.fib$w_cntrlfunc:=FIB$C_EXA_QUOTA;
X`20`20`20`20`20`20fibblck.brief.fib$l_cntrlval:=FIB$M_ALL_MEM+FIB$M_ALL_GRP;
X`20`20`20`20`20`20stat:=$qiow(chan:=chan,func:=IO$_ACPCONTROL,iosb:=iosb,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20p1:=fibdesc,p2:=iaddress
V(qdesc),
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20p3:=iaddress(dummy),p4:=
Viaddress(qdesc));
X`20`20`20`20`20`20if`20not(odd(stat))`20then`20goto`20fin;
X`20`20`20`20`20`20if`20not(odd(iosb.l0))`20then`20goto`20fin;
X`20`20`20`20`20`20stat:=$idtoasc(id:=quoblck`5B(DQF$L_UIC`20div`204)+1`5D,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20namlen:=un.leng
Vth,nambuf:=un.body);
X`20`20`20`20`20`20if`20odd(stat)`20then
X`20`20`20`20`20`20`20`20`20writeln(un,'`20',quoblck`5B(DQF$L_USAGE`20div`204)+
V1`5D:6,'`20',
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20quoblc
Vk`5B(DQF$L_PERMQUOTA`20div`204)+1`5D:6,'`20',
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20quoblc
Vk`5B(DQF$L_OVERDRAFT`20div`204)+1`5D:6);
X`20`20`20end;
Xfin:
X`20`20`20stat:=$dassgn(chan:=chan);
Xend.
$ call unpack QUOTA_SUP.PAS;1 826768841 ""
$!
$ create 'f'
X#include`20<stdio.h>
X#include`20<descrip.h>
X#include`20"dqfdef.h"
X
Xlong`20sys$idtoasc();
X
Xmain()
X`7B
X`20`20`20FILE`20*fp;
X`20`20`20long`20stat,rec`5BDQF$C_LENGTH/sizeof(long)`5D;
X`20`20`20short`20unl;
X`20`20`20char`20un`5B13`5D;
X`20`20`20$DESCRIPTOR(undesc,un);
X`20`20`20fp`20=`20fopen("quota.cpy","rb");
X`20`20`20while`20(!feof(fp))`20`7B
X`20`20`20`20`20`20fread(rec,sizeof(long),DQF$C_LENGTH/sizeof(long),fp);
X`20`20`20`20`20`20stat`20=`20sys$idtoasc(rec`5BDQF$L_UIC/sizeof(long)`5D,`26un
Vl,`26undesc,0,0,0);
X`20`20`20`20`20`20if((stat`261)==1)`20`7B
X`20`20`20`20`20`20`20`20`20un`5Bunl`5D`20=`20'`5C0';
X`20`20`20`20`20`20`20`20`20printf("%s`20%6d`20%6d`20%6d`5Cn",un,rec`5BDQF$L_US
VAGE/sizeof(long)`5D,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`20`20`20rec`5BDQF$L_PERMQUOTA/sizeof(long)`5D,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`20`20`20`20rec`5BDQF$L_OVERDRAFT/sizeof(long)`5D);
V
X`20`20`20`20`20`20`7D;
X`20`20`20`7D;
X`20`20`20fclose(fp);
X`7D;
$ call unpack QUOTA_UNSUP.C;1 956530434 ""
$!
$ create 'f'
X$`20dqf$l_uic=4
X$`20dqf$l_usage=8
X$`20dqf$l_permquota=12
X$`20dqf$l_overdraft=16
X$`20open/read`20quota.cpy`20quota.cpy
X$`20loop:
X$`20`20`20`20read/end=endloop`20quota.cpy`20rec
X$`20`20`20`20uic=f$cvui(0,32,f$extract(dqf$l_uic,4,rec))
X$`20`20`20`20un=f$identifier(uic,"number_to_name")
X$`20`20`20`20use=f$cvui(0,32,f$extract(dqf$l_usage,4,rec))
X$`20`20`20`20quo=f$cvui(0,32,f$extract(dqf$l_permquota,4,rec))
X$`20`20`20`20over=f$cvui(0,32,f$extract(dqf$l_overdraft,4,rec))
X$`20`20`20`20if`20un`20.nes.`20""`20then`20write`20sys$output`20f$fao("!AS`20!
V6SL`20!6SL`20!6SL",un,use,quo,over)
X$`20`20`20`20goto`20loop
X$`20endloop:
X$`20close`20quota.cpy
X$`20exit
$ call unpack QUOTA_UNSUP.COM;1 1601831828 ""
$!
$ create 'f'
X`20`20`20`20`20`20PROGRAM`20QUOTA_UNSUP
X`20`20`20`20`20`20INCLUDE`20'DQFDEF.FOR'
X`20`20`20`20`20`20INTEGER*4`20STAT,REC(DQF$C_LENGTH/4),J
X`20`20`20`20`20`20INTEGER*2`20UNL
X`20`20`20`20`20`20CHARACTER*12`20UN
X`20`20`20`20`20`20INTEGER*4`20SYS$IDTOASC
X`20`20`20`20`20`20OPEN(UNIT=1,FILE='QUOTA.CPY',STATUS='OLD',FORM='UNFORMATTED'
V)
X100`20`20`20READ(1,END=200)`20(REC(J),J=1,DQF$C_LENGTH/4)
X`20`20`20`20`20`20STAT=SYS$IDTOASC(%VAL(REC(DQF$L_UIC/4+1)),UNL,UN,,,)
X`20`20`20`20`20`20IF((STAT.AND.1).EQ.1)
X`20`20`20`20`20+`20`20WRITE(6,'(1X,A,3(1X,I6))')`20UN(1:UNL),REC(DQF$L_USAGE/4
V+1),
X`20`20`20`20`20+`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20REC(DQF$L_PERMQUOTA/4+1),
X`20`20`20`20`20+`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20REC(DQF$L_OVERDRAFT/4+1)
X`20`20`20`20`20`20GOTO`20100
X200`20`20`20CLOSE(UNIT=1)
X`20`20`20`20`20`20END
$ call unpack QUOTA_UNSUP.FOR;1 710231269 ""
$!
$ create 'f'
X`5Binherit('sys$library:starlet')`5D
X
Xprogram`20quota_unsup(input,output);
X
X%include`20'dqfdef.pas'
X
Xconst
X`20`20`20string_length`20=`20256;
X
Xtype
X`20`20`20string`20=`20varying`20`5Bstring_length`5D`20of`20char;
X`20`20`20qrec`20`20`20=`20array`20`5B1..(DQF$C_LENGTH`20div`204)`5D`20of`20uns
Vigned;
X
Xvar
X`20`20`20stat`20:`20unsigned;
X`20`20`20rec`20`20:`20qrec;
X`20`20`20un`20`20`20:`20string;
X`20`20`20f`20`20`20`20:`20file`20of`20qrec;
X
Xbegin
X`20`20`20open(f,'quota.cpy',old);
X`20`20`20reset(f);
X`20`20`20while`20not(eof(f))`20do`20begin
X`20`20`20`20`20`20rec:=f`5E;
X`20`20`20`20`20`20get(f);
X`20`20`20`20`20`20stat:=$idtoasc(id:=rec`5B(DQF$L_UIC`20div`204)+1`5D,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20namlen:=un.leng
Vth,nambuf:=un.body);
X`20`20`20`20`20`20if`20odd(stat)`20then
X`20`20`20`20`20`20`20`20`20writeln(un,'`20',rec`5B(DQF$L_USAGE`20div`204)+1
V`5D:6,'`20',
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20rec
V`5B(DQF$L_PERMQUOTA`20div`204)+1`5D:6,'`20',
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20rec
V`5B(DQF$L_OVERDRAFT`20div`204)+1`5D:6);
X`20`20`20end;
X`20`20`20close(f);
Xend.
$ call unpack QUOTA_UNSUP.PAS;1 1326412228 ""
$!
$ create 'f'
X#include`20<stdio.h>
X#include`20<prvdef.h>
X#include`20<uaidef.h>
X#include`20<descrip.h>
X
Xstruct`20itemlist`20`7B
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20short`20buflen,code;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20long`20bufadr,retlenadr;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`7D;
X
Xlong`20sys$setprv();
Xlong`20sys$idtoasc();
Xlong`20sys$getuai();
X
Xmain()
X`7B
X`20`20`20long`20stat,id,resid,cntx,pgflq;
X`20`20`20short`20unl;
X`20`20`20char`20un`5B33`5D;
X`20`20`20$DESCRIPTOR(undesc,un);
X`20`20`20long`20priv`5B2`5D`20=`20`7B`20PRV$M_SYSPRV,0`20`7D;
X`20`20`20struct`20itemlist`20uailist`5B2`5D`20=`20`7B`20`7Bsizeof(pgflq),UAI$_
VPGFLQUOTA,`26pgflq,0`7D`20,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20`20`20`20`7B0,0,0,0`7D`20`7D;
X`20`20`20stat`20=`20sys$setprv(1,priv,0,0);
X`20`20`20id`20=`20-1;
X`20`20`20cntx`20=`200;
X`20`20`20while`20(1)`20`7B
X`20`20`20`20`20`20undesc.dsc$w_length`20=`20sizeof(un);
X`20`20`20`20`20`20stat`20=`20sys$idtoasc(id,`26unl,`26undesc,`26resid,0,`26cnt
Vx);
X`20`20`20`20`20`20if`20((stat`261)!=1)`20break;
X`20`20`20`20`20`20un`5Bunl`5D`20=`20'`5C0';
X`20`20`20`20`20`20if`20(resid>0)`20`7B
X`20`20`20`20`20`20`20`20`20undesc.dsc$w_length`20=`20unl;
X`20`20`20`20`20`20`20`20`20stat`20=`20sys$getuai(0,0,`26undesc,uailist,0,0,0);
V
X`20`20`20`20`20`20`20`20`20if`20((stat`261)==1)`20printf("%s`20%d`5Cn",un,pgfl
Vq);
X`20`20`20`20`20`20`7D;
X`20`20`20`7D;
X`7D;
$ call unpack SYSUAF_SUP.C;1 1550301704 ""
$!
$ create 'f'
X`20`20`20`20`20`20PROGRAM`20SYSUAF_SUP
X`20`20`20`20`20`20INCLUDE`20'($PRVDEF)'
X`20`20`20`20`20`20INCLUDE`20'($UAIDEF)'
X`20`20`20`20`20`20STRUCTURE`20/ITEMLIST/
X`20`20`20`20`20`20`20`20INTEGER*2`20BUFLEN,CODE
X`20`20`20`20`20`20`20`20INTEGER*4`20BUFADR,RETLENADR
X`20`20`20`20`20`20ENDSTRUCTURE
X`20`20`20`20`20`20INTEGER*4`20STAT,ID,RESID,CNTX,PGFLQ
X`20`20`20`20`20`20INTEGER*2`20UNL
X`20`20`20`20`20`20CHARACTER*32`20UN
X`20`20`20`20`20`20INTEGER*4`20PRIV(2)
X`20`20`20`20`20`20RECORD`20/ITEMLIST/UAILIST(2)
X`20`20`20`20`20`20INTEGER*4`20SYS$SETPRV,SYS$IDTOASC,SYS$GETUAI
X`20`20`20`20`20`20DATA`20PRIV/PRV$M_SYSPRV,0/
X`20`20`20`20`20`20UAILIST(1).BUFLEN=4
X`20`20`20`20`20`20UAILIST(1).CODE=UAI$_PGFLQUOTA
X`20`20`20`20`20`20UAILIST(1).BUFADR=%LOC(PGFLQ)
X`20`20`20`20`20`20UAILIST(1).RETLENADR=0
X`20`20`20`20`20`20UAILIST(2).BUFLEN=0
X`20`20`20`20`20`20UAILIST(2).CODE=0
X`20`20`20`20`20`20UAILIST(2).BUFADR=0
X`20`20`20`20`20`20UAILIST(2).RETLENADR=0
X`20`20`20`20`20`20STAT=SYS$SETPRV(%VAL(1),PRIV,,)
X`20`20`20`20`20`20ID=-1
X`20`20`20`20`20`20CNTX=0
X100`20`20`20STAT=SYS$IDTOASC(%VAL(ID),UNL,UN,RESID,,CNTX)
X`20`20`20`20`20`20IF((STAT.AND.1).NE.1)`20GOTO`20200
X`20`20`20`20`20`20IF(RESID.GT.0)`20THEN
X`20`20`20`20`20`20`20`20STAT=SYS$GETUAI(,,UN(1:UNL),UAILIST,,,)
X`20`20`20`20`20`20`20`20IF((STAT.AND.1).EQ.1)`20WRITE(6,'(1X,A,1X,I)')`20UN(1:
VUNL),PGFLQ
X`20`20`20`20`20`20ENDIF
X`20`20`20`20`20`20GOTO`20100
X200`20`20`20CONTINUE
X`20`20`20`20`20`20END
$ call unpack SYSUAF_SUP.FOR;1 1213867299 ""
$!
$ create 'f'
X`5Binherit('sys$library:starlet')`5D
X
Xprogram`20sysuaf_sup(input,output);
X
Xlabel
X`20`20`20fin;
X
Xconst
X`20`20`20string_length`20=`20256;
X
Xtype
X`20`20`20string`20=`20varying`20`5Bstring_length`5D`20of`20char;
X`20`20`20word`20`20`20=`20`5Bword`5D`200..65535;
X`20`20`20quad`20`20`20=`20record
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20l0,l1`20:`20unsigned;
X`20`20`20`20`20`20`20`20`20`20`20`20end;
X`20`20`20itemlist`20=`20record
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20buflen,code`20:`20word;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20bufadr,retlenadr`20:`20unsi
Vgned;
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20end;
X
Xvar
X`20`20`20stat,id,resid,cntx,pgflq`20:`20unsigned;
X`20`20`20un`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20:`20string;
X`20`20`20priv`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20:
V`20quad;
X`20`20`20uailist`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20:`20arra
Vy`20`5B1..2`5D`20of`20itemlist;
X
Xbegin
X`20`20`20priv.l0:=PRV$M_SYSPRV;
X`20`20`20priv.l1:=0;
X`20`20`20uailist`5B1`5D.buflen:=4;
X`20`20`20uailist`5B1`5D.code:=UAI$_PGFLQUOTA;
X`20`20`20uailist`5B1`5D.bufadr:=iaddress(pgflq);
X`20`20`20uailist`5B1`5D.retlenadr:=0;
X`20`20`20uailist`5B2`5D.buflen:=0;
X`20`20`20uailist`5B2`5D.code:=0;
X`20`20`20uailist`5B2`5D.bufadr:=0;
X`20`20`20uailist`5B2`5D.retlenadr:=0;
X`20`20`20stat:=$setprv(enbflg:=1,prvadr:=priv);
X`20`20`20id:=-1;
X`20`20`20cntx:=0;
X`20`20`20while(true)`20do`20begin
X`20`20`20`20`20`20stat:=$idtoasc(id:=id,namlen:=un.length,nambuf:=un.body,
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20resid:=resid,co
Vntxt:=cntx);
X`20`20`20`20`20`20if`20not(odd(stat))`20then`20goto`20fin;
X`20`20`20`20`20`20if`20resid<maxint`20then`20begin
X`20`20`20`20`20`20`20`20`20stat:=$getuai(usrnam:=un,itmlst:=uailist);
X`20`20`20`20`20`20`20`20`20if`20odd(stat)`20then`20writeln(un,'`20',pgflq);
X`20`20`20`20`20`20end;
X`20`20`20end;
Xfin:
Xend.
$ call unpack SYSUAF_SUP.PAS;1 577980261 ""
$!
$ create 'f'
X#include`20<stdio.h>
X#include`20<string.h>
X#include`20<fab.h>
X#include`20<rab.h>
X#include`20"uafdef.h"
X
Xmain()
X`7B
X`20`20`20long`20stat,rec`5BUAF$C_LENGTH/sizeof(long)`5D,pgflq;
X`20`20`20char`20un`5B33`5D,*s;
X`20`20`20struct`20FAB`20fabblck;
X`20`20`20struct`20RAB`20rabblck;
X`20`20`20char`20sysuaf`5B`5D`20=`20"sysuaf.cpy";
X`20`20`20fabblck`20=`20cc$rms_fab;
X`20`20`20fabblck.fab$l_fna`20=`20`26sysuaf;
X`20`20`20fabblck.fab$b_fns`20=`20strlen(sysuaf);
X`20`20`20rabblck`20=`20cc$rms_rab;
X`20`20`20rabblck.rab$l_fab`20=`20`26fabblck;
X`20`20`20stat`20=`20sys$open(`26fabblck,0,0);
X`20`20`20stat`20=`20sys$connect(`26rabblck,0,0);
X`20`20`20while`20(1)`20`7B
X`20`20`20`20`20`20rabblck.rab$l_ubf`20=`20`26rec;
X`20`20`20`20`20`20rabblck.rab$w_usz`20=`20sizeof(rec);
X`20`20`20`20`20`20stat`20=`20sys$get(`26rabblck,0,0);
X`20`20`20`20`20`20if`20((stat`261)!=1)`20break;
X`20`20`20`20`20`20memmove(un,`26rec`5BUAF$T_USERNAME/sizeof(long)`5D,UAF$S_USE
VRNAME);
X`20`20`20`20`20`20un`5Bsizeof(un)-1`5D`20=`20'`20';
X`20`20`20`20`20`20s`20=`20strchr(un,'`20');
X`20`20`20`20`20`20*s`20=`20'`5C0';
X`20`20`20`20`20`20pgflq`20=`20rec`5BUAF$L_PGFLQUOTA/sizeof(long)`5D;
X`20`20`20`20`20`20printf("%s`20%d`5Cn",un,pgflq);
X`20`20`20`7D;
X`7D;
$ call unpack SYSUAF_UNSUP.C;1 2000453244 ""
$!
$ create 'f'
X$`20uaf$t_username=4
X$`20uaf$s_username=32
X$`20uaf$l_pgflquota=552
X$`20open/read`20sysuaf.cpy`20sysuaf.cpy
X$`20loop:
X$`20`20`20`20read/end=endloop`20sysuaf.cpy`20rec
X$`20`20`20`20un=f$edit(f$extract(uaf$t_username,uaf$s_username,rec),"TRIM")
X$`20`20`20`20pgflq=f$cvui(0,32,f$extract(uaf$l_pgflquota,4,rec))
X$`20`20`20`20write`20sys$output`20f$fao("!AS`20!SL",un,pgflq)
X$`20`20`20`20goto`20loop
X$`20endloop:
X$`20close`20sysuaf.cpy
X$`20exit
$ call unpack SYSUAF_UNSUP.COM;1 254220605 ""
$!
$ create 'f'
X`20`20`20`20`20`20PROGRAM`20SYSUAF_UNSUP
X`20`20`20`20`20`20INCLUDE`20'UAFDEF.FOR'
X`20`20`20`20`20`20INTEGER*4`20STAT,REC(UAF$C_LENGTH/4),PGFLQ
X`20`20`20`20`20`20INTEGER*2`20UNL
X`20`20`20`20`20`20CHARACTER*32`20UN
X`20`20`20`20`20`20CHARACTER*(UAF$C_LENGTH)`20DUMREC
X`20`20`20`20`20`20EQUIVALENCE`20(REC,DUMREC)
X`20`20`20`20`20`20OPEN(UNIT=1,FILE='SYSUAF.CPY',STATUS='OLD',FORM='FORMATTED',
V
X`20`20`20`20`20+`20`20`20`20`20ORGANIZATION='INDEXED',ACCESS='SEQUENTIAL',
X`20`20`20`20`20+`20`20`20`20`20RECORDTYPE='VARIABLE',RECL=UAF$C_LENGTH)
X100`20`20`20READ(1,'(A)',END=200)`20DUMREC
X`20`20`20`20`20`20UN=DUMREC(UAF$T_USERNAME+1:UAF$T_USERNAME+UAF$S_USERNAME)
X`20`20`20`20`20`20UNL=INDEX(UN//'`20','`20')-1
X`20`20`20`20`20`20PGFLQ=REC(UAF$L_PGFLQUOTA/4+1)
X`20`20`20`20`20`20WRITE(6,'(1X,A,1X,I)')`20UN(1:UNL),PGFLQ
X`20`20`20`20`20`20GOTO`20100
X200`20`20`20CLOSE(UNIT=2)
X`20`20`20`20`20`20END
$ call unpack SYSUAF_UNSUP.FOR;1 118296271 ""
$!
$ create 'f'
Xprogram`20sysuaf_unsup(input,output);
X
X%include`20'uafdef.pas'
X
Xconst
X`20`20`20string_length`20=`20256;
X
Xtype
X`20`20`20string`20=`20varying`20`5Bstring_length`5D`20of`20char;
X`20`20`20phony`20`20=`20record`20`20
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20case`20boolean`20of
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20true`20`20:`20(rec`20:
V`20array`20`5B1..(UAF$C_LENGTH`20div`204)`5D`20of`20unsigned);
X`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20false`20:`20(dumrec`20:
V`20packed`20array`20`5B1..UAF$C_LENGTH`5D`20of`20char);
X`20`20`20`20`20`20`20`20`20`20`20`20end;
X
Xvar
X`20`20`20stat,pgflq`20:`20unsigned;
X`20`20`20rec`20`20`20`20`20`20`20`20:`20phony;
X`20`20`20un`20`20`20`20`20`20`20`20`20:`20string;
X`20`20`20f`20`20`20`20`20`20`20`20`20`20:`20file`20of`20phony;
X
Xbegin
X`20`20`20open(f,'sysuaf.cpy',old,
X`20`20`20`20`20`20`20`20organization:=indexed,access_method:=sequential,
X`20`20`20`20`20`20`20`20record_type:=variable,record_length:=UAF$C_LENGTH);
X`20`20`20reset(f);
X`20`20`20while`20not(eof(f))`20do`20begin
X`20`20`20`20`20`20read(f,rec);
X`20`20`20`20`20`20un:=substr(rec.dumrec,UAF$T_USERNAME+1,UAF$S_USERNAME);
X`20`20`20`20`20`20un:=substr(un,1,index(un+'`20','`20')-1);
X`20`20`20`20`20`20pgflq:=rec.rec`5B(UAF$L_PGFLQUOTA`20div`204)+1`5D;
X`20`20`20`20`20`20writeln(un,'`20',pgflq);
X`20`20`20end;
X`20`20`20close(f);
Xend.
$ call unpack SYSUAF_UNSUP.PAS;1 1430920277 ""
$!
$ create 'f'
XC
XC`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20UAFDEF.INC
XC
XC`20Definitions`20created`20by`20FORTRAN_DEFS`20at`2031-MAY-1993`2015:18:47.84
V
XC
X`20`20`20`20`20`20parameter`20(`20UAF$C_USER_ID`20=`201`20)
X`20`20`20`20`20`20parameter`20(`20UAF$C_VERSION1`20=`201`20)
X`20`20`20`20`20`20parameter`20(`20UAF$C_KEYED_PART`20=`2052`20)
X`20`20`20`20`20`20parameter`20(`20UAF$C_MAX_PWD_LENGTH`20=`2032`20)
X`20`20`20`20`20`20parameter`20(`20UAF$K_MAX_PWD_LENGTH`20=`2032`20)
X`20`20`20`20`20`20parameter`20(`20UAF$C_AD_II`20=`200`20)
X`20`20`20`20`20`20parameter`20(`20UAF$C_PURDY`20=`201`20)
X`20`20`20`20`20`20parameter`20(`20UAF$C_PURDY_V`20=`202`20)
X`20`20`20`20`20`20parameter`20(`20UAF$C_PURDY_S`20=`203`20)
X`20`20`20`20`20`20parameter`20(`20UAF$C_PREFERED_ALGORITHM`20=`203`20)
X`20`20`20`20`20`20parameter`20(`20UAF$K_PREFERED_ALGORITHM`20=`203`20)
X`20`20`20`20`20`20parameter`20(`20UAF$C_CUST_ALGORITHM`20=`20128`20)
X`20`20`20`20`20`20parameter`20(`20UAF$K_CUST_ALGORITHM`20=`20128`20)
X`20`20`20`20`20`20parameter`20(`20UAF$K_FIXED`20=`20644`20)
X`20`20`20`20`20`20parameter`20(`20UAF$C_FIXED`20=`20644`20)
X`20`20`20`20`20`20parameter`20(`20UAF$K_LENGTH`20=`201412`20)
X`20`20`20`20`20`20parameter`20(`20UAF$C_LENGTH`20=`201412`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_UAFDEF`20=`201412`20)
X`20`20`20`20`20`20parameter`20(`20UAF$B_RTYPE`20=`200`20)
X`20`20`20`20`20`20parameter`20(`20UAF$B_VERSION`20=`201`20)
X`20`20`20`20`20`20parameter`20(`20UAF$W_USRDATOFF`20=`202`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_USERNAME`20=`2032`20)
X`20`20`20`20`20`20parameter`20(`20UAF$T_USERNAME`20=`204`20)
X`20`20`20`20`20`20parameter`20(`20UAF$T_USERNAME_TAG`20=`2035`20)
X`20`20`20`20`20`20parameter`20(`20UAF$L_UIC`20=`2036`20)
X`20`20`20`20`20`20parameter`20(`20UAF$W_MEM`20=`2036`20)
X`20`20`20`20`20`20parameter`20(`20UAF$W_GRP`20=`2038`20)
X`20`20`20`20`20`20parameter`20(`20UAF$L_SUB_ID`20=`2040`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_PARENT_ID`20=`208`20)
X`20`20`20`20`20`20parameter`20(`20UAF$Q_PARENT_ID`20=`2044`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_ACCOUNT`20=`2032`20)
X`20`20`20`20`20`20parameter`20(`20UAF$T_ACCOUNT`20=`2052`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_OWNER`20=`2032`20)
X`20`20`20`20`20`20parameter`20(`20UAF$T_OWNER`20=`2084`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_DEFDEV`20=`2032`20)
X`20`20`20`20`20`20parameter`20(`20UAF$T_DEFDEV`20=`20116`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_DEFDIR`20=`2064`20)
X`20`20`20`20`20`20parameter`20(`20UAF$T_DEFDIR`20=`20148`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_LGICMD`20=`2064`20)
X`20`20`20`20`20`20parameter`20(`20UAF$T_LGICMD`20=`20212`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_DEFCLI`20=`2032`20)
X`20`20`20`20`20`20parameter`20(`20UAF$T_DEFCLI`20=`20276`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_CLITABLES`20=`2032`20)
X`20`20`20`20`20`20parameter`20(`20UAF$T_CLITABLES`20=`20308`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_PWD`20=`208`20)
X`20`20`20`20`20`20parameter`20(`20UAF$Q_PWD`20=`20340`20)
X`20`20`20`20`20`20parameter`20(`20UAF$L_PWD`20=`20340`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_PWD2`20=`208`20)
X`20`20`20`20`20`20parameter`20(`20UAF$Q_PWD2`20=`20348`20)
X`20`20`20`20`20`20parameter`20(`20UAF$W_LOGFAILS`20=`20356`20)
X`20`20`20`20`20`20parameter`20(`20UAF$W_SALT`20=`20358`20)
X`20`20`20`20`20`20parameter`20(`20UAF$B_ENCRYPT`20=`20360`20)
X`20`20`20`20`20`20parameter`20(`20UAF$B_ENCRYPT2`20=`20361`20)
X`20`20`20`20`20`20parameter`20(`20UAF$B_PWD_LENGTH`20=`20362`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_EXPIRATION`20=`208`20)
X`20`20`20`20`20`20parameter`20(`20UAF$Q_EXPIRATION`20=`20364`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_PWD_LIFETIME`20=`208`20)
X`20`20`20`20`20`20parameter`20(`20UAF$Q_PWD_LIFETIME`20=`20372`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_PWD_DATE`20=`208`20)
X`20`20`20`20`20`20parameter`20(`20UAF$Q_PWD_DATE`20=`20380`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_PWD2_DATE`20=`208`20)
X`20`20`20`20`20`20parameter`20(`20UAF$Q_PWD2_DATE`20=`20388`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_LASTLOGIN_I`20=`208`20)
X`20`20`20`20`20`20parameter`20(`20UAF$Q_LASTLOGIN_I`20=`20396`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_LASTLOGIN_N`20=`208`20)
X`20`20`20`20`20`20parameter`20(`20UAF$Q_LASTLOGIN_N`20=`20404`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_PRIV`20=`208`20)
X`20`20`20`20`20`20parameter`20(`20UAF$Q_PRIV`20=`20412`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_DEF_PRIV`20=`208`20)
X`20`20`20`20`20`20parameter`20(`20UAF$Q_DEF_PRIV`20=`20420`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_MIN_CLASS`20=`2020`20)
X`20`20`20`20`20`20parameter`20(`20UAF$R_MIN_CLASS`20=`20428`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_MAX_CLASS`20=`2020`20)
X`20`20`20`20`20`20parameter`20(`20UAF$R_MAX_CLASS`20=`20448`20)
X`20`20`20`20`20`20parameter`20(`20UAF$L_FLAGS`20=`20468`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_DISCTLY`20=`200`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_DEFCLI`20=`201`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_LOCKPWD`20=`202`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_RESTRICTED`20=`203`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_DISACNT`20=`204`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_DISWELCOM`20=`205`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_DISMAIL`20=`206`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_NOMAIL`20=`207`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_GENPWD`20=`208`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_PWD_EXPIRED`20=`209`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_PWD2_EXPIRED`20=`2010`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_AUDIT`20=`2011`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_DISREPORT`20=`2012`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_DISRECONNECT`20=`2013`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_AUTOLOGIN`20=`2014`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_DISFORCE_PWD_CHANGE`20=`2015`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_CAPTIVE`20=`2016`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_DISIMAGE`20=`2017`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_DISPWDDIC`20=`2018`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_DISPWDHIS`20=`2019`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_NETWORK_ACCESS_P`20=`203`20)
X`20`20`20`20`20`20parameter`20(`20UAF$B_NETWORK_ACCESS_P`20=`20472`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_NETWORK_ACCESS_S`20=`203`20)
X`20`20`20`20`20`20parameter`20(`20UAF$B_NETWORK_ACCESS_S`20=`20475`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_BATCH_ACCESS_P`20=`203`20)
X`20`20`20`20`20`20parameter`20(`20UAF$B_BATCH_ACCESS_P`20=`20478`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_BATCH_ACCESS_S`20=`203`20)
X`20`20`20`20`20`20parameter`20(`20UAF$B_BATCH_ACCESS_S`20=`20481`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_LOCAL_ACCESS_P`20=`203`20)
X`20`20`20`20`20`20parameter`20(`20UAF$B_LOCAL_ACCESS_P`20=`20484`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_LOCAL_ACCESS_S`20=`203`20)
X`20`20`20`20`20`20parameter`20(`20UAF$B_LOCAL_ACCESS_S`20=`20487`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_DIALUP_ACCESS_P`20=`203`20)
X`20`20`20`20`20`20parameter`20(`20UAF$B_DIALUP_ACCESS_P`20=`20490`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_DIALUP_ACCESS_S`20=`203`20)
X`20`20`20`20`20`20parameter`20(`20UAF$B_DIALUP_ACCESS_S`20=`20493`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_REMOTE_ACCESS_P`20=`203`20)
X`20`20`20`20`20`20parameter`20(`20UAF$B_REMOTE_ACCESS_P`20=`20496`20)
X`20`20`20`20`20`20parameter`20(`20UAF$S_REMOTE_ACCESS_S`20=`203`20)
X`20`20`20`20`20`20parameter`20(`20UAF$B_REMOTE_ACCESS_S`20=`20499`20)
X`20`20`20`20`20`20parameter`20(`20UAF$B_PRIMEDAYS`20=`20514`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_MONDAY`20=`200`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_TUESDAY`20=`201`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_WEDNESDAY`20=`202`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_THURSDAY`20=`203`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_FRIDAY`20=`204`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_SATURDAY`20=`205`20)
X`20`20`20`20`20`20parameter`20(`20UAF$V_SUNDAY`20=`206`20)
X`20`20`20`20`20`20parameter`20(`20UAF$B_PRI`20=`20516`20)
X`20`20`20`20`20`20parameter`20(`20UAF$B_QUEPRI`20=`20517`20)
X`20`20`20`20`20`20parameter`20(`20UAF$W_MAXJOBS`20=`20518`20)
X`20`20`20`20`20`20parameter`20(`20UAF$W_MAXACCTJOBS`20=`20520`20)
X`20`20`20`20`20`20parameter`20(`20UAF$W_MAXDETACH`20=`20522`20)
X`20`20`20`20`20`20parameter`20(`20UAF$W_PRCCNT`20=`20524`20)
X`20`20`20`20`20`20parameter`20(`20UAF$W_BIOLM`20=`20526`20)
X`20`20`20`20`20`20parameter`20(`20UAF$W_DIOLM`20=`20528`20)
X`20`20`20`20`20`20parameter`20(`20UAF$W_TQCNT`20=`20530`20)
X`20`20`20`20`20`20parameter`20(`20UAF$W_ASTLM`20=`20532`20)
X`20`20`20`20`20`20parameter`20(`20UAF$W_ENQLM`20=`20534`20)
X`20`20`20`20`20`20parameter`20(`20UAF$W_FILLM`20=`20536`20)
X`20`20`20`20`20`20parameter`20(`20UAF$W_SHRFILLM`20=`20538`20)
X`20`20`20`20`20`20parameter`20(`20UAF$L_WSQUOTA`20=`20540`20)
X`20`20`20`20`20`20parameter`20(`20UAF$L_DFWSCNT`20=`20544`20)
X`20`20`20`20`20`20parameter`20(`20UAF$L_WSEXTENT`20=`20548`20)
X`20`20`20`20`20`20parameter`20(`20UAF$L_PGFLQUOTA`20=`20552`20)
X`20`20`20`20`20`20parameter`20(`20UAF$L_CPUTIM`20=`20556`20)
X`20`20`20`20`20`20parameter`20(`20UAF$L_BYTLM`20=`20560`20)
X`20`20`20`20`20`20parameter`20(`20UAF$L_PBYTLM`20=`20564`20)
X`20`20`20`20`20`20parameter`20(`20UAF$L_JTQUOTA`20=`20568`20)
X`20`20`20`20`20`20parameter`20(`20UAF$W_PROXY_LIM`20=`20572`20)
X`20`20`20`20`20`20parameter`20(`20UAF$W_PROXIES`20=`20574`20)
X`20`20`20`20`20`20parameter`20(`20UAF$W_ACCOUNT_LIM`20=`20576`20)
X`20`20`20`20`20`20parameter`20(`20UAF$W_ACCOUNTS`20=`20578`20)
XC
XC`20End`20of`20FORTRAN_DEFS`20definitions
XC
$ call unpack UAFDEF.FOR;1 175979565 ""
$!
$ create 'f'
X/*`20
X`20*`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20UAFDEF.H
X`20*`20
X`20*`20`20Definitions`20created`20by`20VAXC_DEFS`20at`2030-MAY-1993`2015:59:46
V.20
X`20*/
X#define`20UAF$C_USER_ID`201
X#define`20UAF$C_VERSION1`201
X#define`20UAF$C_KEYED_PART`2052
X#define`20UAF$C_MAX_PWD_LENGTH`2032
X#define`20UAF$K_MAX_PWD_LENGTH`2032
X#define`20UAF$C_AD_II`200
X#define`20UAF$C_PURDY`201
X#define`20UAF$C_PURDY_V`202
X#define`20UAF$C_PURDY_S`203
X#define`20UAF$C_PREFERED_ALGORITHM`203
X#define`20UAF$K_PREFERED_ALGORITHM`203
X#define`20UAF$C_CUST_ALGORITHM`20128
X#define`20UAF$K_CUST_ALGORITHM`20128
X#define`20UAF$K_FIXED`20644
X#define`20UAF$C_FIXED`20644
X#define`20UAF$K_LENGTH`201412
X#define`20UAF$C_LENGTH`201412
X#define`20UAF$S_UAFDEF`201412
X#define`20UAF$B_RTYPE`200
X#define`20UAF$B_VERSION`201
X#define`20UAF$W_USRDATOFF`202
X#define`20UAF$S_USERNAME`2032
X#define`20UAF$T_USERNAME`204
X#define`20UAF$T_USERNAME_TAG`2035
X#define`20UAF$L_UIC`2036
X#define`20UAF$W_MEM`2036
X#define`20UAF$W_GRP`2038
X#define`20UAF$L_SUB_ID`2040
X#define`20UAF$S_PARENT_ID`208
X#define`20UAF$Q_PARENT_ID`2044
X#define`20UAF$S_ACCOUNT`2032
X#define`20UAF$T_ACCOUNT`2052
X#define`20UAF$S_OWNER`2032
X#define`20UAF$T_OWNER`2084
X#define`20UAF$S_DEFDEV`2032
X#define`20UAF$T_DEFDEV`20116
X#define`20UAF$S_DEFDIR`2064
X#define`20UAF$T_DEFDIR`20148
X#define`20UAF$S_LGICMD`2064
X#define`20UAF$T_LGICMD`20212
X#define`20UAF$S_DEFCLI`2032
X#define`20UAF$T_DEFCLI`20276
X#define`20UAF$S_CLITABLES`2032
X#define`20UAF$T_CLITABLES`20308
X#define`20UAF$S_PWD`208
X#define`20UAF$Q_PWD`20340
X#define`20UAF$L_PWD`20340
X#define`20UAF$S_PWD2`208
X#define`20UAF$Q_PWD2`20348
X#define`20UAF$W_LOGFAILS`20356
X#define`20UAF$W_SALT`20358
X#define`20UAF$B_ENCRYPT`20360
X#define`20UAF$B_ENCRYPT2`20361
X#define`20UAF$B_PWD_LENGTH`20362
X#define`20UAF$S_EXPIRATION`208
X#define`20UAF$Q_EXPIRATION`20364
X#define`20UAF$S_PWD_LIFETIME`208
X#define`20UAF$Q_PWD_LIFETIME`20372
X#define`20UAF$S_PWD_DATE`208
X#define`20UAF$Q_PWD_DATE`20380
X#define`20UAF$S_PWD2_DATE`208
X#define`20UAF$Q_PWD2_DATE`20388
X#define`20UAF$S_LASTLOGIN_I`208
X#define`20UAF$Q_LASTLOGIN_I`20396
X#define`20UAF$S_LASTLOGIN_N`208
X#define`20UAF$Q_LASTLOGIN_N`20404
X#define`20UAF$S_PRIV`208
X#define`20UAF$Q_PRIV`20412
X#define`20UAF$S_DEF_PRIV`208
X#define`20UAF$Q_DEF_PRIV`20420
X#define`20UAF$S_MIN_CLASS`2020
X#define`20UAF$R_MIN_CLASS`20428
X#define`20UAF$S_MAX_CLASS`2020
X#define`20UAF$R_MAX_CLASS`20448
X#define`20UAF$L_FLAGS`20468
X#define`20UAF$V_DISCTLY`200
X#define`20UAF$V_DEFCLI`201
X#define`20UAF$V_LOCKPWD`202
X#define`20UAF$V_RESTRICTED`203
X#define`20UAF$V_DISACNT`204
X#define`20UAF$V_DISWELCOM`205
X#define`20UAF$V_DISMAIL`206
X#define`20UAF$V_NOMAIL`207
X#define`20UAF$V_GENPWD`208
X#define`20UAF$V_PWD_EXPIRED`209
X#define`20UAF$V_PWD2_EXPIRED`2010
X#define`20UAF$V_AUDIT`2011
X#define`20UAF$V_DISREPORT`2012
X#define`20UAF$V_DISRECONNECT`2013
X#define`20UAF$V_AUTOLOGIN`2014
X#define`20UAF$V_DISFORCE_PWD_CHANGE`2015
X#define`20UAF$V_CAPTIVE`2016
X#define`20UAF$V_DISIMAGE`2017
X#define`20UAF$V_DISPWDDIC`2018
X#define`20UAF$V_DISPWDHIS`2019
X#define`20UAF$S_NETWORK_ACCESS_P`203
X#define`20UAF$B_NETWORK_ACCESS_P`20472
X#define`20UAF$S_NETWORK_ACCESS_S`203
X#define`20UAF$B_NETWORK_ACCESS_S`20475
X#define`20UAF$S_BATCH_ACCESS_P`203
X#define`20UAF$B_BATCH_ACCESS_P`20478
X#define`20UAF$S_BATCH_ACCESS_S`203
X#define`20UAF$B_BATCH_ACCESS_S`20481
X#define`20UAF$S_LOCAL_ACCESS_P`203
X#define`20UAF$B_LOCAL_ACCESS_P`20484
X#define`20UAF$S_LOCAL_ACCESS_S`203
X#define`20UAF$B_LOCAL_ACCESS_S`20487
X#define`20UAF$S_DIALUP_ACCESS_P`203
X#define`20UAF$B_DIALUP_ACCESS_P`20490
X#define`20UAF$S_DIALUP_ACCESS_S`203
X#define`20UAF$B_DIALUP_ACCESS_S`20493
X#define`20UAF$S_REMOTE_ACCESS_P`203
X#define`20UAF$B_REMOTE_ACCESS_P`20496
X#define`20UAF$S_REMOTE_ACCESS_S`203
X#define`20UAF$B_REMOTE_ACCESS_S`20499
X#define`20UAF$B_PRIMEDAYS`20514
X#define`20UAF$V_MONDAY`200
X#define`20UAF$V_TUESDAY`201
X#define`20UAF$V_WEDNESDAY`202
X#define`20UAF$V_THURSDAY`203
X#define`20UAF$V_FRIDAY`204
X#define`20UAF$V_SATURDAY`205
X#define`20UAF$V_SUNDAY`206
X#define`20UAF$B_PRI`20516
X#define`20UAF$B_QUEPRI`20517
X#define`20UAF$W_MAXJOBS`20518
X#define`20UAF$W_MAXACCTJOBS`20520
X#define`20UAF$W_MAXDETACH`20522
X#define`20UAF$W_PRCCNT`20524
X#define`20UAF$W_BIOLM`20526
X#define`20UAF$W_DIOLM`20528
X#define`20UAF$W_TQCNT`20530
X#define`20UAF$W_ASTLM`20532
X#define`20UAF$W_ENQLM`20534
X#define`20UAF$W_FILLM`20536
X#define`20UAF$W_SHRFILLM`20538
X#define`20UAF$L_WSQUOTA`20540
X#define`20UAF$L_DFWSCNT`20544
X#define`20UAF$L_WSEXTENT`20548
X#define`20UAF$L_PGFLQUOTA`20552
X#define`20UAF$L_CPUTIM`20556
X#define`20UAF$L_BYTLM`20560
X#define`20UAF$L_PBYTLM`20564
X#define`20UAF$L_JTQUOTA`20568
X#define`20UAF$W_PROXY_LIM`20572
X#define`20UAF$W_PROXIES`20574
X#define`20UAF$W_ACCOUNT_LIM`20576
X#define`20UAF$W_ACCOUNTS`20578
X/*`20
X`20*`20`20End`20of`20VAXC_DEFS`20definitions
X`20*/
$ call unpack UAFDEF.H;1 2114076836 ""
$!
$ create 'f'
X(*`20
X`20*`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20
V`20`20`20`20`20`20UAFDEF.INC
X`20*`20
X`20*`20`20Definitions`20created`20by`20PASCAL_DEFS`20at`2031-MAY-1993`2015:18:
V58.21
X`20*)
Xconst`20UAF$C_USER_ID`20=`201;`20
Xconst`20UAF$C_VERSION1`20=`201;`20
Xconst`20UAF$C_KEYED_PART`20=`2052;`20
Xconst`20UAF$C_MAX_PWD_LENGTH`20=`2032;`20
Xconst`20UAF$K_MAX_PWD_LENGTH`20=`2032;`20
Xconst`20UAF$C_AD_II`20=`200;`20
Xconst`20UAF$C_PURDY`20=`201;`20
Xconst`20UAF$C_PURDY_V`20=`202;`20
Xconst`20UAF$C_PURDY_S`20=`203;`20
Xconst`20UAF$C_PREFERED_ALGORITHM`20=`203;`20
Xconst`20UAF$K_PREFERED_ALGORITHM`20=`203;`20
Xconst`20UAF$C_CUST_ALGORITHM`20=`20128;`20
Xconst`20UAF$K_CUST_ALGORITHM`20=`20128;`20
Xconst`20UAF$K_FIXED`20=`20644;`20
Xconst`20UAF$C_FIXED`20=`20644;`20
Xconst`20UAF$K_LENGTH`20=`201412;`20
Xconst`20UAF$C_LENGTH`20=`201412;`20
Xconst`20UAF$S_UAFDEF`20=`201412;`20
Xconst`20UAF$B_RTYPE`20=`200;`20
Xconst`20UAF$B_VERSION`20=`201;`20
Xconst`20UAF$W_USRDATOFF`20=`202;`20
Xconst`20UAF$S_USERNAME`20=`2032;`20
Xconst`20UAF$T_USERNAME`20=`204;`20
Xconst`20UAF$T_USERNAME_TAG`20=`2035;`20
Xconst`20UAF$L_UIC`20=`2036;`20
Xconst`20UAF$W_MEM`20=`2036;`20
Xconst`20UAF$W_GRP`20=`2038;`20
Xconst`20UAF$L_SUB_ID`20=`2040;`20
Xconst`20UAF$S_PARENT_ID`20=`208;`20
Xconst`20UAF$Q_PARENT_ID`20=`2044;`20
Xconst`20UAF$S_ACCOUNT`20=`2032;`20
Xconst`20UAF$T_ACCOUNT`20=`2052;`20
Xconst`20UAF$S_OWNER`20=`2032;`20
Xconst`20UAF$T_OWNER`20=`2084;`20
Xconst`20UAF$S_DEFDEV`20=`2032;`20
Xconst`20UAF$T_DEFDEV`20=`20116;`20
Xconst`20UAF$S_DEFDIR`20=`2064;`20
Xconst`20UAF$T_DEFDIR`20=`20148;`20
Xconst`20UAF$S_LGICMD`20=`2064;`20
Xconst`20UAF$T_LGICMD`20=`20212;`20
Xconst`20UAF$S_DEFCLI`20=`2032;`20
Xconst`20UAF$T_DEFCLI`20=`20276;`20
Xconst`20UAF$S_CLITABLES`20=`2032;`20
Xconst`20UAF$T_CLITABLES`20=`20308;`20
Xconst`20UAF$S_PWD`20=`208;`20
Xconst`20UAF$Q_PWD`20=`20340;`20
Xconst`20UAF$L_PWD`20=`20340;`20
Xconst`20UAF$S_PWD2`20=`208;`20
Xconst`20UAF$Q_PWD2`20=`20348;`20
Xconst`20UAF$W_LOGFAILS`20=`20356;`20
Xconst`20UAF$W_SALT`20=`20358;`20
Xconst`20UAF$B_ENCRYPT`20=`20360;`20
Xconst`20UAF$B_ENCRYPT2`20=`20361;`20
Xconst`20UAF$B_PWD_LENGTH`20=`20362;`20
Xconst`20UAF$S_EXPIRATION`20=`208;`20
Xconst`20UAF$Q_EXPIRATION`20=`20364;`20
Xconst`20UAF$S_PWD_LIFETIME`20=`208;`20
Xconst`20UAF$Q_PWD_LIFETIME`20=`20372;`20
Xconst`20UAF$S_PWD_DATE`20=`208;`20
Xconst`20UAF$Q_PWD_DATE`20=`20380;`20
Xconst`20UAF$S_PWD2_DATE`20=`208;`20
Xconst`20UAF$Q_PWD2_DATE`20=`20388;`20
Xconst`20UAF$S_LASTLOGIN_I`20=`208;`20
Xconst`20UAF$Q_LASTLOGIN_I`20=`20396;`20
Xconst`20UAF$S_LASTLOGIN_N`20=`208;`20
Xconst`20UAF$Q_LASTLOGIN_N`20=`20404;`20
Xconst`20UAF$S_PRIV`20=`208;`20
Xconst`20UAF$Q_PRIV`20=`20412;`20
Xconst`20UAF$S_DEF_PRIV`20=`208;`20
Xconst`20UAF$Q_DEF_PRIV`20=`20420;`20
Xconst`20UAF$S_MIN_CLASS`20=`2020;`20
Xconst`20UAF$R_MIN_CLASS`20=`20428;`20
Xconst`20UAF$S_MAX_CLASS`20=`2020;`20
Xconst`20UAF$R_MAX_CLASS`20=`20448;`20
Xconst`20UAF$L_FLAGS`20=`20468;`20
Xconst`20UAF$V_DISCTLY`20=`200;`20
Xconst`20UAF$V_DEFCLI`20=`201;`20
Xconst`20UAF$V_LOCKPWD`20=`202;`20
Xconst`20UAF$V_RESTRICTED`20=`203;`20
Xconst`20UAF$V_DISACNT`20=`204;`20
Xconst`20UAF$V_DISWELCOM`20=`205;`20
Xconst`20UAF$V_DISMAIL`20=`206;`20
Xconst`20UAF$V_NOMAIL`20=`207;`20
Xconst`20UAF$V_GENPWD`20=`208;`20
Xconst`20UAF$V_PWD_EXPIRED`20=`209;`20
Xconst`20UAF$V_PWD2_EXPIRED`20=`2010;`20
Xconst`20UAF$V_AUDIT`20=`2011;`20
Xconst`20UAF$V_DISREPORT`20=`2012;`20
Xconst`20UAF$V_DISRECONNECT`20=`2013;`20
Xconst`20UAF$V_AUTOLOGIN`20=`2014;`20
Xconst`20UAF$V_DISFORCE_PWD_CHANGE`20=`2015;`20
Xconst`20UAF$V_CAPTIVE`20=`2016;`20
Xconst`20UAF$V_DISIMAGE`20=`2017;`20
Xconst`20UAF$V_DISPWDDIC`20=`2018;`20
Xconst`20UAF$V_DISPWDHIS`20=`2019;`20
Xconst`20UAF$S_NETWORK_ACCESS_P`20=`203;`20
Xconst`20UAF$B_NETWORK_ACCESS_P`20=`20472;`20
Xconst`20UAF$S_NETWORK_ACCESS_S`20=`203;`20
Xconst`20UAF$B_NETWORK_ACCESS_S`20=`20475;`20
Xconst`20UAF$S_BATCH_ACCESS_P`20=`203;`20
Xconst`20UAF$B_BATCH_ACCESS_P`20=`20478;`20
Xconst`20UAF$S_BATCH_ACCESS_S`20=`203;`20
Xconst`20UAF$B_BATCH_ACCESS_S`20=`20481;`20
Xconst`20UAF$S_LOCAL_ACCESS_P`20=`203;`20
Xconst`20UAF$B_LOCAL_ACCESS_P`20=`20484;`20
Xconst`20UAF$S_LOCAL_ACCESS_S`20=`203;`20
Xconst`20UAF$B_LOCAL_ACCESS_S`20=`20487;`20
Xconst`20UAF$S_DIALUP_ACCESS_P`20=`203;`20
Xconst`20UAF$B_DIALUP_ACCESS_P`20=`20490;`20
Xconst`20UAF$S_DIALUP_ACCESS_S`20=`203;`20
Xconst`20UAF$B_DIALUP_ACCESS_S`20=`20493;`20
Xconst`20UAF$S_REMOTE_ACCESS_P`20=`203;`20
Xconst`20UAF$B_REMOTE_ACCESS_P`20=`20496;`20
Xconst`20UAF$S_REMOTE_ACCESS_S`20=`203;`20
Xconst`20UAF$B_REMOTE_ACCESS_S`20=`20499;`20
Xconst`20UAF$B_PRIMEDAYS`20=`20514;`20
Xconst`20UAF$V_MONDAY`20=`200;`20
Xconst`20UAF$V_TUESDAY`20=`201;`20
Xconst`20UAF$V_WEDNESDAY`20=`202;`20
Xconst`20UAF$V_THURSDAY`20=`203;`20
Xconst`20UAF$V_FRIDAY`20=`204;`20
+-+-+-+-+-+-+-+-  END  OF PART 3 +-+-+-+-+-+-+-+-