Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 0
d6:H @u\
COPYRIGHT (C) 1984 DIGITAL EQUIPMENT CORPORATION

/<	 (EPROCESSING EXPECTING HDEA N	(D"HIHIHJHKHKHLHMHM
HN	"D"HNHOHP
HP
HQ
HQ
HRHR	(D"HOHSHTHUHVHWHXHYHY	"D"
HZHY
HW
HZ
H[
H[
H\
H\
	(D"H]
H]
H^
 -10  -11  -12  -13  -14  -15  -16  -17  -18  -19  -20 	  * -21  -22  -23  -24  -25  -28 H0-a&PH0/
a8H00T H02	 A3
TH03VH05T0H06
TH08
bH09a0	( A;H0;`,H0<`H0>aDH0?`$H0A ^,O@	 " DO@O@, @C <_,+O,4@C  @ <a,4@C  @ <c	*Q
TL,F+O,G4@d  @I,  @@  @@@@C@@@@ <f,,	 
"TU,R`R`@@@@O@D+[,6 D+[@@D+h@@6@+=,[	 EQ]6B0@

+k6@+[ ]0@+oR`6@[+q, `0b<+[ , <s	"E f, <u,f6@+y[]F"

@0b+} ,
 /"(B  

 @ 0`	**U*n+ <,+
Dp~

@
FFOaW	*T E"wir7 "G LD   @m  8 @ <,6 C+[@`C,~O@W+a	 U*Q*[0 "2@

=b
+

+






., <
T"
., <,
2L
++X., <,
	2L
	++X.,[40@
@+.,	*T"E*
 <,

 <,+X.,[4
 "
2@

=b
.,+

+

 < ,
	*U"U*
2L

++X <!,
+X[4
 "
2@

"=b
+


!
 
8 <$,
9


"	*E(U
! <%,
 [4
 "
2@

&=b
#4B)[4
"F"

 

$ @B <+,
".,[4
% "0@

	"D(
* "4B
7.,[4
( "0@

 "4B
6.,[4
+0@
@+.,=


3[4
. "0@
@	"*T"
2 "4B
7 0 @B <-,
'9


1 <(,
52L
++X.,[4
1 "
2@

=b
:	"U*U
;.,+

<+
=
? <.,
6+
7 <0,
>+X <1,gR`[4
9 "
2@

2	*U"E*
C=b
C4B4+62L
7++=[4
B "2@

9=b
G.,+

I+A
Q
e
Y
~	*U*P

L

[#[4
F "0@

 "5B
_[4
Q "	 Q"Q"
T0@

! "5B-[4
S "
2@

B=b
W7@+E+( <G,4@+
j [4
V "	 D A*
]0@

 "5B# +.,[4
\F  `@ +J.,Z @z <K,
?+A[4
`	 A*A
eF  `@ +J.,Z @
c <N,
d+A[4
e1@

$.,[4
j0@
@+., 0	*P"*
n @B <P,
i[4
k1@

#.,[4
o0@

+R.,[4
q1@

#., LD LE:E <T	(E
U

v,
Z7@+Z1B+^[4hF"

 

$ @B 4
3 @B <`,
o.,
+A <b,
|	(U
Q*
+
sZ @
h <d,
~9


Z @ <f,
9


Z @ <f,+
[0	"UT"F"

 

$ @B <h,[4
s "0@
@ "5Bi+k[4
0@

+n.,[4

#	"
*.,[40@
@+.,[4 "
2@

n=b7@+r[4F"

 

$ @B 4
m @B	*P D* <`,	9

A[41@

.,[41@

#.,[40@
@+., 4 @B <s,	(Q
![41@

.,+A.,[4!1@

!., <u, [4#0@
@+.,+) <v,%	*T
T") 4 @B <-,)[4&1@

.,+A 4) @B <x,+.,[4+0@

+R.,	(
T"2[401@

#.,[420@
@+., 4- @B <-,/[430@

+z.,[470@
`	(U (:+|., 45 @B <-,7[49 "0@
` "4BA <},+A[4= "0@

	"(U*C "4BE.,,
2L
E++X[4A "
2@

=bG+

I+
JM <,=	"U((K., <,+X <,K+X[4F "0@
@ "5B <,N[4O0@

+
	"*QT.,[4R "
2@

=bU+

W+X] <,R.,[4T1@

.,2LE+	*T*D\+X 4
{ @B <-,Y., <,+XO@VR`[4Z1@

.,Z4b  @	 D Ae  @[4c0@
 +.,[4f1@

#.,[4h1@

.,Z4i  @  @	(A
Um[4k0@
 +.,@@[4m "
2@

=bq+

r+t
.,[4p0@

+	""v.,[4t1@

".,[4v0@

+.,[4x1@

".,Z4z  @Z @[4{	 E(E ~F `@+.,2L[+6`D+   @D,+[+F[4~1@

#.,[4	""U"0@

 +!.,[41@

".,[4 "
2@

"=b+



+&.,[4
 "
	*Q*T*2@

&=b4B

[4F"

 

$ @B 4; @B <),^9

., <+,[40@

	(A
U(+-.,[4F  `@ +J.,Z4 @ <.,2L++X[4 "2@

/	*U" =b +

!+4$,;R.,[40@

+6.,[4$ "0@

 "4B<	*U(P)9

B <F,2L++X <H,*.,,#[4& "0@

 "4BI.,[4.	" E*10@

+.,[411@

".,[43F `@+.,Z4 @ <K,, <,8	*T*:2L*++X <H,9., <N,
v4@T,> @,#[44 "0@

 "4BU	"*B.,[4@0@

+.,[4C1@

".,[4EF `@+.,Z47 @7 <K,<	*
U"K2L:+,^[4F0@
@+., 4 @B <-,J <W,+X.,[4L0@
@	(U((S+., <Z,P2LK++X[4R "0@
@ "5B[ <,U[4W0@

+^	"*Q\.,[4Z "
2@

=b]+

_+`e <,Z.,[4\1@

.,2LU+	*T*D*d+X 4] @B <-,a., <,+X[4b0@
@+., 4N @B <,f	(*P"m[4i "0@

 "4Bp.,,
2Lc++X[4mF `@+.,[4r1@

	"Pu.,[4t0@

+`.,[4v1@

"., <,l[4x "0@ "6@+a2Lp	*"*~+,XZ @I <d,+Y@@[4z "2@

e=b+

	**E
l`R
+k 4e @B <-,z9

lR+k+lR+k+lR
	**T+k+lR+k[4F"

 

$ @B <+,
9

[41@

#.,[41@

.,	"U*Q,~ "M@@A,: LD LE:E A @A <J,=7@+n0B,~ 4	 @B	*   <-, ,.LE.lD+[4 "0@

 "4Br.,[4#1@

".,[4& "	*U*U((2@

s=b(9

*+w,.00 <y, +/ <z,- <(,.,~[4'	"T*Q*1 "
2@

s=b14B*[40F"

 

$ @B <{,/[4IF"

 

$ @B <+,5.,	 U*9,~Q_w#`.\A.<*"w,~ <|,L7@R6@S+ <
,|6 b+P	*U B C+

CEFH"$+C"$+G"+M,0NONAM	 JEERCNT*	CALL (
'	END
NULLCLODELENDFINGETS(INSRT	 S(MODIF(MOVEC(OPENREMOV(STORED(SETUSE(SED(TR(ETR(T(D1(	  ([D2(DO(D3(D4(D5(D6(xxh``x	" Td$+CheeIx <h,@+[p6`C5Bc	*A(l <j,
A+[x <n,i+ax <q,o+=pp	 Uupp <v,m <x,y+hA COMMAND NAME .{	(
( }+xx   @ <~,r+oh
+E`D	*
"

{









AN AREA SPECIFICATION .	+xp-	 Q"A""EOS" .+xp+p("DBNAME" .+x`)	(p4.
@
a Transaction Name or End Of Statement .+x	"A pp

@

pp





	"U
 (p
 <(,8+
(pBpBpp	(
U0
p	
 
`
@  @@  @@+
E 43  @@  @@	(99


E
@







 
`









x	*@P(A <A,+[



x <E,B+[he@"USERID"	*"T(J .I+x`
`

MpB"CURRENT"	*
*UR .Q+x8IDES2781AN "RSE 2" .Y	(U*"[+x`
+ <\,*9

A`BBp
	 T(U*c-h c
Op 
ep!B 4 @B <-,^9

(	*
"l,j+



"AREA" OR "SET" .p+xp"B	"E
tp#(p#
p$B"USING" .y+x"DBID" .{+x	"PP
}h5.AA RECORD SPECIFICATION .+xxp5.x	(U(
xB 4i @B <,l9

R"INTO" .	+x


@"ALL" OR A SET 	"E@LIST .

+xp("IDENT" .+x


A PRIVACY CLAUSE OR "EOS"	"A P( .+x"KEY" .+x"COMPILE" .+x"ALNUM" .+xx	*A 
 <,F+"STATUS" . +x
@

A CURRENCY INDICATOR .#+x

	 
E
'



hBBh
+"TO" .,+xp
g

	 P(0





"AREA" OR "ALL" OR "JOURNAL" .1+x"USAGE" .5+x"UPDATE"	*(E"8 .7+x`*
[460@

+8., <:,+)`*	*D*"A,[4<0@

+8., <@,>+)`
-x <(	* (I,D+9`
/
XMM=>X+	*U*E(R

 <Q,I+L <(,T+K`4.>=p	"UA*Z 4 @B <,V9

Z"FROM" .]+x"ERSTAT" ._+xZ4B @L <.	*c,\9

zh
b








@A SUPPRESSION CLAUSE .h	**(kO@C+xAN IDENTIFIER LIST .lO@C+xh+
 <p,c,~

	 
D"t





A USAGE-MODE CLAUSE .uO@C+xx+x*xBx *|`@ <},+Ap@	D`$ye`$ybY9S~H	

H

@H#(FwR4&B
P/o1)t/!:tSJvv
":
b2O-Jb8
I>	D"F~<HEbHf_@DK3
K3

#n
K5\
K5y
K5y
K6
	DK#=K2
Lm[CMMMg
d@P$'
V@P^`:	D"bQzc?z4xj8z5{62{S7_&U%
 _&U%
!_&Vs
(	D"_&Wd
6_&We
3_&Wp
1_&Wy
=_&Wy
?_&X
8_&62
bd?gbdM(	
bdN1bdTSbdzbdgbd
bd!bd

4Ebd+d%}D	D"bd&bd7~eE
e}	a\A}]

E}]H	D"}]DFb}[~A}\z2Cab.	Kb]m>|O,i
s	7
	D"
S?)HqIO
AS&[SQ#

2
I@M
@N
e@a
j@b
~	D"@u@v@	@#@#@(@1-@#
Q@
[	D"@$
Y>Fg
>Fi?
q"yDI	D"S'a[.(U%%J(U%%Mc(T6IOc(THH\c(Tu}c(U2IP$]gBcXx^2	"c^\$(P{t`|fOc^h T^|;%X^|;%]^{fR^|2W
!G
	D"
fytc
wSa
2rxe-d
3	7|
2ggB
2h2%+Bb+E3&	@
P+]Rd"eICT#uHFd%	.=d%
7}gT'J(FWAAPFA$9%	DA$9%A#dA$2

P<(FTDe*I/S'lAYHH2dSM	@"di~/G~di~irdi~o&j)%G9j+GKj+RLPAVPcJPcK	D"PcPPcQ2I%rLy%,rLy%;Un$rL|RU>2!dvvc?	D

IP	D &rb'

@4,14zBW)e5:B	"e5@s+UKsnJUKt2UKt[
eLO7lM@Ks%
7Y	D"
7[*81$QA`
CW+>eW*#W*W*M@	@"W*Y]W*`JW*eJW+2ael
\2
yPFi<
i<i<i<	Drvxrv!xer5er^2
Eo;v?*z>c_]0c`ez	D ca60/%R,/%S.cb/c( c@2*$jH[$y

[$^kY	D"$x/X$(.Kc5Z~Clk`?,[FWZOk~aV4Dr'fk

IUk&afk9&	D"vxIydW5<Wif _

FD@+rf,h?P6mcsGPcD#w	W77(cI{W7*vy	W7*wtW7.pvW7.FuW7.}OtW70zPd3[vW74J]uJd#

/O1

	(Mq

(Hf

#(I7

H4Z
`4ZZ

O(</g
@(aL

J}b
)*
}

	)4xg

)fAS

K

"92

O+F=O
 
pD


pH

$?d


pJ

"	,*p

K!]

D%3

.
'^

.	z
H3

.nX
q<

#JcI

	/@b:

LR:0rb

0se

Lw

1;"

1%y

1' x

1Qtw

	1V
r

KS[

1reG

 1teJ

1u<V


r$

2=N

3-+

3

	3

Kg

!4\1

!W@pnW@px<W@q)LW@q*lP
kI|W@<{Wo@%|WO3}H
V!p<~@pH
V!tb~@oXH
W}]Qw~@ohH
rf~@opH
k(8
~@oHH@

3	7|}H@

3	7|oH@

i~o&|aH
~
Xx^2lH@
V!jJ?~@XH@

i~o&|
AH
k(8
~@VH
~
Xx^2
l/H

Xx^2l$H

Xx^2
l~H
!
Xx^2
lH
V!iU~@PPH
m3u'~@P H@

i~o&|aH
V!if~@MhH@
gW~@M0H@


i~o&|UH@
^\$(|NH
k(8
~@L8H@
H@
^\$(|HH
k(8
~@KxH
of/~	(8 B(
(O 2O-2OW~d

4_S0
d

4H @

 k:5H3m&.pG"(1


	 ,>,>,>,>,>,>,>,>+,^,^,^,^,^,^,^,^	"*
,~-"	`O@ %@@*$%@@$ ', ,, ,, <.,]7@	*U" +/+4,-4@	 <7,24@	 @@! Lu @!  @
+	 * @ "7  B+78 $ %	( E"@@*",~:%0"
+: " $	,~:$0"
+< " $	,~@@	 (E**,~,~,~,~+?,~-" @,+A ( 

 * 2
,N+-"	 3@ p
 	p p   
ADG @7@+::@ 0
R

R
	 A";U
ADGR@:@ 0
@@7D+BO2B+D D 

2	(
(D4@G6@.0@E5@+H@+-"
p@!=1@@@@@!,Lu(
	*U*E*L*H2@+[+\X4H+@+[+\+NgO,~ #p"][
5@U
p @
,~/@
`.h


	 2.Op$Dk6&oH
@

!@l#@<,@0H'	(*
,'k6p-/*}#@@Ueky@+kyp2 <3	*
(5,]+h63%x <9,+)x <<,:	("P*=+)x <>,=+- @+@@+Bx <C,?+G	 
(F

x <H,D+G@`..hL*@N <M,I+[	DJx)8H&)}#P
2O-2
2OW~H2\(Ot$$(RHfQtbHf@K# 	D
K!Kr+)MG

	bd

0
d

4		bd<+bd>	bdCJbdDBRir~})B
*{|P
*|J	S6wP
+
H
+-x	P
+5[SHdCSJ3SJ7
KT-x	SVzo			xo1SH

S'a[.#\'+P$(F{nB{otT #e:%	DT#uHF%	nB
&1}9T'J(F(a@T+"pf%:/P:3
:3	@ 
:4:5
-?.; +P<(FP


_S-jZ.PAV	D"2x
TUAYrBHSrKcBrKqG\rKr[Up[}L(
L(z	 UM@RzP;/PFer5Ofjf

F3'U	
W~A{PHqt}Pdt(~W
3_.Px.|	g5WL[
WMg
WMTWMWS&E|WJM~g
gffDH@@h
H
V!qF~	PH
V!wa~	H
V!wE7~8H
V!fUe~hH
V!x9/~@H
V!xH/~H@
 @:       	 	```           	        (@	 0000000000	 "





















	 +





























	 3

























	 <

























	 D 	 M	 U	 ^	   f
4
lH0f,
@H0i
(
04H0j(
0H0l
 
P o
`@	L@
Xp

dP|pH0nL@
 <,L@
L@ <,
L@L@ <,L@ <,L@ <	*U*Q ,L@L@ <,L@L@
 <,
L@
 <,LA@,~, <"@, @ <,,~	"
@ sH

@H

AH

AH

B	(
|H

BH 

CH 

CH!

DH"	 


DH#

EH$

EH$

FH%	 @ 

FH&

GH&

H'

H'

	"
@ 
H(

H)

H*

H*

	(

H+

H,

H,

H-

H.	 
&

H.

H/

H/

H0
	 @ 
/

H1

H2

H3

H3

	"
@ 
7H4

H5

H6

H7

	(

@H7

H8

H9

H:

H;	 
H

H<

H<

H=

H>	 @ 
Q

H?

HA

HB

HC

#	"
@ 
YHD

 HE

HF

HG

	(

bHI

HI

HJ

"HJ

!HK	 
j

!HL

HL

HM

HM
	 @ 
s

"HN

#HN

$HO

HO

	"
T*
{HP
HPh
rhih	*E"Pkhmhh0123456789h	(


ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz-0123456789h	*
(
!pE`s
}ACCESS	 CLOSEDELETEENDFINDGETINSERTINVOKEMODIFYMOVEOPENREMOVESTORE	 &USEALLAREAJOURNALRECORDSETSETSRUN-UNITUSINGOWNERCURRENTFIRSTLAST	 .PRIORNEXTDUPLICATEDUPUSAGE-MODEPRIVACYKEYCOMPILERETRIEVALRETREXCLUSIVE	 7EXCLPROTECTEDPROTUPDATESUB-SCHEMASCHEMAONLYSELECTIVEMEMBERMEMBERS	 ?TRANSACTIONTRNASACTIONSSUPPRESSCURRENCYSTATUSUPDATESERSTATERROR	 H-STATUSIFDBMSFORWITHINVIAINTOTOFROMISOFIN.*-
 P+	@w8
.L

Sb2OFgagS'a[.	 P$

"eId"e\(

"ea"T#uHF	 T'J(FP->Q8XfRP-W_T?rT@H
{T@H''
T@H'x@	"T@H)/T@H*O P<(F
{

YT$$

YT=_

YTvw

YU(`PAV	@"kVa!XmVa"`rVa#hVa#snVa$(i	D EsEuP
}

	@;QecCT;-_j
r
k;
{k;''k;'xk;)/
k;*O	P_FcD%
cQcQ c]_c]bc_cv#cvG	dKdwd6
&S5Z

@Jd#

/O1

(
lk

A(Mq

(Hf

#	(I7

4ZZ

(B{

A(aL

J}G

B)*
}

)4xg

8zG

B)fAS

	K

"92

K[

C
pD


pH

$+ZWZ

C?d

+Zk~

D
pJ

"	,*p

K!]

D%3

.
'^

.	z
.4D

DFw'

EH3


q<

#	JcI

Jnx

E/@b:

/kx

LR:0rb

0se

Lw

1;"

	1yd

F1%y

1' x

1Qtw

1V
r

KS[

Ro*

1reG

 1s<W

F	1teJ

1u<V


r$

2=N

3-+

3

Kb+

G3

Kg

!
4\1

!(
(Q (T6I(THH(Tu}"e\(Va#t0
dw}H @!L
(H b@@@

@H


>H4He	"Q(,~,aZ`^ <
,_,~@@Z@@@@ <

, <
,R Rb,~ 
	(D @_  @Q` @_,~6@+ pb
+@c7+ #p  @[ 
 @[	"D
T*,~b
+@d`B@+
aB + d @[ e @[O@,~,/6 +
+
	(TT( Z @7@Z+
+
[X1B

+#0v<+),4[\0B

+ Z @7@Z	**("+
 +
% "
QB\b`+),/,}"[0B+
++
.7@Z+
1+
40v<+
<	 ED
* V V Rb,~,5[\#1B

+@@+(  b@@  @`R`@@	"*T*3@@@@!,~,}bTHf+7 <
>,R a @]"f.e 
 <
?,R+
<;
?	*U*U;+A+B+E+L+O+O+P+P+Q+Q+R+
A+5   @]  
 @a	*P*D,u+7  
  @a ]Z]0$00d==bG4bK/$d=bG,u+57@	(T*L+
D   @a,u+5,~+++++7+ p [ [4BV	*U
E*UbPL5+W=bT,
+S @a/"/B[*["B\bP+] ]3B_+
G+
K.

\	*U ] a @[`a`a`a`a>a,~ 9p ` @^ ` @^ 9p  ` @ _	"@( f2B`+
LZ^.`[1 +
Q <
X,,~ _2B]+
Z <
],  ]	"
Tn @ ] @ a @6 6@+
_Z`] <
c,_,~06<,~ <
d,	"E**w 5`x,k.6 pQB\-  nX@\yB`0B
@1B
`+
e,~@@Z:Z [dB	*A(U*+
r a @Y@@,~6B2+
}.

[., LZ <
,j4@cPZ+ <,	"@(*
O@ [ @Y,~
 p_^pxH.c.dx	"*

 <
,+,4+@@,5+ L Y @
+pYp	"T*U"
Z LZ <
,
 @
  @
Z @
5D <
,
+ L Y @3	(@*T*
!+#ppZ LZ <
,
 <
",s @

!5D# <
$,
	(*@*
*+#x6`+, <
+,R,7+(,6[0@

@@+( L
 Y @
	(*E(
2+)pZ LZ <
,
&  @
2  @5@) <
3,
)+)x	*T
*
; <
:,
9+*+
;+*xx+pZ <
@,
;+5p	"D*U*
C] <
C,+5p]\ [ @\>\ <
F,a:\+] \ @]	(D"T

L+] B`R_ B`+gxbp_
e <
O,mQ A`!"@_ <
P,
E	(E
(
T _ @` _ @`Y`_+ip

P^p]] <
Y,a+lx	(
 
]
\h

X D   @
^ <
^,+rp_]p]	 @
P(
e@X+}
~`ZZ
g
hp[
kx	 UT*
npZ <
n,
B+
x3B
g+
 BZ <
i, <
l,
' @[ZB[	*"
*
v <
m,R0R+
o <
q,R+
ppZ3B+
 <
z,
5	"U*(
 @
  @
6Z @
15D
 <
|,
p+
pZ <,+
p]*U [:[ a @[ <,a+
p	D"`$y
``$y
bY9Sq)K>ub$
Q`HQP

S
fk}[8_[DEPEe{+P$(	D$*bLCz
tbM.
TP3_3=bddmbdzbdz#bd$#	Dbd&b}[~	E?}d`a_b}u0
c?fgvS'a[.(U'4(Ts	D"(Tt

NsES(T)(TV(T6I(THH%	D"(TT=5(Tu-6(Tu}(TvW(T{>7-W!(-GH,
jKM 
jKM#	D
1'~H1'@
jLmPrfP$
fc^\$(`|f	D"^h(Sc^hG}/c
wSqdsMx
ds\wT 3
.+Bb k/xZ+]R
	D

"e\(d"ea"U"en2;T#uHF%

Zd%	.=%	i%	]Yd%
7}
(	 %
FB%
WY%
f+'Fd(*-x
d(*<w3881t`8Hlgk	`fR9P-K!P<(Fki4SM6H}SMk	aY5=`
{/PAV	"pFgx

&
uKD@KD}xcKld@KlxbR
OxH
^U'\+^VreY]c"Y]g	eROX2UY]g		P
;zc)6=j}fc)|.P=llYOaelg+lhl
#M<	@el
2Yzel
\2
/Ul)HPFrdK`er5er^21H4Z
`4ZZ

	
O(</g
@J}b
O+F=O
?.nX/kx

3&+
};!G};!K?FwE	D"@<M3Q@<R	PLw@OLwbOAjJ@PD7tADzJREp+zQG#XL	H?~BPdK+|Pdt*{W
~@H
V!o!?~@hH
@	
~@XH
m{@XH
mM\4'~@HH
mM\4'~@`H
@:O~@pH
AsP@

%	.=|
7H
V!o$7~@8H
@

w~@0H
V!o$7~@@H
aW9_~@0H
V!o$7~@H
V!tD?~@H
@	
~@`H
]uDE~@HH
@_B,g~@P(
(

f 0
dYdH @(
H0

B 

d 
 
f
 
$
(
&H
%	D"$y$y
Y9S

Hf_@

}[~

}u0

]m
S'a[.P$Xx3mDXx4YDXx^2E^\$(
P{t|f

wS


3	7	@ 

sMx

s\w+Bb 
1
%T#uHF

%	.=

%
7}T'J(F

(*-x	 

(*<wP<(FPAV

F,h 
(
(
' 
d7~jn7k

I0
d7~H @N


COPYRIGHT (C) 1984 DIGITAL EQUIPMENT CORPORATION
(	H

 (

HUNDEFP((D:HA,P @	 
 ,>,>,>,>,> ^+,^,^,^,^,^,~-")	INTEGER S	 YSCOM(44),ERCNT,ERSTAT
	CHARACTER *30 ERAREA,ERREC,ERSET,RECNAM,ARNAM
-	INTE	 GER SYSCOM(44),ERCNT,ERSTAT
	INTEGERERAREA(6),ERREC(6),ERSET(6),RECNAM(6),ARNAM(6)
}	INTEGER DBKEY,ERDATA
	EQUIVALENCE (SYSCOM(1),ARNAM),
	1 (SYSCOM(7),RECNA	 "M),
	1 (SYSCOM(13),ERSTAT),
	1 (SYSCOM(14),ERSET),
	1 (SYSCOM(20),ERREC),
	1 (SYS	 *COM(26),ERAREA),
	1 (SYSCOM(32),ERCNT),
	1 (SYSCOM(33),DBKEY),
	1 (SYSCOM(34),ERDA	"D"3TA)
HBHDHEHFHHHJHKHL	(D";HLHMHOHPHQHRHSHBHT	"D"D
HT
HU
HUHVHWHXHYHY	(D""LHZ
HGHZH[
HC
-"+-"@@   @@@	(D"QU <\,4@_,4@b6 +[  @,
y <d, <i,4@l B  8
	**Q] @ <o,4@[ 

8<q, <u, <y,6@+{+}	*( f6 W+j (`h B,
y <,Z,6@8+ <,4@
  @ <	"*U(n, <,O@7`++ <,o,
@@,
G <,[4@y BcL8	*U*T
w+t,
N <,
n+t7 f7@+{,j < ,u4@
 BcL8+{ <",
n	*U*U+{ <#,r <%,
>@+.7 y+2 <4,

 <5,n& <7,O	*Q*
"
+  <7,
@+ <8,|4@ @
 BcL8
+
 :1@+= <@	*UU*
,
n <A,
6@
+D"F,>,>8,>8 9 @
 : @ <G,
4@
$ B	"A"U(
cL8
+
"F  8Q A` <J,"K,
_, <L,
4@
 BcL8	(U*E*
!+
  8
 @ <O,
+
 8 @
 9 @,^4N
-,
V5@
- X7@p+
,	*UU
*@@ <P,
{+
- <R,
{,^,^1B+U <Y,
4@
E BcL8
+
/ <\	*T"T*
2,
n <],
/4@
/ <`,4@bcL
+
3 <e,
34@
3Z <h,
74@
7 B	"D*E(
;7@8
+
9 <j,4@l B <n,
Z5`p4 
91T+r <u,
54@w BcL8
	*U**
C+z,+
96 
+
,{+
,V4@|7n+
N7 
E6@+
L <,iO@	*P
U"
L,
V X <T,
{,~,>7@8+
U7 
I6@+
S <
,
KO@ 8,
V X	*"@
T <T,
{,^,~ <,
<4@ B <,
Z,~ 'pQ&A`  'pQ&A`	"*"
]  2+
_ 2O@6@+	 1h6@+,,
p,~@@1R
^	***
e+ <(, <, 

Z@Z @,~ J @ K @,~	 Q
n 'pQ&A`  2 <, <, @ <,1R
e,~5@Z8 @	*@(Q

v,
y   @ R,~ <,
f,~7@+ !p @ !p @ 4B'	*U(E
 <4,
#5p5+; <%,
 <?,
,~6 
P,~ <A,
R,~ #pQ"A@ 
p	 D  	p
@@
@@4F1FO@.&F3$9	,~@Ap !pQ A@ ( #p	 *Z 1F+/&F>`=d,~@@6 :0B6@5pD 8	(T "E0b4@G+

H O1@ "1@ "1@ "1@ "6@
)0@7+2	*A(!,: <P,
{,~0d+R <T,
{,~ ",: <P,
{,~0d+W <Y	(P**),
{,~ <Z,
{,~ ",: <P,
{,~ 5b2 ",: <P,
{,~	(U T(2@@ 8 D <#,
z <\,
{,~ ",: <P,
{,~ <T,
{,~ 8	 
*Q:&6@
.$1d,~6 +] D <#,4Z.  @,~*	INTEGER D	 CBNULL
SYSCOM
	CALL SBIND(	CALL BIND(	CALL EBIND(0,DBNULL)
*01   	 K*	02 '	INTEGER 	CHARACTER 	REAL 	REAL*8 	COMPLEX 	COMMON	INCLUDE '	 T(2(630/.SUB'
.SUB/NOLIST'
0,,0,).
`	*@""\XXp <^,+
x <a,`+
H5:	"TUe:KKxv`gXhhx <l,b	( m+

hnphrP		*T(U
vt@FFpAxG <z,d+fxH <},{	(*P*~+fSYSCOMH::KKx <,m+
h	"A(@
nx <	,+
7B+0b " B 8 @@@ <	*DQ*,^4@	+kxxh	4Px <,+rx	*QT <,+rx`gXhx8`g	*@  Xhx8x3DBNULLh	$P`	*E(*)''`	

Nx <(,? <+, <-,
+
	"T 
1x7 <2,~+
xPxwx6`gX7	(
*T:h$8
00001p6;6 +
/ <<,+
/x8h8	(U "BOp6 <C,?+
<8
`gXFhp	 "
K08
`gXKhxh<EXh;DX	"U*A*Sh;IX,
V5@
/ X <T,
{+
/`gXXhx	  P*\8`gX\hp_hx <b,0+
	"T
Pd`gXdh`gXghx8
x <k,c	(*U m+
p88p <o,l+
9 X <T,
{+
9pt	(T
uhx <v,q+
p <y,w+
9x <|,z+
	 *T~00000p6~P6~K:J:xx <	*
*T,}+
p88  @  @+
c,
d,O@,~p	*T(Q,
p5@
k <,+
kpNpxh	 UUp <,+
`'O@,~p

	"*E* x
p`''hO@,>  	*U*E*( @ <,/,^ < ,) K @ <!,+7@+ P <#,. Z @	*T*U*1 G @ <%,-+h

 P <#,/ Z @  Y7@	*T*E(9 G @+
R` 7@+ Z @+
`P	PpK	( *B$8xB <C,E+8
x <F,+
#(%	*U*
J*8,.608p;p;C<Q	(*A"S,
{,~p;Ip>I <V,
{,~p=Ip?I"A [p<6@$.D>,~	D P$yP$y#M/i#M/iRF]&RGgPr#7%
3#7&
7	 #7&
9P
I
T3mRL
bDH6cbHfX@.Hg7Hg8w<RK0J!
	D"bK
K
	LD,}
ybLCz6MX@M+?M^e	M,-PU8d@P	DUbP^gu-R\}=	]?u#3bu-2bu;,bu<.bu=6	D"^t[:8^u
d7~ReB1[OeCGhWMh9|!
	,"G7R|g	DP	@Wr	?M-BbfP	Vjs
H
3	7
2Q	+]R
T"QqM
+^a8+^a9(Y#M)8Md<*z
rT@h?c~*P<(FP
gTQ
`g	Dj>5
SQ^l$
NlK
UTY9*#YE3H]&Idi~/G
Fdi~iD
*	"PAVTp-gPMwr
dr:^+U\R%
L\R5
Ntyg
Gdvvc?3

y1G
	@O
{
2
24ZcA
,4ZcA
-	D"4ZcG
$4ZiG
E4=|!
77G=).>4zr
4|[
Ve5

&
P7RH	P8-U9NU	U9N:CP83#U9PUU9P4CP8&c
U9L:U9Lg	U9LUP8'r
U9L@C
U9LS#;,!
/;R8Np[}eLO7
7YK	D"MP|
ZP!A-CP60EA/DPxPwURb
UR
f-FURO+UH
kJVkg
Yz?
dZ

-

Z%	4Gfwg
s/YKyVWA	"V"=		V$7	VC	k{9
k~{fjf

IQkKj[f _

Fdf!ic?2Vx?h-
	
PcD#wW7&3xPd3[vPJq`Jy*`Jy3`4Z
pg(</g
pg+F=O
t	`K1T`K>`KPk`KPo`KPp`KW	`KW`KW`KW`KijW.}P
i%~PHw|W0UI{PI@*|WHp{H
V!t0G~@HhH
m{ @H
V!i~@CH
mM\4'~@B`H
V!liW~@A`H
V!t0G~@@XH
V!pi'~@?@H
V!fIG~@?H
V!t0G~@>hH
@//~@>@H
V!i~@=xH
V!t0G~@=8H
@=/~@<pH
@6G~@<@H
V!t0G~@< H
@:

3	7|H@

3	7|V!g/~@1H
`S1w~@0pH
V!g/~@0HH
AAVw~@0H
AAVw~@.H
AAVw~@-xH
V!t]~@-@H
@:r?~@-H
laYvw~@,PH
V!pi'~@,H
V!h/~@+hH
laYvw~@+pH
laYvw~@+@H
m{ ~@(
( 8
IQzc?sbHi~i~/Gi~ivvc?k3!ic?0
sbHH @$
COPYRIGHT (C) 1984 DIGITAL EQUIPMENT CORPORATION
	(@*@HH1
 	"*,~H2H2H3
H3
 "O@   @+ "@@  
	*** @+ "O@   @+ "	@@  
 @,>  "@@@@,.	(U U* <,4  6@+4,'+,> )p,'+  <8, <9, <:,	(U R`,~ <<, <=,R`,~,> )p #p,!+ ,^,~  @	"E*@"  @@@   
 @ <?,4 ,'+$Z 
& 6@.   X@+@ 	 *7+   @ 
S  @ 
,~Q_w#`.\.<*"w,~)
	1	 U" 3
	
 ,! "
,! R`+xpp A
U;ppP
11	"
P	D 8y18ze$
8
I81'R87&
P$(HExbHY\%M>H
	D 
Qzc?sbH}

}
8HS'a[.PrfP$	 +]R
T#uHF%	t%
AT'J(F(m!P<(FSM6H~\/	D"li~

i~

i~/G

i~i

i~o&PAVP_=Tu^6N	

vvc?01e5@	ex
=Ul)HUl)\PFj[fjf

k3	k9&!ic?

@78e75PJqWD,M~H
k(8
_~@XH
k(8
_~@@H
k(8
_~@(H
k(8
_~@(
(B 
dNr50
dNH @'T
COPYRIGHT (C) 1984 DIGITAL EQUIPMENT CORPORATION

(H0"H
(	 D",~
HLHLQX
_eou	"D"}



	



'


-
6
=
E
L
R
Y
`
f
n	"D 
v
~
&9#"`
+
&&+015:?C	(D(P"*D  @  @	  @
,F6B+'9#
'.&9# 
 @ <+	"" 3,
&
.&9# 2"+-Z @Z @	 </,+A,>
,>
,>	 U;  ,,^,^
,^
.&
9# ! @ <3,9
&.&9#:9#	"E(U(D:9#
&,~ <6,3
&
 <8, @	 <;,A
&L
&
&,~		L;%DMLXIS.EXTRAINPUT|SPECSARE}IGNORED.|M%DMLXOS.OEXTRAD		UOUTPUTISPECSEAREEIGNORED.|S?DMLFSU.MSYMBOLLAFTER "FIND"EISAUNR		
]ECOGNIZABLE.|Z?DMLELW. ENCOUNTEREDM[]WHILE	"f|a~d%DMLASI.EALLMEANINGLESSSWITCHESAREDIGNORED		@n.|j?DMLWCD.NWILDCARDINGINOUTPUT?DIRECTORY.|q		w?DMLPAU.PHRASEbAFTER"FINDDIDENTIFIER"OUNRECOGNIZABLE.|w		"[DMLSUM.	ERRORSDANDSHWARNINGS.]
}

~	(@

~
}%DMLNIS.SNOIINVOKEPSEENOBEFORENFIRSTEDMLSTATEMENT		@
.|
?DMLOIA.FONLYRONECINVOKECALLOWEDLPEREPROGRAM-UNIT|	(

?DMLSTL.-STATEMENTETOOILONGOORI"."CMISSING.|
		
!%DMLLSN. STATEMENTENUMBERNGREATERTHAN99999--TRUNCATED.|
!%DMLL		@
*TL.ELINETOOSLONG.|
)~
+%DMLLSE. LINE SEQUENCE NU	 D
2MBER  NOT FOLLOWED BY "TAB"|
0~
4

?DMLDUP. DATA BASE N	 A!AME  MULTIPLY DEFINED|}"+ B
  @  @		**A*),F+/`
+

   @

7+6P.

		(UT(2
`
<


`

+5`d"T:`
<
	Dv#6Pw8!e#
P{&1{&5{':{'?	D"{(C{(DDFL2&bDH6IbLCzFd@
d4L
d5-
d9"	D"
d?g
dA"
dH9 
dM(
dN
dN1
dTS
ddm
dfM	D"
dz
dz
dz#
dg
d


dJ
d!
d!
d

0	D"
d+	
d#
d$#
d%m
d&
d&

d<+
d>	
dCJ	"
dDB{pw]ab]mC^?&c?HS'a[.P$+d%
7}'%
`wFT'J(Fd(*<w.	"P-o	P<(F>2C?Td#C>=
%C>KGEC>vJdYT=_]/
	]&wPAVu^v
&2=011
PV	DP
;zex
=ex

,
Ukn-elg5el
2Y6el
\2-Ul)\PMF@Ur<H
b\'~@'H
eMG[w~@' H@

%
7}|(H@

%	.=|,(
(=