Google
 

Trailing-Edge - PDP-10 Archives - DBMS-20_V6.0_bin_9-25-81 - 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&#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