Trailing-Edge
-
PDP-10 Archives
-
BB-4148E-BM
-
sources/cmlvok.rel
There are 16 other files named cmlvok.rel in the archive. Click here to see a list.
d7~jn7k
I0d7~H @O$ ,>,>,>,> ^+,^,^,^,^,~-"=
01 SYSCOM.
02 ARE A-NAME, PIC X(30) USAGE DISPLAY-7.
02 RECORD-NAME, PIC X(30) USAGE DISPLAY-7.
02 ER ROR-STATUS, PIC 9(5) USAGE DISPLAY-7.
02 ERROR-SET, PIC X(30) USAGE DISPLAY-7.
02 E RROR-RECORD, PIC X(30) USAGE DISPLAY-7.
02 ERROR-AREA, PIC X(30) USAGE DISPLAY-7.
0 "2 ERROR-COUNT, PIC 99, USAGE COMP.
02 DATA-BASE-KEY USAGE DBKEY.
02 ERROR-DATA PIC "*9(10) USAGE COMP.
HyH|H~
H
HHH "D"3HH H H
HH
H (D";HHHHHHHHH "D DHHHHH
H|H~H L-0010ONLY OH-0011SELECTIVE SH-0012FIRST WH-0013LAST [H-0014PRIOR _H-0015NEXT cH-0016DUP gH-0017ALL kH-0018AREA oH-0019RECORD sH-0020SET wH-0021UPDATE {H-0022RETRIEVAL H-0022RETR H-0023RUN-UNIT H-0024PROTECTED H-0024PROT H-0025EXCLUSIVE H-0025EXCL H-0026CURRENT H-0027SHARED H-0028JOURNAL *(@#-" < , @ <", <#,& @Q K * W T @ <%,+ ("E,-" @ <', <),N D <+,N D <-,N D@@ </, (D* 44@3,4@56 +: @',@ <7,, <=,4@@ B 8 @7 (E(U = <B,4@:
8 <D,V6 6+D (`B B<,@ <G,9,6@8+Q (T*A*E <X,,]6 @+I@@, <Y,:4@N BcL8+I, <\,0+I *U U*N7 G7@H+P,D <],I4@T BcL8+P <`,0+P <a,F7 N+b *AT"V <d,U <e,8 <g,O+ <g,Y@+O@ <h,P (
@
_4@ @ BcL8+] j1@+m <p,0 @ @ <q,W6@U *T
g+t"v,>,>8,>8 2 @ 3 @ <w,^4@z BcL8+l@@]"v Q
Tp 8Q A`d <z,"{,.,] <|,l4@l BcL8+t 8 @B *U(
x<,f+t6@o+c1+@j2,@,^5N,^,^1B+ c<++<,4@ *A"* Q<,4@"B7@8+ <,4@B <!,(5`$4@ .<&,4@' U*Q* BcL8++,]+ 6@g+],O+],54@-7n+6@N+ <0,C *TU"O@,% <2,A,~,>7@8+$6@+! <4,O@ 8,%, *"@#,<2,A,^,~7<7,N <W (DM,K,~ #pQ"A@ p p@@@@4F1F
^ @"v {.`^=b` Z @0Z6@H5p\ 8"]0b4@_+
` &C (D*(g g1@ &;1@ &<1@ &= <h,A,~ <i,A,~ <k,A,~0d *E
(o+q <l,A,~ <n,A,~ <o,A,~ <q,A,~ <r,A,~ <t (x,A,~01 DBMS-NULL PIC 99 USAGE COMP.
DBMS SECTION.
ENTER MACRO SBIND U SING ENTER MACRO BIND 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 DIS PLAY-6 USAGE DISPLAY-7 USAGE DISPLAY-9 USAGE DBKEY (1) OCCURS 02 F ILLER PIC X(1).
OF 0,,0,(px! @*"Xx"`CD$x-h( +h*h(`p <2 ""E3,+[x <5,3+[H.33EEx UP<v`;;<x <?,6+[hAp
DSYSCOMH33EEEx <K,@+[ *MhAx <O,L+[7B+K0b " B 8 @%@@& *QTU <M,=4@P+Ex`;X<x8`; *@"T ^\<x8x,x0 <b,.+VxJxw "(*fxf`;g<$800001p/k6 c+ <l *E o,M+x8h1Ip/ <s,o+h<8` *P w;v<p08`;{<xx *Q*U"A <,G+{h7<,%5@~ <,A+~h> *U U,%5@ <,A+`;
<x8` *P(;<p<x <,P+[`; *((<`;<x8x <,+[p8 U("8p <#, + p%< <,A+ p "P*"* <*,$+ x <-,++[00000p//h58 (U((3P//E3D3xx <8,.+[p8 *;8xphp <A,9+ (D`CDpp4U <I,+ExT U(L`CLp@ PL <M,@ <P,J+GxI "@*UxExpBO@Q &+S$8$8x? <[,u+d *U*]8x <^,B+[flomeeqeews *(ftv08pp8p:p9p6( En8p;p<p=p> P$yb#M/iP$yP$yb#M/iP$yb#M/iQb#M/iIRF]&RGgPr D"b$5#7%#7& )a]>P
IXT3mRFRK0J!bKK\LD,}@ D"bLCzRM^eQM,-NbM.7d@JU `5Ha9RP^g`5HaRP^"g D"bP^y2L`u-X]?u#,]Hqs-bu;sbu<tbu=v^t[:w^u
d7~, ceB1[IhWMh9|!t ,"G0R|gP @Wr ?M-?bfVP Vjs D"cH
cKx7cK|S'a[.P$ S]ogS]o)c^hHn+cwSmd
3 7T{SGX{}*T|*.|/"K "J#A+]RT"QqM+^a1+^a2`Q^l$lK$TY9*# D"d]ywz]&Cdi~Jdi~/Gdi~i\*j?H@PAVTp-g D"PMwrdr:^+4\R%\R5tygdvvc?c
y1G =N
HOA1 "1224ZcGz4ZiG4=|!l4zr]4|[%e5
&r P8-U9NU U9N:CP83#U9PUU9P4CP8&cU9L:U9Lg U9LUP8'rU9L@CU9LS#;,!;R8H`#)-p[}eLO7DeLE17YEMP|(eP!ePxURbURfURO+UHZ% -f4G[fwg: D"P=}i9i8j:!y8=};;=}<<=}==/YKN @k{9Tk~Pfjf
I#kKj:f!ic?SVx?h-PcD#wW77{zW7 rW7"%3yW7&3xW7(cI{W7*vyW7*wtW7.pvW7.Fu W7.}OtW70zPd3[vW70$*rW74J]uPJq`Jy*`Jy3`4Z. @g(</g2g+F=O:`K1T`K>`KPk`KPo`KPp`KW `KW `KW`KW`KijW.}Pi%~PHw|PI@*|PkR~WHp{HAPW~@N(HAPW~@NHAPW~@MxHAPW~@M0HAPW~@MHV!t0G~@KhH@|bHUo/~@KH@CY
~@JhHmO7~@JHmO7~@IXHRU}~@I`H@mZO~@HxH@CY
~@IHoXHm{ @'hHV!i~@HH@CY
~@HHmM\4'~@GpH@CY
~@GxHRU}~@HH@
~@G`Hm{ @&`HRU}~@GHHm{ @&8H@5Ha|2HV!t0G~@GHV!pi'~@EPHV!fIG~@E H@CY
~@E(H@//~@DXHV!i~@D0HnVm<~@D8HV!t0G~@CpH@=/~@C(H@6G~@BxHV!t0G~@BXH@:
#M/i~@?pH@/7~@?8H@CY
~@?hH@5HalzH@:
~@> H@
P^y2|eH@5Ha|eH@:r'~@<xHqf,a_~@<XH@:q?~@;HH@:q~@;H@
3 7|QH@
3 7|SHV!g/~@9xH`S1w~@9XHRU}~@9`HV!g/~@90HAAVw~@8xH o
#M/i~@8(HAAVw~@80HV!t]~@7xH@:r?~@78HlaYvw~@7HUo
3 7|2H`S1w~@5XH@=~~@5`H@'~@4PHmMbg~@4Hm{ @Hm{ @@Hm{ @Hm{ @@Hm{ @Hm{ @@Hm{ @Hm{ @@Hm{ @Hm{ @@Hm{ @Hm{ @@Hm{ @Hm{ @
@Hm{ @
Hm{ @@Hm{ @Hm{ @
@Hm{ @
Hm{ @ @((u