Google
 

Trailing-Edge - PDP-10 Archives - DBMS-20_V6_BIN_19811001 - sources/fmlany.rel
There are 7 other files named fmlany.rel in the archive. Click here to see a list.
 0d6:H @rd/y	 (EPROCESSING EXPECTING HDEA N	(D"H7H8H8H9H:H:H;H<H<	"D"H=H>H>H?H?H@H@HA	(D"H>HBHCHDHDHEHFHGHH	"D"HHHHHFHIHIHJHJHK	(D"HKHLHL -10  -11  -12  -13  -14  -15  -16  -17  -18  -19  -20 	  * -21  -22  -23  -24  -25  -28 H0-a&PH0/a8H00T H02	 A3TH03VH05T0H06TH08bH09a0	( A;H0;`,H0<`H0>aDH0?`$H0A M,O@	 QDO@, @C <N,+O,4@C  @ <P,4@C  @ <R,F	*D*P L+O,G4@R  @H,  @@  @@@@C@@@@ <T,,,	 
P UR`R`@@@@O@D+Z,6 D+Z@@D+W@@6@+,,[6B	""D"]0@
+Z6@+Z ]0@+]R`6@[+`, _0b<+Z , <b,	*f <c,e6@+g[\F"
@0b+k , /"(B  

 @ 0`+m	(U*U*n <p,+Dpr~:@@HZ~~EW	*Q
w`7r "G LD   @l  8 @ <s,6 C+Z@`C,~O@V+[[0	"U*E* "2@
u=b+
+z
., <|,o2Lc+~+X.,	*T*Q <,2L+~+X., <,2L	+~+X.,[40@
@+., <	*QU(, <,+X.,[40@
@+., <,2L
+~+X[4 "2@
		*U*Q*=b+
6 <,9
 <
,[4 "2@
b4B[4F"
	*QD! 
$ @B <,.,[4  "0@
 "4B4.,[4$ "0@
 "4B3.,	(D"@"*[4'0@
+.,[4*0@
@+.,=
1[4, "0@
@ "4B4 0 @B <	*U"*2,#9
. <,22L+~+X.,[4.0@
@+., <,4+4 <,f	"*Q";R`[46 "2@
=b<4B+2L4+~+,[4; "2@
 =bA.,+
C+)	*U*U(CJ^Sw~{y~~U[4@ "0@
	"@(Q(L "5BY[4J "0@
! "5B'[4M "2@
*=bP7@+-+" </,4@	(@" T+c [4O "0@
 "5B +.,[4UF  `@ +1.,Z @y	*P U ] <3,9+;[4YF  `@ +1.,Z @\ <5,]+;[4^1@
$.,[4c	"(e0@
@+., 0 @B <8,b[4e1@
#.,[4i0@
+:.,[4j1@
#.,	*T"E*n LD LE:E <<,S7@+B1B+E[4hF"
 
$ @B 41 @B <G,h	"T*E(v.,+; <J,v+lZ @a <L,x9
Z @y <N,z9
Z @|	*A*@* <N,}+[0F"
 
$ @B <O,[4l "0@
@ "5BP+S[40@
	(AE
+U.,[41@
#.,[40@
@+.,[4
 "2@
V=bY[4
F"
	*U(" 
$ @B 4g @B <G,9
;[41@
.,[41@
#.,[40@
@+.,	*TA( 4 @B <[,[41@
.,+;.,[41@
!., <\,[40@
@+	"U**!.,+# <^, 4 @B <,"[41@
.,+; 4# @B <_,$.,	(DE*)[4%0@
+:.,[4)1@
#.,[4+0@
@+., 4' @B <,([4-0@
	(D*P
2+a.,[410@
`+c., 4/ @B <,0[43 "0@
` "4B; <e,	*
T*:+;[47 "0@
 "4B>.,,p2L>+~+X[4; "2@
f=bA+
B+j	*Q*TCDG <k,6., <l,+X <n,D+X[4@ "0@
@ "5Bo <n	*
U(K,G[4H0@
+s.,[4L "2@
s=bO+
P+wRV <x,K.,[4N	 U*"T1@
.,2L>+~+X 4t @B <,R., <,+XO@VR`[4S1@
	"" \.,Z4[  @  @[4]0@
 +z.,[4_1@
#.,[4a1@
.,Z4c	  E*e  @  @[4d0@
 +z.,@@[4g "2@
{=bj+
l+m{	"m.,[4i0@
+.,[4n1@
".,[4p0@
+.,[4q1@
".,Z4s 	 "T"v @  @[4uF `@+.,2LU+~6`D+   @D,+Z+@	(*~[4w1@
#.,[4~0@
 +
.,[41@
".,[4 "2@

=b+
+	(E(U*.,[4 "2@
=b	4B[4F"
 
$ @B 45 @B <,X9
.,	*D E* <,[4
0@
+.,[4F  `@ +1.,Z4 @~ <,2Lz+~	**Q+X[4 "2@
=b+
+%*@.,[40@
+.,[4	 *T*  "0@
 "4B$9
* <.,2L+~+X <1,#.,, <2,&2L$	*Q()+~+X <1,(., <5,p4@;,> @,[4  "0@
 "4B<.,	(D*1[4.0@
+.,[411@
".,[43F `@+.,Z4 @ <>,*2L(	(D*U:+~,^[450@
@+., 4
 @B <,9 <A,+X.,[4;0@
@+	"U "B., <C,>2L9+~+X[4A "0@
@ "5BD <n,C[4E0@
+H.,	(U*D
K[4I "2@
s=bL+
M+wOS <x,H.,[4K1@
.,2LD+~+X	*Q**S 4V @B <,O., <,+X[4P0@
@+., 4= @B <o,U[4W	 *A\ "0@
 "4B_.,,p2LR+~+X[4[F `@+z.,[4`1@
.,	(D
@
d[4c0@
+J.,[4d1@
"., <n,[[4f "0@ "6@+K2L_+~	(QU*m,XZ @8 <N,+X@@[4i "2@
O=bq+
s{~}z	(*(uvl`R+T 4S @B <,h9
plR+T+lR+T+lR+T	(Q*P ~+lR+T[4pF"
 
$ @B <,y9
p[41@
#.,[41@
.,,~	*U*D
 "M@@A,( LD LE:E A @A <J,,7@+X0B,~ 4w @B <	(UD, ,.LE.lD+
[4 "0@
 "4B[.,[41@
".,[4 "2@
\	*U*U"=b9
+a <c,+ <d, <,,~[4 "	*Q*E( 2@
\=b 4B[4F"
 
$ @B <e,[47F"
 
$ @B <,$.,,~	 
U*(Q_w#`.\A.<*"w,~ <f,L7@R6@R+i <k,{6 a+O C	*T1+
1r356"$+C"$+G"+M,0NONAME	 9ERCNT*	CALL (
'	END
NULLCLODELENDFINGETS(INSRT(	 BMODIF(MOVEC(OPENREMOV(STORED(SETUSE(SED(TR(ETR(T(D1(D2(	  JDO(D3(D4(D5(D6(xxhNOx$	(P
S+ChSSIx <V,/+Zp6`C5Bc <Y	* T[,:+Zx <],W+ax <_,^+,pp	 
Tdpp <e,[ <f,h+hA COMMAND NAME .j+x	  Qlx   @ <m,`+nhn+E`Dq	(
uz




AN AREA SPECIFICATION .x+xp-"EOS"	"E

} .}+xp+p("DBNAME" .+x`)	 Q(p4.p
@
pp

	 U"A"
p <,'+$pB"SET" .+xpB	"U(pp	
 
`
@  @@  @@+> 4!  @@	"@  @@9
>
@



 
`




	 T(x <(,o+Z

x <,,)+ZhS@	 Q
"0"USERID" .0+x`t`4pB	 P
U(9"CURRENT" .9+x8IDE;2781AN "RSE 2"	"E*Q*A .@+w`+ <C,9
;`BBp	*"E*J-h K7p Mp!B 4
R9
 <,R+"RECORD" .T+x

"AREA" OR "SET" .W+xp	*(P(["Bp#(p#p$B"USING" .`+x"DBID"	*(c .b+xh5.A
@A RECORD SPECIFICATION .g+wx	"D*T
lp5.xxB 4P @B <o,S9
L"INTO" .r+x
	 "A t
@"ALL" OR A SET LIST .u+xp("IDENT" .y+x
A PRI	  P(}VACY CLAUSE OR "EOS" .|+x"KEY" .+x"COMPILE" .+x"ALNUM"	* P .+xx <,-+|"STATUS" .	+x
@
A CURRENCY INDICATOR	"@
E" .
+w


hBBh+"TO" .+x	"@(pN



"AREA" OR "ALL" OR "JOURNAL" .+x"USAGE"	*
T" .+x"UPDATE" . +x`*[40@
+!., <",q	(U"
'+#`*,[4$0@
+!., <(,'+#`	(E(*0-x`(X44=>X	*U*Q*8+ <8,-+; <,;+9``	*Q
T
A4.>=p 4o @B <o,=9
I"FROM" .G+x"ERST	"U(TIAT" .I+xZ4* @? <,F9
ihK




@	 ((RA SUPPRESSION CLAUSE .RO@C+wAN IDENTIFIER LIST .VO@C+wh+	*P*Z <Z,L,~



A USAGE-MODE CLAUSE ._O@C+wx	(DA(c+x*xBx`@ <g,+/p(k@	D`$yN`$yubY9S~H	
H

@H#(FwR4&BP/o1)t/!(tSJvv":b2O-Ib8
I,	D"F~<HEK3
K3
K5\K6K#,K2Lm[C	D"MMMg
d@V@P^`:RPa
:bQzc?i4xj8	D"z5{62{S7_&U%_&U%_&Vs$_&Wd3_&We1_&Wp.	@_&X6_&62bd?gbdM(bdN1bdTSbdzbdgbd
	@ bd!bd
4Dbd+d%}Dbd&bd7~}eE
e}	a\/}]
3}]6}]D5b}[~/}\z21ab.	K	D"b]m-|O,il	7
S?#HqIO
AS&[SQ#
2C	D"@MY@N^@ac@bw@u~@v@	@@	D"@"@1'@#J@U@$S>Fgy>Fi{?
q"yDIS'a[.(U%%D(U%%Gc(T6IOc(THH\	@c(Tu}b(U2BP$
SXwuG	DcXx3mYcXx4YDXx]gBcXx^2c^\$(P{t`|fNc^h S^|;%R	D"^|;%V^{fL^|2P_!G{_fymc_wSZ_
2lxe-d
3	7v	@ 
2ggB
2h2%+Bb+E3&P+]Rd"eICT#uHFd%	.=d%
7}g	"T'J(FT8G:T=?j:WAAP@A$9%A$9%A#dA$2	"P<(FTDe*I/S'lAYHH2dSMdi~/Gmdi~i\di~o&	@"j+G9j+R;PAVPcJPcKPcPPcQ2I%rLy%%	D"rLy%*UnrL|@U>2dvvc?o
IO&rb'
@4,014zBW)e5:Be5@snJ	"UKt2UKt[eLO7eM@Ks%7Y7[*81$QA`
CW+>epW*#zW*~W*M@W*Y]W*`JvW*eJW+2{	DW+:pW+[}W+2seX\wHZPVeYIT^DB})Ef
i<i<i<rvwrv!xer5ier^2	D"Eo;v?*z>c_]c`eica6/%R/%Scb	D"c( c@2$jHZ$y
Z$^kX$x/X$(.Kc5Z~Clk	D"`WZHk~Z	D V4D~r'~fk
ITk&[fk9&vxIydE5<WWf _
FD	@@+`f,h-P6mcsGPcD#wW77&3xW7(cI{W7*vyW7*wtW7.pvW7.FuW7.}Ot	W70zPd3[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
.'^
	.	zH3
.nXq<
#JcI
/@b:
LR:0rb
0se
	Lw
1;"
1%y
1' x
1Qtw
1Vr
KS[
1reG
 1teJ
	1u<V
r$
2=N
3-+
3
3
Kg
!4\1
!PkI|W@<{Wo%|WO3}HV!p<~@m0HV!tb~@lpHW}]Qw~@mHrf~@mHk(8~@l`H@
3	7|wH@
3	7|iH@
i~o&|[H~Xx^2lkH@V!jJ?~@UH@
i~o&|;Hk(8~@SH~Xx^2lHXx^2lHXx^2l	H!Xx^2lHV!iU~@N8Hm3u'~@NH@
i~o&|aHV!if~@KPH@gW~@KH@
i~o&|UH@^\$(|NHk(8~@JH@H@^\$(|HHk(8~@I`Hof/~	(8 B((lO 2O-2OW~d
4_S0d
4H @l @k:5H3m&.p	 ,>,>,>,>,>,>,>,>+,^,^,^,^,^,^,^,^	"*
,~-"	`O@ #@@*$#@@" %, *, *, <,,[7@	*U" +-+2,,4@	 <5,14@	 @@! Lu @!  @
+	 ( @+76 $ #@@*",~	(P"@":#0"+8 " $	,~:"0"+: " $	,~@@,~,~,~	""U *,~+=,~-" >,+? ( 
 * 2,M+-"@ p 	p	"A3 p 	  ADG @
7@+9:@ 0R
RUAD	"Q(;GR@
 
 2,O4@E6@.0	*ET
D @C5@+F@+-" p @
!@=1 @
@@u ( * 2,O	*U"U L+ HZJ@@+Q HSJ   @ LhIhI+@+Y 	bab 	(
@U+WX4H+@+Y+ZX4H+@+Y+Z+LgO,~ #p[5@Up ] @,~/@
@,H  	 2.Op"h$k6$w0@t@T"@$*@H%	(*
* %k6p+p -* !@@U ky @+kyp0 <1	*(3,[+h41#x <7,+(x <:,8	("P*;+(x <<,;++ @+@@
+Ax<A,=+E	(Dx <F,B+E@`..hJ*@L <K,G+Z	DJx(8H%)}"P
2O-1
2OW~F2\(Ot"$(K#KKr)	)MG
	bd
0
d
4	bd<+bd>		 bdCJbdDBRir~})B	Dz`P
*{|P
*|JS6wP
+	H
+-x	P
+5[SHdCSJ3SJ7KT-x	SVzo		xo1SH
S'a[.#\'+P$nB	"{otT #e:#T#uHF%	nB	"&1}9T'J(F(a@T+"pf#:/P:3:3:4:5	@-?.; *P<(FP
_S,jZ.PAV2x
TUAW	D"rBHSrKcArKqGZrKrYUp[}L(L(zUM@RzP;/	@PFer5Mfjf
F3'UW~A{PHqt}	Pdt(~W
3_-Px.|g5WL[WMgWMTWMWS&E|WJM~g
gffCH@@hHV!qF~	0HV!wa~`HV!wE7~HV!fU"~HHV!x9/~HV!xH/~xH@@:       	 	```           	        (@	 0000000000	 "










	 +














	 3












	 <












	 D 	 M	 U	 ^	   f4lH0f,@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
$HOHO	"T*{HPHPhrhih	*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
rk;{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[
CpD
pH
$+ZWZ
C?d
+Zk~
DpJ
"	,*p
K!]
D%3
.'^
.	z.4D
DFw'
EH3
q<
#	JcI
Jnx
E/@b:
/kxLR:0rb
0se
Lw
1;"
	1yd
F1%y
1' x
1Qtw
1Vr
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#t0dw}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`_+ipP^p]] <Y,a+lx	(
 ]\hX D   @^ <^,+rp_]p]	 @
P(e@X+}~`ZZghp[kx	 UT*npZ <n,B+x3Bg+ 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``$ybY9Sq)K>ub$Q`HQP
Sfk}[8_[DEPEe{+P$(	D$*bLCztbM.TP3_3=bddmbdzbdz#bd$#	Dbd&b}[~	E?}d`a_b}u0c?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#	D1'~H1'@
jLmPrfP$fc^\$(`|f	D"^h(Sc^hG}/cwSqdsMxds\wT 3
.+Bb k/xZ+]R	D
"e\(d"ea"U"en2;T#uHF%
Zd%	.=%	i%	]Yd%
7}(	 %
FB%
WY%
f+'Fd(*-xd(*<w3881t`8Hlgk	`fR9P-K!P<(Fki4SM6H}SMk	aY5=`{/PAV	"pFgx
&uKD@KD}xcKld@KlxbROxH^U'\+^VreY]c"Y]g	eROX2UY]g		P;zc)6=j}fc)|.P=llYOaelg+lhl#M<	@el2Yzel\2/Ul)HPFrdK`er5er^21H4Z
`4ZZ
	O(</g
@J}bO+F=O
?.nX/kx3&+};!G};!K?FwE	D"@<M3Q@<R	PLw@OLwbOAjJ@PD7tADzJREp+zQG#XL	H?~BPdK+|Pdt*{W
~@HV!o!?~@hH@	
~@XHm{@XHmM\4'~@HHmM\4'~@`H@:O~@pHAsP@
%	.=|7HV!o$7~@8H@
w~@0HV!o$7~@@HaW9_~@0HV!o$7~@HV!tD?~@H@	
~@`H]uDE~@HH@_B,g~@P((
f 0dYdH @(H0B d  f $(%H$	D"$y$y
Y9S
}[~
}u0
]mS'a[.P$D Xx3mCXx4YDXx^2D^\$(P{t|fwS
3	7
sMx	
s\w+Bb 1$T#uHF
%	.=
%
7}T'J(F
(*-x
(*<w	P<(FPAV
F,h ((& d7~jn7k
I0d7~H @F$(H	 (
HUNDEFP((@:@	 ,>,>,>,> ^+,^,^,^,^,~-"*	INTEGER SYSCOM(44),	 ERCNT,ERSTAT
	INTEGER ERAREA(6),ERREC(6),ERSET(6),RECNAM(6),ARNAM(6)
	INTEGER DBKEY	 ,ERDATA
	EQUIVALENCE (SYSCOM(1),ARNAM),
	1 (SYSCOM(7),RECNAM),
	1 (SYSCOM(13),ERST	 AT),
	1 (SYSCOM(14),ERSET),
	1 (SYSCOM(20),ERREC),
	1 (SYSCOM(26),ERAREA),
	1 (SY	 "SCOM(32),ERCNT),
	1 (SYSCOM(33),DBKEY),
	1 (SYSCOM(34),ERDATA)
H$H&	"D"*H'H(H*H,H-H.H.H/	(D"3H0H1H2H3H7H4H5H5H6	"D";H7H8H9H9H:H)H:H;	(UD"DH%-"+-"@@   @@@ <<,4@?,4@B6 +N 	*D Q
L @,d <D, <I,4@L B  8 @ <O,4@N 
8 <Q,w <S	*D
Q*U,oXD <U, <Y,6@+[+]6 K+^ (`[ B,d <`,N	 Q*],6@8+k <q,4@{  @ <r, <s, <u,c,}6 Y+g	*T
U*f@@,2 <w,O4@l BcL8+g,9 <y,X+g7 e7@+n,] <{	**U*n,g4@r BcL8+n <},X+n <~,d <,s>@+	7 l+
Q*w,t <,b& <,O+  <,y@+ <,n4@ @	 Q*U BcL8+} 1@+ <,X <,w6@u+"!,>,>8,>8 /	*UA" @ / @ <",~4@ BcL8+	"!  8Q A` <%,"&	*TU*,I,~ <',
4@	 BcL8+  8 @ <*,+ . @ . @	"**,^5N,,^,^1B+1 <5,4@0 BcL8+ <8,X <9,4@	(E*P(! <<,4@>cL+  <A, 4@  <D,$4@$ B7@8+% <F,4@H	"U(** B <J,D5`L4 % <O,"4@P BcL8+S,~+%6 +},m+}	**U2,J4@V7n+96@+7 <Y,]O@,A 8 <0,e,~,>7@8+@	*T*A(;6@+= <Z,6O@ 8,A 8 <0,e,^,~ <^,)4@_ B <a	(D*C,D,~ 'pQ&A`  'pQ&A`  2+J 2O@6@+b 	"T*D*L1h6@+e,m,[,~@@1RH+h <, <k, 
 @Z
Z	" "T. @,~ > @ > @,~ 'pQ&A`  2 <m, <n,	*
P
] @ <o,1RO,~5@rZ8 @,d   @ R,~ <u,Q,~	(*U"e7@,~ !p @ !p @ <w,5p{+ <,i <,k,~6 0,~	*n <	,<,~ #pQ"A@ p 	p@@@@4F1FO@.&F3$9r	 v,~@Ap !pQ A@ ( #pZ 1F+}/&F>`=dz,~@@	*T"P6 :0
6@m5p
08"+
 1@ "1@ "1@ "	 T
A(1@ ", <,e,~0d+ <,e,~ ", <,e,~0d	*EP*+ <!,e,~ <",e,~ ", <,e,~ ", <,e,~	"Q 
 ", <,e,~ <,e,~ 8&6@.$1d,~6 +# D	*D! <y,dZ.  @,~	INTEGER DBNULL
SYSCOM
	CALL SBIND(	CALL BIND	 )(	CALL EBIND(0,DBNULL)
*01   *	02 '	INTEGER 	REAL 	REAL*8 	COMP	 2LEX 	COMMON	INCLUDE '(2(6/.SUB'
.SUB/NOLIST'
0,,0,	  :).
`88p <>,+{x <A,@	(Q**C+{H+00??xv`G8HH	 TDKx <L,B+{hNph	(**TRPT5::p6x; <Z,W+Y	"T(\x< <],[+YSYSCOMH00??_x	*A T e <d,M+{hNx <i,e+{7B+e0b " B	"U"(m 8 @@@ <g,R4@i+_xxh*Dx	 U v`G8vHx8`G8zHx8x	( "~)DBNULLhD``
	**Q*Bx<,!<,l<,j+ux-<H$800001p,	*UT*6 + <,n+x8h.Cp, <,	((P
 +<8`G8!Hp08`G8&	(E*U
)Hxh198,A5@ 8 <+,e+h1=8	*UT1,A5@ 8 <0,e+`G84Hx8`G	*A T
:88Hp;Hx <>,+{`G8@	(  BH`G8CHx8x <G,?+{p88	 UU Kp <K,H+%pNH 8 <0,e+%p	*A(
S <R,M+%x <U,T+{00000p,WP,W?	*@
@*\0>0xx <_,V+{p88  @  @	*@
U
d+M,O,mO@,~p,[5@V <g,`+VpBp	*( mxhp <q,j+`	*E"U*uth` P <y,	 : @	*(U
~  97@ ) @+jR` 7@+k : @+jh	"T( `DDp?$8x7 <, +8x	*U*U* <,s+{
08	"E(*p1p18 <,e,~p1=p3= <,e Q P ,~p2=p4=6@$.D>,~	D P$yP$y#M/i#M/iRF]&RGgPr#7% #7&$	 #7&%P
IxT3mR@bDH6VRK0J!bKK|LD,}dbLCz|MX5	DM+4M^erM,-oPU8d@DUP^gu-R\}=		D"]?u#)bu;bu<bu=^t[:^u
^uX^^uXf~Plal)Rch4Rch=	Rcj?Rcj*PrGrRcf<RcfC	bd4Lbd9"bdA"	bdH9bdfMbdJbd!bd#bd%m
d7~FeB1[CeC;	DhWMh9|!	,"G-R|gP	@Wr	?M-7bfoP	VjsH
3	7+]RT"QqM+^a.+^a/	<*z\T@h?c~*	"P<(FPgTQ`gj>5=Q^l$9lK@TY9*#YE3<]&=	@di~/G1di~i
*PAVTp-gPMwrdr:^+I\R%7\R59	@"tyg2dvvc?
y1G
mOe12	D"24ZcG4ZiG04=|!	77G2).34zr}4|[Ae5
&	P7RHP8-U9NU	U9N:CP83#U9PUU9P4CP8&cU9L:	U9LgU9LUP8'rU9L@CU9LS#;,!;R8Bp[}eLO7	D"7Y?MP|DP!A-8A/9PxPwURbURf-:URO+UH	D"Z
-
Z%	4Gfwg^/YKlk{9rk~nfjfjyg^fkfak
IEkKjNf _
FX	f!ic?
Vx?h-PcD#wW7&3xPd3[vPJq`Jy*`Jy3`4ZI	@g(</gZg+F=O^`K1T`K>`KPk`KPo`KPp`KW	`KW`KW`KW`KijW.}Pi%~PHw|PI@*|WHp{HV!t0G~@AhHm{ @(HV!i~@>HmM\4'~@=xHV!liW~@<xHV!t0G~@;pHV!pi'~@:XHV!fIG~@:(H@//~@9`HV!i~@98HV!t0G~@8xH@=/~@80H@6G~@8HV!t0G~@7`H@:
3	7|kH@
3	7|mHV!g/~@-H`S1w~@,pHV!g/~@,HHAAVw~@,HAAVw~@*HAAVw~@)xHV!t]_~@)@H@:r?~@)HlaYvw~@(PHV!pi'~@(HV!h/~@'hHlaYvw~@'pHlaYvw~@'@Hm{ ~(((& 8
IQzc?sbHi~i~/Gi~ivvc?k3!ic?0sbHHT@l	(@*@HH/ 	"U",~H0H0H1 "O@   @+
U"4 6@+1,%+,> )p,%+ <5, <7,R`,~ <8,	*@

 <:,R`,~,> )p #p,+,^,~  @  @@@   	*U" @ <;,4 ,%+"Z & 6@.   X@+@ 7+   @ 	  
*S  @ ,~Q_w#`.\.<*"w,~)

	1
	,"	*A3,R`+ppppP*U;//	"P
8
I81%R87&P$(HExbHY\#M>H	D
Qzc?sbH}
S'a[.PrfP$R	DT#uHF%	t%
A(m!P<(FSM6H~\/l	D"i~
i~
i~/G
i~i
i~o&PAVP_=Tu^6Nu^v	
vvc?01e5@
=	"Ul)HPcFj[fjfPJqWD,M~Hk(8~@ Hk(8~@Hk(8~@pHk(8~@X((> dNr50dNH @'T(H0"H
(	 D",~
HLHLQX_eou	"D"}
	
'
-6=ELRY`fn	"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	 D2MBER  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=011PV	DP;zex
=ex
,
Ukn-elg5el2Y6el\2-PqFHu	~WhM9~PkQgUr<Hb\'~@'HeMG[w~@' H@
%
7}|(H@
%	.=|,((=