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

 0
d6: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"
HHHH
HF
HI
HI
HJ
HJ
HK
	(D"HK
HL
HL
 -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 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.,[4
0@
@+., <,
2L

+~+X[4
 "
2@

		*U*Q*
=b
+




6 <,
9


 <

,
[4
 "
2@

b
4B[4
F"

	*QD
! 

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

 "4B
4.,[4
$ "0@

 "4B
3.,	(D"@"
*[4
'0@

+.,[4
*0@
@+.,=


1[4
, "0@
@ "4B
4 0 @B <	*U"*
2,
#9


. <,
22L
+~+X.,[4
.0@
@+., <,
4+
4 <,f	"*Q"
;R`[4
6 "
2@

=b
<4B+2L
4+~+,[4
; "2@

 =b
A.,+

C+)	*U*U(
C
J
^
S
w
~
{
y
~
~
U[4
@ "0@

	"@(Q(
L "5B
Y[4
J "0@

! "5B'[4
M "
2@

*=b
P7@+-+" </,4@	(@" 
T+
c [4
O "0@

 "5B +.,[4
UF  `@ +1.,Z @y	*P U 
] <3,
9+;[4
YF  `@ +1.,Z @
\ <5,
]+;[4
^1@

$.,[4
c	"(
e0@
@+., 0 @B <8,
b[4
e1@

#.,[4
i0@

+:.,[4
j1@

#.,	*T"E*
n LD LE:E <<,
S7@+B1B+E[4hF"

 

$ @B 4
1 @B <G,
h	"T*E(
v.,
+; <J,
v+
lZ @
a <L,
x9

Z @
y <N,
z9

Z @
|	*A*@*
 <N,
}+[0F"

 

$ @B <O,
[4
l "0@
@ "5BP+S[40@

	(AE
+U.,[41@

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

V=bY[4

F"

	*U(" 

$ @B 4
g @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 4
t @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,`+nh
n+E`D
q	(
u
z









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 K
7p 
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.x
xB 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	"@(p
N







"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

ih
K








@	 
(
(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&B
P/o1)t/!(tSJvv
":
b2O-Ib8
I,	D"F~<HEK3

K3


K5\
K6
K#,K2

Lm[C	D"
MMMg
d@V@P^`:RPa

:bQzc?i4xj8	D"z5{62{S7_&U%
_&U%
_&Vs
$_&Wd
3_&We
1_&Wp
.	@_&X
6_&62
bd?gbdM(bdN1bdTSbdzbdgbd
	@ bd!bd

4Dbd+d%}Dbd&bd7~}eE
e}	a\/}]

3}]6}]D5b}[~/}\z21ab.	K	D"b]m-|O,i
l	7
S?#HqIO
AS&[SQ#

2
C	D"@M
Y@N
^@a
c@b
w@u
~@v@	@@	D"@"@1'@#
J@
U@$
S>Fg
y>Fi
{?
q"yDIS'a[.(U%%D(U%%Gc(T6IOc(THH\	@c(Tu}b(U2BP$
SXwuG	D
cXx3mYcXx4YDXx]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%
7Y
7[*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

.
'^

	.	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

!P
kI|W@<{Wo%|WO3}H
V!p<~@m0H
V!tb~@lpH
W}]Qw~@mH
rf~@mH
k(8
~@l`H@

3	7|wH@

3	7|iH@

i~o&|[H
~
Xx^2lkH@
V!jJ?~@UH@

i~o&|
;H
k(8
~@SH
~
Xx^2
lH

Xx^2lH

Xx^2
l	H
!
Xx^2
lH
V!iU~@N8H
m3u'~@NH@

i~o&|aH
V!if~@KPH@
gW~@KH@


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

4_S0
d

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:@ 0
R
R
U
AD	"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@U
p
 ] @
,~/@
@,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	
(D

x <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[SHdCSJ3SJ7
KT-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[
WMg
WMTWMWS&E|WJM~g
gffCH@@hH
V!qF~	0H
V!wa~`H
V!wE7~H
V!fU"~HH
V!x9/~H
V!xH/~xH@
@:       	 	```           	        (@	 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

}[~

}u0

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

wS


3	7

sMx	

s\w+Bb 
1
$T#uHF

%	.=

%
7}T'J(F

(*-x

(*<w	P<(FPAV

F
,h 
(
(
& 
d7~jn7k

I0
d7~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"3H0H1H2H3H7H4
H5
H5H6	"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+}	**U
2,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,
[,~@@1R
H+h <, <k, 

 @Z

Z	" "
T. @,~ > @ > @,~ 'pQ&A`  2 <m, <n,	*
P

] @ <o,1R
O,~5@rZ8 @,
d   @ R,~ <u,
Q,~	(*U"
e7@,~ !p @ !p @ <w,
5p{+
 <,
i <,
k,~6 
0,~	*
n <	,
<,~ #pQ"A@ 
p 	p
@@
@@4F1FO@.&F3$9
r	 
v,~@Ap !pQ A@ ( #pZ 1F+
}/&F>`=d
z,~@@	*T"P
6 :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$8
00001p,	*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`G8CHx8
x <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 <, +
8
x	*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!
bK
K|LD,}
dbLCz|MX5	D
M+4M^e
rM,-
oPU8d@DUP^gu-R\}=		D"]?u#)bu;bu<bu=^t[:^u
^uX^^uXf~Plal)Rch4Rch=	Rcj?Rcj*
PrGr
Rcf<RcfC	
bd4Lbd9"bdA"	
bdH9bdfMbdJbd!bd#bd%m
d7~FeB1[CeC;	DhWMh9|!
	,"G-R|gP	@Wr	?M-7bfoP	Vjs
H
3	7+]R
T"QqM
+^a.+^a/	<*z
\T@h?c~*	"P<(FP
gTQ
`gj>5
=Q^l$
9lK
@TY9*#YE3<]&=	@
di~/G
1di~i


*PAVTp-gPMwr
dr:^+I\R%
7\R5
9	@"tyg
2dvvc?

y1G

mO
e1
2
	D"24ZcG
4ZiG
04=|!
	77G2).34zr}4|[
Ae5

&
	P7RHP8-U9NU	U9N:CP83#U9PUU9P4CP8&c
U9L:	U9LgU9LUP8'r
U9L@C
U9LS#;,!
;R8Bp[}eLO7	D"
7Y?MP|
DP!A-8A/9PxPwURb
UR
f-:URO+UH
	D"Z

-

Z%	4Gfwg
^/YKlk{9rk~nfjfjyg^fkfak

IEkKjNf _

FX	f!ic?
Vx?h-
PcD#wW7&3xPd3[vPJq`Jy*`Jy3`4Z
I	@g(</g
Zg+F=O
^`K1T`K>`KPk`KPo`KPp`KW	`KW`KW`KW`KijW.}P
i%~PHw|PI@*|WHp{H
V!t0G~@AhH
m{ @(H
V!i~@>H
mM\4'~@=xH
V!liW~@<xH
V!t0G~@;pH
V!pi'~@:XH
V!fIG~@:(H
@//~@9`H
V!i~@98H
V!t0G~@8xH
@=/~@80H
@6G~@8H
V!t0G~@7`H
@:

3	7|kH@

3	7|mH
V!g/~@-H
`S1w~@,pH
V!g/~@,HH
AAVw~@,H
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
sbHHT@l	(@*@HH/
 	"U",~H0
H0H1
 "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
	D
T#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~H
k(8
~@ H
k(8
~@H
k(8
~@pH
k(8
~@X(
(> 
dNr50
dNH @'T
(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-PqFHu	~WhM9~P
kQgUr<H
b\'~@'H
eMG[w~@' H@

%
7}|(H@

%	.=|,(
(=