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

 0
d6:H @fT
/
		 (EPROCESSING EXPECTING HDEA N	(D"HuHvHvHwHxHxHyHz
Hz	"D"H{H|H|H}H~
H
HH	(D"H|H
HHHHHH
H	"
H
H
H	
H	
 -10  -11  -12  -13  -14  -15  -16  -17 	  " -18  -19  -20  -21  -22  -23  -24  -25  -28 H0&a&PH0(
a8H0)	 A*T H0+
TH0,VH0.T0H0/
TH01
b	( A3H02a0H04`(H05`H07aDH08 
,O@	 Q;O@,*@C<,+F,4@; ,@ < @@  @@@@C@@@@ <,,,	 
P LR`R`@@@@O@D+R,6 D+R@@D+@@6@+j,[6B	""D"U0@

+6@+R T0@+R`6@R+, W0b<+R , <,	*
] < ,]6@+$[TF"

@0b+( ,
 /"(B  

 @ 0`+*	(U*U*f <-,+
Dg/uv
	

 CD^	*Q
n7/ "G LD   @d  8 @ <0,6 C+R@`C,~O@N+ [0	"U*(w "2@

2=bw+

y+7{~


., <8,f2LZ+:+O., <;	*Q*D",|2L}+:+O., <<,2L
+:+O.,[4v0@
@+>., <?,
	*P
U"
 <A,D+O[4
 "0@
@<"4B
9


 <D,

[4
	 "
2@

D=b
	*"U
4BG[4
F"

 

 @B <I,
.,2L
+:+O <K,^R`[4
 "
2@

K	*U"E*
=b
4BM+P2L
+:+j[4
 "2@

R=b
.,+

+[
&
8
,
Q	*U*P

!
W
U
R
W
W
Z
Z
Z
.
v[4
 "0@

 "5B
2[4
& "
	*

*2@

\=b
*7@+_+
{ <a,4@
m+
= [4
) "0@

 "5B
v +
Z	"
T
2.,[4
/F  `@ +c.,Z @q <e,
+[4
3F  `@ +c.,Z	*TA*
; @
6 <g,
7+[4
81@

#.,[4
=0@
@+>., 0 @B <j,
<[4
>1@

#	"U
C.,[4
B0@

+l.,[4
D1@

#., LD LE:E <n,
-7@+t1B+w	(Q(U

L[4_F"

 

 @B 0 @B <y,
B.,
+ <|,
O+
FZ @
; <~,
Q	(U
P*
T9


]Z @
S <,
T9


]Z @
U <,
V+
][0F"

 

 @B <
,
Y	(""
][4
F "0@
@ "5B+[4
]0@

+	.,[4
`1@

#.,[4
b0@
@+>.,	(Q"U*
e[4
c "
2@

	=b
f7@+

 

 @B 4
@ @B <y,
\9

[4
h1@

	""U
n.,[4
m1@

#.,[4
n0@
@+>., 4
j @B <,
l[4
p1@

.,+.,	(U*
v[4
t1@

!., <,
s[4
v0@
@+>.,+
| <,
x 4
r @B <,
|[4
y	 PU"
1@

.,+[4
~ "0@

 "4B.,,.2L
+:+O[4 "
2@

=b	*U
U +

+	

 <,
~., <,D+O <D,
+O[4 "0@
@"	*QU*5B <D,

+.,[4 "
2@

=b+

+" <#,	"*Q*.,[41@

.,2L+:+O 4
N @B <,., <A,D+OO@MR`	(![41@

.,Z4!  @  @[4"0@
 +%.,[4%1@

#.,[4'1@

	""*).,Z4(  @  @[4*0@
 +%.,@@[4, "
2@

&=b0+

1+*	*23@.,[4/0@

+,.,[431@

!.,[450@

+..,[471@

".,	(
":Z49  @  @[4:F `@+0.,2L+:6`D+2   @D,	*AA
C+R+[4=1@

".,[4D0@

 +5.,[4E1@

!.,[4G "
2@

5=bJ+

K	*D*E*K+9MT.,[4I "
2@

:=bN4BK[4MF"

 

 @B 4
| @B <<,	(T"*T9

V., <>,S[4P0@

+@.,[4VF  `@ +c.,Z4
Z @
X <B,U	*Q*T"\2L?+:+O[4X "
2@

B=b_+

`+Gbjn.,[4^0@

+I.,	(*Q*e[4c "0@

 "4BN9

T <X,\2L\+:+O.,,O <Z,h2Li+:	(T

m+O., <^,
I4@c,> @,O[4e "0@

 "4Be.,[4q0@

+,	"U(v.,[4t1@

".,[4vF `@+0.,Z4Z @[ <g,l2Ll+:,^[4x	"*P
~0@
@+>., 4R @B <,| <i,D+O[4~ "0@
@ "5Bk <D,
	(D*U"[40@

+o.,[4 "
2@

=b
+

+".,[4	1@

	"U(U.,2L|+:+O 4 @B <,
@+>., 4	*PU  @B <,[4 "0@

 "4B.,,.2L+:+O[4F `@+%	""  .,[41@

.,[4!0@

+q.,[4"1@

"., <D,[4$ "0@ "	"T(D*)6@+r2L+:,OZ @{ <u,+P@@[4' "2@

v=b/+

1A	*T
U
19<;84l`R
+{ 4 @B <,&9

.lR+{+=lR	*(U(:+{+=lR
+{+=lR+{[4.F"

 

 @B <I,79

.[4=1@

".,	(*U"B[4A1@

.,,~ "M@@A,f LD LE:E A @A <J,o7@+0B	"T*@"K,~ 45 @B <,@ ,.LE.lD+H[4B "0@

 "4B.,[4O1@

"	"*U*S.,[4R "2@

=bU9

V+YZ]] <
,M+[ <,Y <F	(E(U"\,[,~[4T "
2@

=b^4BV[4]F"

 

 @B <

,\[4zF"

 

@B	**d<I,b.,,~Qw#`.\A.<*"w,~ <

o/qst"$+;"$+>"+D	 u,0NONAMEERCNT*	CALL (
'	END
NULLCLOSED(DELET	 ~R(ENDFINGETS(INSRT(MODIF(MOVEC(OPEND(REMOV(STORED(SETUS	 
E(D1(D2(DO(D3(D4(D5(xxh

x	 A($+;hIx <,m+Rp6`;	*P* 5BZ <,
+Rx <,+Xx <,+jp	 
U  ppp <", <#,%+_A COMMAND NAME	**( .'+ox   @ <*,+fh
,+E`	*@
"1D
.
r







AN AREA SPECIFICATION .4+ox&"EOS"	"D Q 9 .9+ox$x!"DBNAME" .=+oh"p-	(U"B'xx





p
 <F,e+
pB	 @*T"Jp	
 
`
@  @@  @@+
 4_  @@  @@9


	 S
@







 
`









x <Z	*
A [,,+R



x <^,[+Rh9"USERID" .b	(E
Q d+o`
1`

fpB"CURRENT" .k	(*Tl+o8IDEm+01*AN "RSE 2" .r+o	"U(U
u`
$ <u,H9

`BBp
-	"Q"E*}h}
ip
pBpB 4K @B <,x	*P(
9


` <F,+
`"RECORD" .+o



"AREA" OR "SET" .+op	*(Bp!p

@
A RECORD SPECIFICATION .+o	 *T
xp.'xB 4 @B <,9

"INTO" .+o

	 
"A 
@"ALL" OR A SET LIST . +op!"IDENT" .$+o


A PRI	 
 P((VACY CLAUSE OR "EOS" .'+o"KEY" .++o"COMPILE" .-+o"ALNUM"	* P0 ./+ox <2,_+A"STATUS" .4+o
@

A CURRENCY INDICATOR	"@
E"9 .7+o





hBBh
$"TO" .@+o	"@
 Ap






"AREA" OR "ALL" OR "JOURNAL" .D+o"USAGE" .H	(*D*J+o"UPDATE" .J+oh#
[4P0@

+K., <M,+hh	*Q
E(R#%[4N0@

+K., <R,Q+h`
&`	*@
Q*[
!
X\]67X$

	*U
Q*c <a,V+~ <F,d+|`
B`-'76 4	*P(*l @B <,e9

"FROM" .n+o"ERSTAT" .p+oZ4T @h <B,m9

'	"P
th
r








@A SUPPRESSION CLAUSE .yO@C+o	 "U}AN IDENTIFIER LIST .}O@C+oh$
 <
,s,~





	 
(D 

A USAGE-MODE CLAUSE .O@C+ox$x#xBx`" @@ <,3+mp@	D`$yu`$y2bY9SuH	

H

@H#!FwR4&B
(o1"t/!ftSJvv
":
b2O-Ab8
Ij	D"F~<HEK3

K3

#n{K5\~K#jK2yLm[CMM	D Mg
d@V9P^`3RPa

:bQzc?&-xj1z.	D {6+{S0_&U%

d&U%
bdM(bdN1bdTSbdz	 bdgbd
bd!bd

4<bd+d%}Dbd&bd7~BeE
e}	a\m}]

q}]t}]Dsb}[~m}\z2o	D"ab'	Kb]mk|O%i
F	7
]
S?
|HqIF
AS	D"[SQ

2
@M
2@N
8@a
=@b
Q@u
W@v
Z@	
m	D"@
v@
v@
{@#
&@
.@$
,>Fg
R>Fi
U?
qyDIS'a[.(U%%	(U%%

c(T6IF	D
c(THHSc(Tu}Z(U2P$H	D SXwuGcXx3mcXx4YkXx]gBcXx^2c^\$(P{t`|fFc^h K	D"^|;%^|;%^{f^|2
!G@
fy3c
wS 
21xe&	D
d
3	7;
2ggB
2h2+Bb+E3P+]Rd"eI:T#uHFd%	.=	d%
7}^T'J(FT8G:T=?j:WAAPA$9%MA$9%TA#dV	"A$2KP<(FTDe*I/S lAYHH2dSDdi~/G+di~i	Ddi~o&j+G|j+R~PAVPcQ2IrLy%jrLy%nUnb	@"
U>2`dvvc?-

IG&rb 

@4%1	4zBW"e5:Be5@s+UKsnJUKt2UKt[
eLO7+	D"M@Ks
7Y
7[#`
CW+>e.W*#8W*<W*M@A	@"W*Y]=W*`J4W*eJW+29W+:.W+[;W+21eX\wHPV	DeYIK^DB})Efv?#z7c]]c`e'ca6]/%RY/%SZ	"cb[c( c@2V$jHR$y

R$^kP$x/O$(.KZ5Zu	D"Clkv`WZ	D"
k~ V4DCr'Dfk

ILk& fk9&vx^Iyd5<W	Df _

F;@+f,hkP6mcsGPcD#wW77"%3yW7&3xW7(cI{W7*vyW7*wtW7.pvW7.Fu	W7.}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[

RF

1reG

 	1teJ

1u<V


r$

3-+

3

3

4\1

!P
kI|W@<{Wo@%|WO3}H
V!p<~@bH
V!tb~@a`H
W}]Qw~@apH
rf~@axH
k(8
~@aPH@

3	7|<H@

3	7|.H@

i~o&|WH
~
Xx^2lH@
V!jJ?~@K(H@

i~o&|
H
k(8
~@I0H
~
Xx^2lCH

Xx^2
l@H
V!iU~@FH
m3u'~@EXH@
@CHH@

i~o&|XH
V!if~@C`H@
gW~@BhH@


i~o&|LH@
^\$(|EH
k(8
~@ApH@
H@
^\$(|?H
k(8
~@A0H
of/~	(8 :(
(O 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
 ] @
,~/D
@,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%)}"
2O-1
2OW~F2\(Ot"$(K#KKr)	
)MG

)	bd

0
d

4	bd<+bd>		 bdCJbdDBRir~})B	Dz`
*{|
*|J6w
+
	H
+-x	P
+5[SHdCJ3J7
KT-x	SVzo		xo1H

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(zM@Rz;/	@PFer5Mfjf

F
3'UW~A{PHqt}	Pdt(~W
3_-Px.|g5WL[
WMg
WMTWMWS&E|WJM~g
gffCH
V!qF~	0H
V!wa~`H
V!wE7~H
V!fU~HH
V!x9/~	H
V!xH/~xH@
 @:       	 	```           	        (@	 0000000000	 "





















	 +





























	 3



























	 <























 	 D	 M	 U	 ^
	 AAf4
lH0f,
@H0h
(
04H0j(
0H0l
 
P
`  o@	L@
Xp

dP|pH0mL@
 <
u,L@
L@ <
w,
L@L@ <
y,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%

H&	 @ 
.

H'

H(

H(

H)

	"
@ 
7H*

H+

H,

H,

	(

?H-

H.

H/

H0

H1	 
H

H1

H2

H3

H4	 @ 
P

"H5

 H6

H7

H8

	"
@ 
YH9

H:

H:

!H;

!	(

aH<

H<

H=

H=

"H>	 
j

#H>

#H?

H?

H@	 @*

r
H@h
rhihk	"Q(
(
{hlhg0123456789h
ABCDE	 *FGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz-0123456789h
p	*T

!pDACCESSCLOSEDELETE	 ENDFINDGETINSERTINVOKEMODIFYMOVEOPENREMOVESTOREUSEALLAREA	 JOURNALRECORDSETRUN-UNITUSINGOWNERCURRENTFIRSTLASTPRIORNEXTDUPLICATE	 %DUPUSAGE-MODEPRIVACYKEYCOMPILERETRIEVALRETREXCLUSIVEEXCLPROTECTEDPROT	 .UPDATESUB-SCHEMASCHEMAONLYSELECTIVESUPPRESSSETSCURRENCYSTATUSUPDAT	 6ESERSTATERROR-STATUSIFDBMSFORWITHININTOTOFROMISOFIN ?.*-+	@w8HQ
.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!XlVa"`rVa#gVa#smVa$(i	D EsEuP
s

	@;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

F	1%y

1' x

1Qtw

1V
r

KS[

RF

Ro*

1reG

 1s<W

F1teJ

1u<V


r$

3-+

3

Kb+

G3

4\1

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

@H

>H4He	"Q"*,~,bZ`^ <

, @,BS,~@@Z@@@@<
 
 @  @Q` @,~6@+ pb
+@c7+ #p  @[ 
	(QU
 @[,~b
+@d`B@+
aB + d @[ e @[O@,~,06 +
	*
+
 Z @7@Z+
+
[X1B

+#0v<+*,5[\0B

+ Z @	*E*E*"7@Z+
!+
& "
QB\b`+*,0,~"[0B+
-+
07@Z+
2+
60v<	("*+
> V V Rb,~,5[\$1B

+@@+(  b@@  @`R`	 E*U
3@@@@@@!,~,~bTHf+7 <
?,S a @]"f.e 
 <
@,S+
<;	*U*U";
A+A+B+E+L+O+P+P+Q+Q+R+R+
C+5   @]  
	*E 
D @a,v+7  
  @a ]Z]0$00d==bG4bK/$d=bG,v+5	"
L7@+
F   @a,v+5,~+++++7+ p [ [4BW	"U"Q*UbPL5+X=bU,
+S @a/"/B[*["B\bP+] ]3B_+
I+
L	*U( ].

\ a @[`a`a`a`a>a,~ 9p ` @^ ` @^ 9p  ` @	(P
(f _2B`+
NZ^.`[1 +
R <
Z,,~ _2B]+
\ <
_, 	(DU n ] @ ] @ a @6 6@+
aZ`] <
e, @_ B_,~06<,~	(*P"w <
f, 5`y,k.6 qQB\-  oX@\zB`0B
@1B
`+
g,~@@Z:Z	(T
E* [dB+
t a @Y@@,~6B3+
.

[., LZ <
,j4@cPZ+
	*@
 <Y,~
 p_^pxH.c	(*Q(
.dx <
,+,5+@@,5+ L Y @
+p	("U*
YpZ LZ <
,
 @
  @
Z @
5D <
,
+ L	*DU"
! Y @3+#ppZ LZ <
,
 <
#,t @
 @
" B	*P
U
*5D# <
%,
 +#x6`+- <
,,S,7+(,6[0@

@@+(	*P*U

2 L
 Y @
+*pZ LZ <
,
'  @
3  @5@* <
5,
+	((
;+*x <
<,
:+++
<++xx+pZ <
B	*U*
C,
=+5p] <
E,+5p]\ [ @\>\ <
H,b:\	*QE(
L+] \ @]+] B`R_ B`+gxbp_
e <
P,mQ A`!"@	*T"E

T @_ B_ <
Q,
F _ @` _ @`Y`_+jp

R^p]] <
[	*
],b+mx
^h

Z D   @
` <
`,+sp_	( (
e]p]  @X+~     `ZZ
i
jp	**A*
n[
mxpZ <
p,
C+

x3B
i+

 BZ <
k,	*U
Q
v<
n,
(b@[ZB[<
o,S0R+
q<
s,S+

ppZ	*Q*U
3B+
 <
|,
7 @
  @
8Z @
25D
 <
~,
r+
pZ <**P,+
p][:[ a @[ <	,b+
p	D"`$y
b`$y
abY9Sr)K>vb$
S`HQ

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

NsES(T*(TW(T6I(THH%	D"(TT=5(Tu-6(Tu}(TvX(T{>7-W!(-GH-
jKM!
jKM#	D
1'~H1'@
jLmrfP$
hc^\$(`|f	D"^h(Sc^hG}0c
wSqdsMxds\wT 3
.+Bb k/xZ+]R
	D

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

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

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

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

3&+
};!G};!K?FwE	D"@<M3R@<R	QLw@OLwbPAjJ@PD7tADzJREp+zQG#XL	H?~BPdK+|Pdt*{W
~@8H
V!o!?~@H
@	
~@xH@
mM\4'~@hH
mM\4'~@H
@:O~@H@
/|pH@

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

w~@HH@

%
7}|
)H
V!o$7~@PH
aW9_~@@H
V!o$7~@ H
V!tD?~@H
@	
~@pH
]uDE~@XH
@_B,g~@`(
(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 @@(H	
 (H

UNDEFP((@:@	 ,>,>,>,> ^+,^,^,^,^,~-"
	INTEGER SYSCOM(32),	 ERCNT,ERSTAT
	INTEGER ERAREA(6),ERREC(6),ERSET(6),RECNAM(6),ARNAM(6)
	EQUIVALENCE (	 SYSCOM(1),ARNAM),
	1 (SYSCOM(7),RECNAM),
	1 (SYSCOM(13),ERSTAT),
	1 (SYSCOM(14),ER	 SET),
	1 (SYSCOM(20),ERREC),
	1 (SYSCOM(26),ERAREA),
	1 (SYSCOM(32),ERCNT)
H		"D""HH

HHHHH	(D"*HHHHHH/H
H
H	"D"3HHHHHH
HH	(E(D";H 
H

-"+-"@@   @@@ <!,4@$,4@&6 	(TA"D+G  @,
I <(,, <.,4@1 B  8
 @ <3,4@G 

8	*U"L <5,
\ <7,
TXD <:, <=,6@+?+B6 C+W (`T B	*A""U,
I <E,F,6@8+J <Q,4@k  @ <R, <S, <U,\	*P*U*],o <V,H4@b BcL8+^ <Y,
=+^ <Z,] <\,c>@+d7 R	*T U
f+i4<k,dc<l,[&<m,O+ ,<m,i@+4<n,	*P(U*n+k <o,^4@BcL8
+o q1@+t <w,
= <x,g6@e+{"}	 *A w,>,>8,>8 ' @
 ( @
 <~,o4@
	 BcL8
+z"}  8Q A` @	**P" B <
," @ B,
.,
c <,{4@z BcL8+
  8
 @ <	*U(
,u+
 & @
 ' @
,^5N,^,^1B+
U 
 B7@8
+
 <",4@$ B <&,
(5`(4 
 <+,
4@, BcL8
+/	*U*
!,
c+
6 u+o,V+o <1,
4@3 B <5,
(,~ 'pQ&A`  F	(U

* H 'pQ&A`  F H 2+
. 2O@6@+6 1h6@+8,
R	(UU
2,
@,~@@1R
-+< <_, <?,  @Z

Z. @,~ 6	*@


; @ 7 @,~ 'pQ&A`  F H 2 <@, <B, @ <C,	(E(
C1R
4,~5@FZ8 @,
I   @ R,~ <H,
5,~7@,~ !p	(U*Q

L @ !p @ <K,
5pO+T <X,
N <Z,
P,~6 
",~ <],V,~	 
@ 
T #pQ"A@ 
p 	p
@@
@@4F1FO@.&F3$9
W,~@Ap !p	 *
]Q A@ ( #pZ 1F+
b/&F>`=d
_,~@@6 :0^	*(
e6@
R5p_ 8"a0b4@b+

d j1@ "1@ "1@ "1@ ",
	* T

n <k,
J,~0d+n <p,
J,~ ",
 <k,
J,~0d+r <t,
J	"A(
v,~ <v,
J,~ ",
 <k,
J,~ ",
 <k,
J,~ ",
 <k	(P*
,
J,~ <p,
J,~ 8&6@
.$1d,~6 +w D <M,
IZ	".  @,~	INTEGER DBNULL
SYSCOM
	CALL SBIND(	CALL BIND(	CALL EBIN	 D(0,DBNULL)
*01   *	02 '	INTEGER 	REAL 	REAL*8 	COMPLEX 	COMMON	 	INCLUDE '(2(6/.SUB'
.SUB/NOLIST'
0,,0,).
h	"@*"!p <#,n+kx <&,$+kH#(	"TU)(77xv`,,-x <0,'	( 2+k
h2ph6P	*T(U
:9-22p.x3 <?,P+Rx4 <A,@	(*P(C+RSYSCOMH((77Ch27B+m	 *DK0b " B 8 @@@ <I,K4@m+Xxxh"	(A*
T<x`,U-x8	x!DBNULLh	*
* \Z<`]^`:x <_	*U
Qe, <a,
Q <d,1+ex% <h,B+fx<xwx	((
*ml`,n-$8
00001p$r6 
e+
 <s	*
(U v,
S+
x8h&;p$ <z,v+v<8
`	*Q "~,}-p08
`,-xh	*U**)1,
$5@

  <,
J+

h)5,
$5@
  <

	*(
*,
J+
`,-x8`,-	"A( p-x <,g+k`,-`,	*@
@ -x8
x <#,+kp88p <'	**A*),$+
p*-  <

,
J+
p <.,)+
x	 U*1x <2,0+kp88  @  @+
2,
3,
RO@	 *(:,~p,
@5@
: <;,3+
:p:px	 P*A*Bhp <E,=+
`]Gh	*E*U(K

`]^ P <M,e  @  7@ 	*Q*
S @+
OR` 7@+
P  @+
Oh`<	(P*@*\<p7$8x/ <_,|+
f8
x <b,F+k
i	*U*T
d
o
t
r
h
h
w
h
h
x
{
}08p)p	*P(Um)0 <m,
J,~p)5p+5 <q,
J,~p*5"A up,56@$.D>,~	D 
P$yP$y#M/i#M/iGg	r#7%
#7&
#7&
	

Ih	T3mR8
bDH6OK0J!
bK
KlLD,}
IbLCzPMX-M+,	@4M^e
WM,-
TPU8d@<UbP^gu-\}=	]?u#!	D"bu;
xbu<
{bu=
}^t[:^u
d7~>eB1[;eC3hWM	Dch9|!
	,"G%	?M-/bfOP	Vjs
H
3	7+]R
"QqM
+^a&+^a'(Y#M)89d<*z
A@h?c~*P<(F
g	"Q
`gTY9*#YE34]&5di~Gdi~/G
#di~i`
*PAV	 p-gMwr
dr:^+Advvc?i

y1G

RO
J	"1
2
24ZcG
	4ZiG
"4=|!z77G*).+4zro	@4|[
$e5

&
P7RHP8-U9NU	U9N:CP83#U9PUU9P4C	P8&c
9L:9LgU9LU8'r
U9L@C
9LS#;,!
;R8:	"p[}eLO7
7Y7MP|
(P!A-0A/1PxPw@Rb
-2URO+UH
kg
Yz?
3	D"Z

-Z%	4Gfwg
Ck{9bfjfkjygWfkfZk

I=kKjGf _

FQf!ic?fVx?h-
PcD#w	W7&3xPd3[vPJq`Jy*`Jy3`4Z
.g(</g
?g+F=O
C`K1T	`K>`KPk`KPo`KPp`KW	`KW`KW`KijW.}P
i%~PHw3|PI@*|WHp{H
V!t0G~@< H@

3	7|JH@

3	7|LH
`S1w~@)H
AAVw~@(XH
AAVw~@&`H
AAVw~@&@H
V!t]_~@&H
@:r?~@%HH
laYvw~@%H
V!pi'~@$`H
V!h/~@$0H
laYvw~@$8H
laYvw~@$H
m{ ~ (
(y 8
IQzc?sbHi~i~/Gi~ivvc?k3!ic?0
sbHH @|	(@*@HH,
 	"*T(,~H,
H- "O@   @+

 "@@  
 @+

 "O@	*T U"   @+

 "@@  
 @,>  "@@@@,( <,4 6@	*A*T+-,!+,> )p,!+ <1, <3,R`,~,~,> )p #p	*

*,+,^,~  @  @@@   
 @ <4,4 ,!+Z 
	 "& 6@.   X@+@ 7+   @ 
S  @ 
,~Q_w#`.\	 *Q*.<*"w,~)

	1,"
,R`+pp"*3P
,,	"

8
I81!R87&
$(HExbHY\M>H
	D
Qzc?sbH}

S'a[.PrfP$R	D
T#uHF%	t%
A

T'J(F(m!P<(F~\/li~	D 

i~

i~/G

i~i

i~o&PAV_=Tu^6Nu^v

vvc?	@1e5@
=Ul)H	D"PFj[fjf
k3k9&!ic?
78e75PJq
WD,M~H
k(8
_~@0H
k(8
_~@(
(7 
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#
{&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.	"-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@

%	.=|,(
(=