?p 0 ?h X ?x "
<+
+ 2 ` pI '( : 2 ' ( Integer Real Text Date Integer * .DMI END EXIT QUIT (' DSCONV') (/' Enter dataset name or filespec: ',$)(5A5)(/' Dump data? ',$) (A1) (/' Answer Y or N') (' System 1032 allows only 25 datasets per database.'/' Only the first 25 sets will be converted.') ('Database ',A9) ('Dataset ',A9)('Comment "Original dataset name was lost') ('Comment "Full dataset name was ',5A5) ('Attribute ',5A5) ('Or ',A5)(2A5)('of Entry') ('of Change') ('of Identification') ('Double Format N18') ('Format E+10.4') (I15)('Keyed') ('Use_Case') ('Prompt "',5A5) ('Title "',5A5)('!* Alternate definition: Decimal 22.0 Format N22 *!')('RD ',A9)('Field ',5A5) ('Double')('Format ',I1) ('RD_Missing') ('"',21A1)('Column')('End_RD')('Load_Defaults') ('Data_Input ',A10) ('RD ',A9)('End_Dataset')('DUMP DATA ',A10) (/' Dataset ',5A5,' no records to dump')(/' Dataset ',5A5,' records are in file ',A10) ('End_Database') (/' Data definitions are in file ',A10) Y N Range| z _: X p a SEQOUT ASCII SYSDSNAME ALL + -<
< p, , < ), M < s, , < v, < y, ZD " " #3H+ &*d < |, , < , < , 2$ 2d + ! Af 2D 3D + % < , , + < o, x < n, < m, x < l, $
2$ + - < , , D < k,
3 < , < j, % 1D + 6 <
< i, % < h, % < g, %" $ F D D t < f, < e, < , ( < ,
< d, %7D s+ B < , < c, %+ H < a, A$ 1D + H < , < ,
< `, % < _, % < ^, %" % $ F D & D < \, |7D }+ - | F 7*d O < , < $,
< [, %7D + X < &, < *,
< Z, % D w < +,
_D ZD w( . < /,
: ; + \, < Y, % .$ 6b 0b + f+d4 k4 f4 h4 i < 0, + j < 4, + j < 7, < X, % w0D + o < ;, < W, % w0D + r < >, < V, % w0D + w < B, < E,
< U, %7@ + } < G, < T, % w0D + } < J, < S, % w0D + D 0 < R, % < N, < Q,
< Q, % D 0 < P, % < S, < V,
+< O, %6b w0b +
4 4 4 D 5D & F D 5D & F d # D < N, w@ @ !d # D < M, w@ @ !3$ .$ D |+ $ D |+ .$ / D | < L, &6D + $ < X, < [,
< K, % < ^, < a,
< J, % w0D + + < d, < I, % < H, %: &; + L < G, % < g, ( < k,
< F, % < E, %" % $ F D & D < D, | D w < l, < p,
< C, % < r,
_D ZD w( . < v,
: ; + >, < B, % w0D 1D + F+ O .& / F &0D + M1f + O 3( + M 3( + O < w, < A, % w0D + X .$ / D & F 1$ + U & F < {, < ~,
< @, % w0D + m < , < ?, % .$ / D 1d
+ ` &
F < , " $ F D " < ,
: "; + c .$ D " "/& " F ! D " < ,
: "; !+ i, < >, % <
, < =, % <
< <, % < , < ,
< ;, % < :, %: &; + 5 < , < 9, % < 8, % < 7, % < , < 6, % < , ( < ",
< 5, % < #, ( < ',
< 4, % < 3, %+< 2, %,< (, (< 1, %,< 0, % 1D +
@d v < ., y < -, 6D + < 1, < 4,
+ < ,, = < 6, ( < 9,
: ; + 8 1D + " < <, < +, % < *, % < @, < C,
< D, < ), + < ), w < ),
x x x tx x x x x x x x x x x x x x x x x x x x x x x p }x x x x x x x x |x x x x x x x x x x x x x x x p }x x x h
P
P Y ^ ^
P ; 0 0 ? P = 0 0 ? P ? 0P C 0 @ P G 0 @ 7 P I 0 $ P J 0 $ v P K 0P L 0P N 0P P 0P S 0P U 0 $ P U 0P V 0P U 0 $ P U 0 $ P X 0 @ : P Z 0 @ < P [ 0P a 0 0 ? P b 0 @
} P J 0 $ v P c 0P d 0 $ P f 0P g 0 $ $ P h 0P U 0 $ P U 0 $ P i 0P j 0P
l 0 0 Y P n 0 0 ? P o 0P
q t 0 Y X s @ X w @ 0 Y P | 0X ~ 0 Y h
; - " (80A1) ('! ')
{ {( aW$; \ " p @ n6b n0b + ++(4 S4 T4 `4 f4 + < i, < l,
$ZD u u F v F3H o*d ."& &. v $ % D u u D s F2H o+ 6> u8& 37D n+ 9: s u FF $ / v. s D .$ . l1$ (+ K l t Fv.$ &$ ( . .& F v < o, " v $ H r D < r,
: ; r+ E, $ o Fv*d I m D l"& . v/ s v / v. l
F J v.$ 8& M $ . .D l+ c"$ .D l l n s Fv.$ &$ ( . .& F v < s, " v $ H p D < v,
: ; p+ \, n l D l $ o Fv*d b # o F /*d d+ g < x, , ",~ P % 0 @ % F X
$v X
$v X
! _ / (25A1) ~8 Z A z _a aJnM \ ! p @
+ +o( p , < , . "ZD F z3H *d -"&
D D z2H + 6> 8& 2 $ D F
. D "& / . z2H + A Hz {3H + A: * .
J
.$ 8& ; & . F
z3( %+ K
z2h $+ K
(zA % J z.$ 8& E" $ F D
.& /F " z3( #+ V z2h #+ V $GHz.$ 8& R: ; + N < , "& . / F D < , : ; + ], D $ D "$ . .
2$ + z@d "& / . D D < , ) @ 2d + n /$ .
2$ : : 8& h6d + t
Fz .
D .D + b < , "& . / F D < , : ; + ~, !,~ x P
7 @ { P
: $z P
< $z .DMD _ .DMI : ; < > [ ] . (25A1) (4A1)(10A1) ('DS',I1,22X) ('DS',I2,21X) (9A1,16X) (I1) (9A1)(6A1)(I1) (4A1)(' Internal error ',3I3) B ~8 z D 8 _P X ` a SYSDSNAME O%h6 \
+ p @
!p @
< t, < x,
-ZD
F
3H
*d
8"&
$
D
D
2H
+
A>
8&
="& .
/
D
2H
+
G.$ D
+
H:
8&
C"& .
/
D
2H
+
N/$ D
+
O:
8&
J"& .
/
F
D
2F
+
d.$ D
"& /
.
F
D
2F
+
b & /
.
F
.$ D
"& /
.
"
. J .$ 8&
^"
.D
+
f:
;
+
W+ g:
;
+
R"& .
/
F
D
2F
+
{.$ D
"& /
.
F
D
2F
+
y & /
.
F
.$ D
"& /
.
"
. J .$ 8&
u"
.D
+
}:
;
+
n+ g:
;
+
i"& .
/
D
D
3H
+
8&
+ .
D
$ .
3d
+ .
D
"& /
.
H .$ 8&
._D
ZD
.
F x:
;
+ /
.
D
"
.
1d +
D
< z,
.$ D
"
/& .
F
D
< ~, :
;
+
.$ D
"
/& .
H .$ 8&
/"& .& .
F
3(
1+ 2h
-+
/AH *d < , "* ( J H
.
< , :
; +
0 & .
"H *d
$ F
D :,D < s, @d s < q, x < o, < n, x+
+ :0& + , 1& + < + , < , < ,
._D
ZD
$
$ :.
< , :
;
+ "& $ F
D
&
$ :.
. 22F ~+
/&
(
$ :. Z 2 J 2.$ 8&
$
.
F 2:
;
+ $ D
:
H
$$
.
22H
+
8& :;
+
1D +
$ F
D :
.ZD
&
$ :.
* x2H 2+
D
. F x
,:F y+
+ /
$ F - D : & "F -@f ,.$ D "& /
. F + D } & "F -
.ZD
&
$ }.
(
$ :.
23H 2+ }@h -+ *d : ,: }; ++ $ 3D ,+ D
"& /
. : : F * D }6 -+ :
0F + & F
}$&
.
< , < , :
: }; *+ : :; -+ "
$ F D :( < $,
._D ZD
:$$
.
< (, :
; + !, : :; + "
$
1h + + ( H
.$ 8& ( & /
$ F D : & "F -@f ,.$ D "& /
. F ~ D } & "F -
/ZD
&
$ }.
(
$ :.
23H 2+ < }@h -+ =*d 5: ,: }; ~+ 4 $ 3D ,+ M D
"& /
. : : F x D }6 -+ K:
0F + G & F
}$&
.
< ), < -, :
: }; x+ C: :; + ."
$ F ? D : < .,
0_D >ZD
:$&
:
.
. < 2, :
; >+ S, :
.& F
(
, # Y :( < 3, "
$ H = D
:$$
.
< 7, :
; =+ a, : :; ?+ P+ j < 8, < ;, < l, &
+,~ x
+x
+h
1
+ ;`
+x P
@ P
$ P
! Y $ P
" ; $ : P
# ; $ : P
% ; @ x P
; $ 2 P
& 3 $
P
& ? @ x P
& ? $ 2 P
' 3 $
P
( $ 2 P
! Y $ 2 X
( $
$
+ + !QF10gg "A- Kb( !QF10, t? 1022 ROUTINE CALLED BEFORE DBF10
+ v, t? REENTRANT 1022 FORTRAN NOT SET UP
+ vg ". _ 9@ e " YZ 6@ [3D [1 + 6@ A+ H@ 6@ &7p B+ X(P Q0xF@ (. *p V,> ,> @, *,^ ,^ 4N d(.}F@ `P = [4N d, t
%%1022 RUNTIME SYSTEM FOROTS/LIBOL VERSION SKEWED
Z B7@ " $" ." + k Z $ o!&X Y F .$ <` nX F .$ 8 6@ =` i+ K+R , C+I , C+D , C+O , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C+ , C . ]Q.A` 7H@ !(Lu, H & F , E7D@ + 2\& ]\" ] 74 @ , E@ F !" \$ ] + @ n 4 @ & 4 @`D + ;0f + @.& + 7ZD@ l" Q" l o @4 @,~ \" o e\" ] U$ @ + + <+ D6H@ , H & F 7H@ !(^@ )F .& F 5H H,~ " Y+ ,> 4 V4@ R . [6@ + WO@ Z / [: + WQ"xX" . [7@ + P*b T+ W" . [@@ ,^ ,~ !JCS18 ] > L
+ v Z [ 3B 7+ g+ hH ?
?ERROR IN GET FOR FILE =QF10 ,^ Q"A` + 3\" <+ w, b ,~ A"p 0B : x ,~ , x,~ , " `4d {,~ *x ,> ,> , > ~,^ ,^ ,^ + {
EXIT P !JCST+ + /+
& ` ?1022F4 ADJ1 ERR, CALL OPER ` Z (X^ . > X.~ (3~ + ~ + Z . \x <x *<x .ez+ !" b + " b + Z` .Z . h + gg M?$@
& b +
,
?NO CORE AVAILABLE - CAN NOT PROCEED
a.3@1 ,> &O@ a+ 'gR~@1 ,> &@@ a,> ,> @ 6 w+ 4" a0B + /!"A`X#p 5@ ,/#p !" X#p + 4\p + 4a.9'1 ,> &,> ,> O@ a+ 4,>
6 + _ 4` <"` Q@ ,> < b, ,^ ,> < e,
,^ *b 9+ G,> < g, ,^ 7@ a+ B,> < j,
,^ + D,> < k,
,^ Z 5" G,> < m,
,^ , 7@ a,
,> < n, ,^ , ,> < q, ,^ ,> < t, ,^ (@qd 1@ ,,
1@ #+ U0@ *+ G,> < v, ,^ + G,^ ,^ ,^ ,~ (' Type Gto Continue, X to Exit, TTotrace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X ] p X ^ p ` p ` p X W X ~ ] p x C2|t(1 ,> & p 4@ @ },> < , ~,^ |,~ {e^b C2|p 1 ,> & p 5` 4@ +P 0 #p 3@ + 2 + 3` + @@ +
,~ ,~ 0 _i/X3 6P'M s!hh yI^ *Vh P `@ 6P'M P'M]ox x }Attempt to take log of negative arg Iae * )|h(F %,~ 'Y\ (Q< X\ )* + 6 ) 6`) S YVBG 9 )G 9 (
G J &GK/K & thW %f& #P U7 f&"x?N ;-9 } lX S YVBRMSQ TE 0J /8 K ~
f w K| vko YUlrBK Y X <: &
Y]@ a
Y? '
\! 9{-^ 4{-X /{-O B{-N U{-N G{-M D{-M <VBSo&BTE ) |# ) S3*9
AwB 8B
5 KN 20J TUR /}F
/|N @\: _<F
zR u6
(J"
&*
R W J
> _Bb _2 v ^,6 K^ 2b 2 (bI|@
SB S@& e-. SB@ p+s e`Hr" @MSajB dMSaiJ J 6(: E:C t E:=| x E:R | E9\C v K
2 ` aQ t
8QbB s:Qf(`rK&uj )`p(`rO/L` ?{?2 J ! 2 )qB ) (b| (# S 7TUH
4J nv. E E:3; l <
k[L K1y= 03 " 03z K+m K+lu_ l[ @H
9|H
9h
4J Mc e L KHY4
}){N D |_ ^aj '
]NH' )^ag
^]o
]Iq4
]IC2
]IC
]I2_ ^O[ ^OW
]H[g
]FzD $
]Fz3
]C^;
]ANx
]?g[
]?a2
]? +
]>yG ^)I ^%: }
]5fL |
]2 2 {^[ z^ M
]/ZG y]|( M
].<~
].? %
].9 #]z x]yG w
], v]qw u
]+;t &
]+5D
]*)[ t
]*W ]lf s
])B
])f( r
])d( ]gt q]aS
]& p
]%Wf ]^ oJM @:@ #ll \\v ?E| ?E|`?H Mq H @+
].<r =].<r`= ]
' ! K 3
b
8 %K a
/
9 %s A
G e
&
= & s 9s
= & q >
C &/ o >s " 8A
d
C &C n ? E
J &W m ? !
J &k $
Q & ?C !
a
; M '
R ' ?W ! ! ;
W + (
JA g i
( O
W , ? ( %a
H c
^ ,' )
! Ji
( w
h ,; z? . tA
i ,O zS . >a
f
n ,c zg 3 ti
n ,w 4 ?
u
u - 5
" 3
- {# 6
; u%
# &a ] G
-3 C ?E
y u9 [ 2 C &!
% o G ,
N ua
& )
@ za z 2o zA
{ ? P G ~ 3+
A $ =
' g 2 {Y W {
O ? l # 8g a ! + S j 7
^
_
6 9K 8 a
}
s t _ 9# ' ; qG
P]
P]
P^
P^
P_
P_
P`
%p
gyFr
w04
w05
w05
PH
w06
9
PI
w06
PI
w07
PJ
w07
PJ
w08
PK
PK
PL
F
}
h
P4
>
d YP5
P5
P6
P6
P7
P7
0K
+P8
9
0'[
dG
UJ
z>
d^
L
da Q Q ~
rk s!fG ~ 7[ }Q } Y< xQ x \ ?Q ? %p >Q >Q =KT ; P :]>x3 ?go3 @kM .Pp -Pq - , k ,Pq +Pr +Pr * AZZ Ps Ps Pt w0H w0I d 9 de ZP\ (TSg
3(TSg]p
3 - A 0 N R ' U ;
O \ %a 5 c ] w tA ` g >a K h 3 b 3 ^ G [ { o ! 0 ( + + ) ? * S ) n
_ a V
s qG w04 w05 PH F } P4 > P5 N, <P5 P6 P6 P7 P7 0K !P8
UJ - f
=w :!fG *Cg 7 P>
{J~d+ 0
v# &
v#uP& I M b s
a ' ' \
u + ; \ %a K Q c c b e d w d ! 6 F {% T g + ' ? ( S i 9
_ l a `
s . qG f +vG w v F v u ;. tP4 s > sP5 rN, <P5 rP6 qP6 qP7 pP7 p0K "P8 oUJ o
=w : s+$ nSMPB l &B l Tf F *Cg 7J~d+ 0-#O % -#OvP%(R h04 - N
~ O 1 , i o Y b 2a s S 8A m c ?C L
a / 9 ' ' * ?W X &G 1 &[ 4 9a Z e X ) j w l ,; \ z? a + i &o ,
'+ < ? [ j - 0 { H S = '? + &Y { 3 = ' V [ i 2 X {K k < ,S C ) ? o h 23 ; {7 F # ,g D = B , } g 2G W {s E 7 Q C @ + m &I o 8 2[ > c 5 K ; e H h za " + 8 2o V s 5 v : 3 t zA , ? f 3 B D s G t L
_ p K 9 Q F # a - i
s s _ ` 9# Q ' M ' qG '#x & Wu & /9G %gyFr # "w04 " 9 !PH ! 1 gk: 9 P4 > d YP5 N, <P5 P6 1 P6 P7 }
|F P7 P8 HL
0'[ UJ
5, x5, da q9
=w :
rk s \ON 0!2 ]>x3 ?m2z go3 @ *Cg 7 &&L } x |m2z wJ~d+ 0 ?, wi
z t 9 tde Z ?H H ? 0H p 0gZ"Wp\B: /\>X \>5 '\7N +\2g 'r'I (\)8 *\)7 \ \ )\+ ,\6 .\. ,[rO .O[mN O[m O[m O[l| [l{ &O[l+ O[k O[k O[j] O[jR O[i% r%H ([Z [X %[Qg r% 0[Ms /[M" -[M +[L ,[FG [@v *r#e OD^w'd w]!+{ 0