Trailing-Edge
-
PDP-10 Archives
-
BB-H506E-SM
-
cobol/build/cmlvok.rel
There are 16 other files named cmlvok.rel in the archive. Click here to see a list.
d7~ jn7 k
I 0 d7~ H @P
COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1985.
ALL RIGHTS RESERVED.
,> ,> ,> ,> ,> ^ + ,^ ,^ ,^ ,^ ,^ ,~ -" =
01 SYSCO M.
02 AREA-NAME, PIC X(30) USAGE DISPLAY-7.
02 RECORD-NAME, PIC X(30) USAGE DISPLAY -7.
02 ERROR-STATUS, PIC 9(5) USAGE DISPLAY-7.
02 ERROR-SET, PIC X(30) USAGE DISPLA Y-7.
02 ERROR-RECORD, PIC X(30) USAGE DISPLAY-7.
02 ERROR-AREA, PIC X(30) USAGE DIS "PLAY-7.
02 ERROR-COUNT, PIC 99, USAGE COMP.
02 DATA-BASE-KEY USAGE DBKEY.
02 ERROR " *-DATA PIC 9(10) USAGE COMP.
H H H
H
H H "D" 3 H H H H H H H H (D" ;H H H H H H H H ! H # "D" D H $ H $ H % H % H & H H H L H -0010ONLY P H -0011SELECTIVE T H -0012FIRST X H -0013LAST \ H -0014PRIOR ` H -0015NEXT d H -0016DUP h H -0017ALL l H -0018AREA p H -0019RECORD t H -0020SET x H -0021UPDATE | H -0022RETRIEVAL H -0022RETR H -0023RUN-UNIT H -0024PROTECTED
H -0024PROT H -0025EXCLUSIVE H -0025EXCL H -0026CURRENT H -0027SHARED H -0028JOURNAL *(@ $-" <', @ <), <+, ' @ Q L * W T @ <,, + ("E --" @ </, <0, V D <3, V D <5, V D @@ <7, (D* 54@:, 4@=6 + ; @(, G <?, , <D, 4@G B 8 @8 (E(U > <J, 4@;
8 <L, ]6 7+ E (`C B=, G <N, :, 6@8 + Y (E(* F <_, , ]@@ , <a, ;4@N B cL8 + I, # <c, 7+ I7 A7@H *T
U* O+ P, E <e, I4@T B cL8 + P <g, 7+ P <h, G7 N+ j <l, U (*D* W <m, 8 <n, O + <n, Y@ + O@ <p, P4@ @ Q(* ` B cL8 + ] r1@ + u <x, 7 @ @ <y, W6@U+ |"}
A( h,> ,>8 ,>8 3 @ 4 @ <, ^4@{ B cL8 + l@@]"} 8 Q A` (D
T q @d B <, " @ B , 5, e <, l4@l B cL8 + u 8 @C *U(* y <, f+ u6@o+ 2 @j 3 @ ,^ 4N, +5@ $ <
, I,^ UU( ,^ 1B + 7 <, 4@ <, 4@ "T*
cL + < , 4@Z < ,
4@ ,B 7@8 + 4<& *E(* , .5`(4 "7 6@N+ <7, DO@ , + $ <9, I,~ ,> 7@8 *U"T
$+ *7F 6@+ ',<;, O@%Q8 , + $ <9, I,^ ,~ <>, 4@@ "@ , B <B, .,~ 'p Q&A` Fq H 'p Q&A` Fs H 2 @@d+ 5 "@ * 5 2 , P, :,~ 'p Q&A` F0 H 2 &" @+ <C, ( @; "D(D* =. @2 <D, >Q A` @8 <F, 1R3,~ 5@IZ 8 @y, G = U* F @ R ,~ <L, ,~ !p @E !p @D <N, z6AI+ Q <S, K5pX **U N <[, M,~ 6 $,~ <\, &, : <], Q7@4+ U <^, S,~ #p Q"A@ W p p @@ @@ 4F 1F
_ #p Z 1F + d/& F >` =da,~ 8 Q A` @ "} . *E"" h`f=bh a @ 0a6@P5pc 8 "d0b 4@f+
g & D n1@ & <1@ (T(P* p & =1@ & > <o, I,~ <p, I,~ <r, I,~ 0d + y <s, I,~ *(Q y <u, I,~ <v, I,~ <x, I,~ <y, I,~ <{, I,~ 01 DBMS-NU LL PIC 99 USAGE COMP.
DBMS SECTION.
ENTER MACRO SBIND USING ENTER MACRO BI
ND USING ENTER MACRO EBIND USING 0,DBMS-NULL.
01 02 " PIC S9(10) S9(18 ) X(30) USAGE COMP USAGE COMP-1 USAGE COMP-3 USAGE DISPLAY-6 USAGE DIS PLAY-7 USAGE DISPLAY-9 USAGE DBKEY (1) OCCURS 02 FILLER PIC X(1).
A # OF 0 , ,0, ( p & x ( Xx * T ,` J L +x . h / h 2 ( 4h /` $ $ p <9, + [x *E
= <<, ;+ [H / 4 4 F Fx v` B $ * E C Cx <G, =+ [ h Ip SYSCOM "( NH 4 4 F F Mx <R, H+ [h I T * Vx <W, S+ [7B + S0b " B 8 @-@@- <U, >4@W+ F "(* _x ` B $ ` Cx 8 ` B $ d Cx E(@ g 8 x -x 1 <i, /+ Vx Kx wx m ` *PU( p B $ o C $8 00001 p 0 r6 j+ <t, U+ x 8 "
@* xh 2 Jp 0 <{, v+ h<8 ` B $ ~ C *@* p 08 ` B $ Cx x B <, O+ | "Q*U h 8 = $h $ ? $, +5@ $ <
, I+ ` B *@
P( $ Cx 8 ` B $ C p Cx *A*( <, X+ [ ` B $ C ` B $ Cx 8 T * #x <#, + [p 8 8 p <', $+
, I (
@* ++ , Cx <., )+ [p <1, /+
4 <4, 2+ [00000 p 0 6h 6 9 $P 0 6 F *@
@ < 4 E 4x x <?, 5+ [p 8 8 x p P E h p <H, @+ ` J (*D M Kp p 5 \ <P, + Mx \ ` J (E*D V Sp A PS <T, H <W, Q+ Nx Jx Fx p (DT ^ C O@X & + [$8 $8 x @ <b, |+ k8 x <e, I *U*U g+ [ n s v u m m y m m z | }08 p $ "E o p 9p ;p $ :p 7 9p <p "( x =p >p $ ? P$y b#M/iP$yP$y b#M/iP$yb#M/i Xb#M/i PF]& Gg r D" b$ <#7% #7& #7&
I XT3mR G K0J! bKK \LD,} G D" bLCz YM^e YM,- VbM. ? d@ K U `5Ha @RP^g `5HaRP^"g D"bP^y2 S` u- ]?u# -]Hqs .bu; zbu< |bu= }^t[: ^u
d7~ - ceB1[ JhWM h9|! u ,"G 1|g @Wr ?M- @bf ]P Vjs D" cH
3 7
2Q T{SG X{}* T|*. @ |/" LJ# B +]R "QqM +^a 2 +^a 3`Q^l$ #lK * D"TY9*# d]yw {]& Ddi~ Rdi~/G di~i c * j?H APAV " p-g Mwr dr:^+ 5\R% \R5 "ty g dvvc? j
y1G = U
PO I 1 1 2 2 4ZcA 4ZcG {4ZiG 4=|! l4zr ] @ 4|[ +e5
& rP8- U9NU U9N:C P83# U9PU U9P4C P8&c 9L: 9Lg U9LU 8'r U9L@C 9LS# ;,! ;R8 I`#)- " p[} eL O7 eL E1 7Y FMP| .eP! ePx R b Rf URO+U H kg fZ% .f4G [ "fwg A =} i :i 9j ;!y 9 =}; < =}< = =}= > /YK NVWA V"= V$7 V C k{9 T k~ Pf jf
I $ kKj ;f!ic? ZVx?h- PcD#wW77"%3yW7&3x W7(cI{W7*vyW7*wtW7.pvW7.FuW7.}OtW70 zPd3[vW70$*r W74J]uP Jq ` Jy* ` Jy3 `4Z 5g(</g 9g+F=O B` K1T ` K> ` KPk ` KPo ` KPp ` KW ` KW ` KW ` KW ` Kij W.} P i%~P Hw|W0UI{P I@*|P kR~WHp{ H APW~@O H APW~@O H APW~@Nh H APW~@N H APW~@N H V!t0G~@LX H @ |i H Uo/~@Kp H @CY
~@KX H mO7~@Jx H mO7~@JH H R U}~@JP H @mZ O~@Ih H @CY
~@Ip H oH H m{ @(` H V!i~@I H @CY
~@I H mM\4'~@H` H @CY
~@Hh H R U} ~@Hp H @
~@HP H m{ @'X H R U} ~@H8 H m{ @'0 H @ 5Ha |: H @ 5Ha|9 H @
~@F H V!t0G~@Eh H @//~@E@ H V!i~@Dx H nVm<~@E H V!t0G~@D8 H @= /~@Cp H @6G~@C@ H V!t0G~@C H @:
#M/i ~@@h H @/7~@@0 H @
~@@ H @ 5Ha l H @ 5Ha|q H @:
~@? H @
P^y2|e H @ 5Ha|e H @:r'~@=p H qf,a_~@=P H @:q?~@<@ H @:q ~@< H @
3 7 |Y H @
3 7 |[ H V!g/~@:p H `S1w~@:P H R U}~@:X H V!g/~@:( H AAVw~@9p H o
#M/i ~@9 H AAVw~@9( H V!t] ~@8p H @:r?~@80 H laYvw~@8 H U o
3 7 |3 H `S1w~@6P H @=~~@6X H @ '~@5H H mMb g~@4x H m{ @ H m{ @P H m{ @ H m{ @P H m{ @ H m{ @P H m{ @ H m{ @P H m{ @ H m{ @P H m{ @ H m{ @P H m{ @ H m{ @
P H m{ @
H m{ @ P H m{ @ H m{ @
P H m{ @
H m{ @ P ( ( |