Trailing-Edge
-
PDP-10 Archives
-
BB-Z759A-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 @Od
COPYRIGHT (C) 1984 DIGITAL EQUIPMENT CORPORATION
,> ,> ,> ,> ,> ^ + ,^ ,^ ,^ ,^ ,^ ,~ -" =
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 (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 --" @ <,, <-, S D <0, S D <2, S D @@ <4, (D* 54@7, 4@:6 + ; @(, D <<, , <A, 4@D B 8 @8 (E(U > <G, 4@;
8 <I, Z6 7+ E (`C B=, D <K, :, 6@8 + V (E(* F <\, , ]@@ , <^, ;4@N B cL8 + I, ! <`, 4+ I7 A7@H *T
U* O+ P, E <b, I4@T B cL8 + P <d, 4+ P <e, G7 N+ g <i, U (A*( W <j, <k, O + <k, Y@ + O@ <m, P4@ @ B "E * `cL8 + ] o1@ + r <u, 4 @ @ <v, W6@U+ y"z,> D* h,>8 ,>8 3 @ 4 @ <|, ^4@y B cL8 + k@@]"z 8 Q A` c (E** q <~, " , 2, b <, l4@k B cL8 + t 8 @C <, f+ t *T
U y6@n+ 2 @j 3 @ ,^ 4N , )5@ ! <, F,^ ,^ 1B +
*A*T" <, t4@ B cL8 + <, 4 <, 4@ <, 4@cL + < *D*
, 4@Z < ,
4@
B 7@8 +
< , 4@! B <#, -5`%4
"T
U* 1T + ' <*, 4@, B cL8 + /, b+
6 f+ ], O+ ], 64@17n *U*P
+ !7 6@N+ <4, DO@ , ) ! <6, F,~ ,> 7@8 + (7 6@ *Q*" $+ & <8, O@# 8 , ) ! <6, F,^ ,~ <;, 4@= B <?, - ( ,,~ 'p Q&A` p 'p Q&A` r 2 @@d+ 3 2 , M, 7,~ 'p @
Q" 5Q&A` . 2 &" @+ <@, ( @8. @0 <A, ;Q A` *
@ = @6 <C, 1R1,~ 5@FZ 8 @w, Dp: @ R ,~ <I, ,~ "*U F !p @B !p 8@A<K, x6AF+ N <P, H5pU<X, J,~ 6#,~ (<Y *U( N, %, :<Z, N7@1+ R <[, P,~ #p Q"A@ p p @@ @@ 4F " W1F
d & D k1@ & <1@ & =1@ & > <l, F,~ *
E
p <m, F,~ <o, F,~ 0d + v <p, F,~ <r, F,~ <s, F,~ *( y <u, F,~ <v, F,~ <x, F,~ 01 DBMS-NULL PIC 99 USAGE COMP.
DBM S SECTION.
ENTER MACRO SBIND USING ENTER MACRO BIND USING ENTER MACRO EBIND U
SING 0,DBMS-NULL.
01 02 " PIC S9(10) S9(18) X(30) USAGE COMP USAG E COMP-1 USAGE COMP-3 USAGE DISPLAY-6 USAGE DISPLAY-7 USAGE DISPLAY-9 USAGE DBKEY (1) OCCURS 02 FILLER PIC X(1).
OF 0 , ,0, ( @* # p # x % Xx ' ` G I (x ( , . h , h /h ,` * "" 4 ! ! p <6, + Zx <9, 8+ ZH / 4 "D U = 4 F Fx v` ? ! @ @x <D, : (
E+ Z h Fp SYSCOM H 4 4 F * * N F Jx <O, E+ Zh Fx <T, P+ Z7B (*Q V+ P0b " B 8 @*@@* <R, >4@T+ Fx ` ? ! * *@" _ ] @x 8 ` ? ! a @x 8 x -x 1 <f *( g, /+ Vx Kx wx j ` ? ! l @ $8 00001 U* p p 0 o6 g+ <q, R+ x 8 h 2 Jp 0 "P
P x <x, s+ g<8 ` ? ! { @p 08 ` *P
Q( ? ! @x x B <, L+ zh 8 = !h ! *U( ? !, )5@ ! < , F+ ` ? !
` ? ! @ p @x <, U+ Z ` ? *A* * ! @ ` ? ! @x 8 x < , + Zp *T
# 8 8 p <$, !+
! < , F+
p ) @x "P
A( + <+, &+ Zp <., ,+
x <1, /+ Z00000 "E"U 4p 0 3h 6 9 !P 0 3 F 4 E 4x x "P < <<, 2+ Zp 8 8 x p h p T E <E, =+ ` G Hp p 5 *Q " M Y <M, + Jx Y ` G Pp A PP <Q *Q" V, E <T, N+ Kx Jx Fx p C O@U & + X$8 U U* ^$8 x @ <_, y+ h8 x <b, F+ Z k p s r j *U( g j v j j | w y z08 p ! p 9p (Q A o ;p ! :p 7 9p <p =p >p * x ! ? P$y b#M/iP$yP$y b#M/iP$yb#M/i Ub#M/i MRF]& RGg Pr D" b$ 9#7% #7&
#7&
)a] ?P vv ": E @" Lj b2OFn %V. b8
I XT3mR G RK0J! bKK [LD,} D D" bLCz VM^e VM,- SbM. < d@ K U `5Ha =RP^g `5HaRP^"g D"bP^y2 P` u- \]?u# -]Hqs .bu; wbu< ybu= z^t[: |^u
d7~ - ceB1[ JhWM h9|! t ,"G 1R|g P @Wr ?M- @bf ZP Vjs D" cH
cKx7 cK| S'a[. P $ S]og S]o) c^hHn ,cwS rd
3 7
2Q T{SG X{}* T|*. @ |/" LJ# B +]R T"QqM +^a 2 +^a 3`Q^l$ !lK ( D"TY9*# d]yw y]& Ddi~ Odi~/G di~i ` * j?H APAV " Tp-g PMwr dr:^+ 5\R% \R5 !ty g dvvc? g
y1G = R
MO F 1 1 2 2 4ZcA 4ZcG y4ZiG 4=|! k4zr ] @ 4|[ )e5
& qP8- U9NU U9N:C P83# U9PU U9P4C P8&c U9L: U9Lg U9LU P8'r U9L@C U9LS# ;,! ;R8 I`#)- " p[} eL O7 eL E1 7Y FMP| -eP! ePx UR b URf URO+U H kg fZ% .f4G Z "fwg >P =} i :i 9j ;!y 9 =}; < =}< = =}= > /YK NVWA V"= V$7 V C k{9 T k~ Pf jf
I $ kKj ;f!ic? WVx?h- PcD#w W77"%3yW7&3xW7(cI{ W7*vyW7*wtW7.pvW7.FuW7.}OtW70 zPd3[vW70$*rW74J]u " P Jq ` Jy* ` Jy3 `4Z 2g(</g 6g+F=O ?` K1T ` K> ` KPk ` KPo ` KPp ` KW ` KW ` KW ` KW ` Kij W.}P i%~ P Hw|W0UI{P I@*|P kR~WHp{ H APW~@Nh H APW~@NP H APW~@N8 H APW~@Mp H APW~@MX H V!t0G~@L( H @ |f H Uo/~@K@ H @CY
~@K( H mO7~@JH H mO7~@J H R U}~@J H @mZ O~@I8 H @CY
~@I@ H o H m{ @(0 H V!i~@HP H @CY
~@HX H mM\4'~@H0 H @CY
~@H8 H R U} ~@H@ H @
~@H H m{ @'( H R U} ~@H H m{ @' H @ 5Ha |7 H V!t0G~@GH H V!pi'~@F H V!fIG~@E` H @CY
~@Eh H V!t0G~@E8 H @//~@E H V!i~@DH H nVm<~@DP H V!t0G~@D H @= /~@C@ H @6G~@C H V!t0G~@Bp H @:
#M/i ~@@8 H @/7~@@ H @CY
~@?h H @ 5Ha l H @:
~@>h H @
P^y2|e H @ 5Ha|d H @:r'~@=@ H qf,a_~@= H @:q?~@< H @:q ~@;P H @
3 7 |V H @
3 7 |X H V!g/~@:@ H `S1w~@: H R U}~@:( H V!g/~@9x H AAVw~@9@ H o
#M/i ~@8p H AAVw~@8x H V!t] ~@8@ H @:r?~@8 H laYvw~@7P H U o
3 7 |3 H `S1w~@6 H @=~~@6( H @ '~@5 H mMb g~@4H 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 ( ( y