Google
 

Trailing-Edge - PDP-10 Archives - BB-H580C-SB_1981 - cmlvok.rel
There are 16 other files named cmlvok.rel in the archive. Click here to see a list.
 d7~jn7k
I0d7~H @Gl	 ,>,>,>,> ^+,^,^,^,^,~-"
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	 D""2	ERROR-COUNT	PIC 99, USAGE COMP.
HVHZH\
H^
Ha	(D"*HeHeHfHfHgHhHhHjHk	"D"3HmHoHqHsHtHuHvHx	(D";HyHyHzHzHgHYH[H D-0010ONLY FH-0011SELECTIVE JH-0012FIRST NH-0013LAST RH-0014PRIOR VH-0015NEXT ZH-0016DUP ^H-0017ALL bH-0018AREA fH-0019RECORD jH-0020SET nH-0021UPDATE rH-0022RETRIEVAL vH-0022RETR zH-0023RUN-UNIT ~H-0024PROTECTED H-0024PROT H-0025EXCLUSIVE 
H-0025EXCL H-0026CURRENT H-0027SHARED H-0028JOURNAL	*(@-" <|, @ <~, <, @Q B * W  T @ <,+	("E#-"   @ <, <,, D <,, D <	,, D@@ <,	(D* +4@,4@6 +1  @,! <,, <,4@ B  8 @.	(E(U 4 <,4@1 
8 < ,36 -+; (`9 B3,! <",0,6@8+(	(UU*< <.,,M <0,14@B BcL8+> <2,+> <3,=7 7+5 <7	*
QE,C <8,8 <9,O+  <9,G@+O@ <:,+I	"P(U*MO@ <;,>4@ BcL8+M =1@+@ <C, <D,E6@C+G"I	 
A(V,>,>8,>8 + @ , @ <J,N4@h BcL8+Y@@M"I  8Q A`	 D
T^ @ B <M,"N @ B,,; <O,Z4@Y BcL8+c  8 @9	*U(
g <R,T+c6@\+S * @X + @,^5NW,^,^1B+\ <`,c	(*D*o4@ BcL8+n <b, <d,o4@n <g,4@icL+r <k,s4@r	*A"*x <n,w4@v B7@8+x <q,4@r B <t,5`w4 x <y,t4@z	 U*T( BcL8+~,;+x6 T+M,;+M <,{4@ B <,,~ 'p	 @ 	Q&A`  F^ H 'pQ&A`  Fa H 2+ 2,),,~ 'pQ&A`	"
Q"  F
 H 2 &"   @! <, @.  @
 <, Q A`	*
@@ <,1R
Z8,@f,!",@R,~<@<,g6A#+ <,%5p<,',~6&,~><	(D+,:,~"#pQ"A@ p 	p@@@@4F1F
< @"I N.`<=b>   @0!6@)5p" 8"$0b4@%+
' &:	(D*(D -1@ &31@ &41@ &5 <.,",~ <0,",~ <1,",~0d	*E
(M+O <3,",~ <4,",~ <6,",~ <7,",~ <9,",~ <:	(U,",~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 "	 f PIC S9(18)X(30) USAGE COMP USAGE COMP-1 USAGE COMP-3 USAGE DISPLAY-6	 o USAGE DISPLAY-7 USAGE DISPLAY-9 USAGE DBKEY (1) OCCURS 	02 FILLER PIC 	  wX(1).
0,,0,(p{x}Xx~	 `$%x&hh	(
(hhxxp <
 <,+IH',,<<xv`x	* x <,+IhpSYSCOM	"( "H,,<<!h7B+K0b " B	"U"(* 8 @@@ <&,44@K+<x`x/x8		"" 3x%x) <4,%+DxAxwx8`	*PU(;x:$800001p(>6 @+n <?,++nx8	"
@*Dh*@p( <F,B+U<8`xI	 *@*Lp08`xNxx9 <S,(+i	"U*E*Uh/4x,5@l x <U,"+lhx6x,5@n x	*A**] <Z,"+n`x_x8`xc	 P*(fpfx <h,+I`xj`	*PPnxmx8x <r,i+Ip88p	*A*P
w <v,s+xpx x <Z,"+xp <},w+x	  xx <,~+Ip88xph	 ((p <	,+`

p	 U"(p-+ <,T+&x+`
p8	"U"PL<,!<,+(x@p<O@. &+1$8$8	"TU*!x7 <",H+A8x <%,+IDILKCC	*U @ *OCCUPRS08pxp0p2	"E2px1p.0p3p4p5px(;6	P$yb#M/iP$yP$yb#M/iP$yb#M/ib#M/iGg	rb$	D #7%r#7&v#7&x)a]6
IFT3mR=K0J!bKKJLD,}!bLCz	DM^e/M,-,bM.d@AU	`5HaRP^g`5HaRP^"g`u-	D"]?u#%]Hqs&bu;Pbu<Rbu=S^t[:U^u
d7~#eB1[@hWM	Dh9|!c	,"G)	?M-7bf,P	VjscH
3	7T{SGX{}*T|*.|/"BJ#9+]R"QqM	D+^a*+^a+`]ywh]&:di~0di~/Gdi~i#*	j?H8PAVp-gMwrdr:^++dvvc?5
y1G
)O"122	D"4ZcGh4ZiG4=|!Y4zrM4|[e5
&`P8-U9NU	U9N:C	P83#U9PUU9P4CP8&c9L:9LgU9LU8'rU9L@C	D9LS#;,!n;R8?`#)-p[}eLO7eLE17Y<MP|eP!ePxRbURO+UHkgfZ%	$f4GIfwg	D"=}i1i0j2!y0=};3=}<4=}=5k{9B	"fjf
IkKj1f!ic?	Vx?h-PcD#wW77"%3y	W7&3xW7(cI{W7*vyW7*wtW7.pvW7.FuW7.}OtW70zPd3[v	W70$*rW74J]uPJq`Jy*`Jy3`4Zg(</gg+F=O`K1T	`K>`KPk`KPo`KPp`KW	`KW`KW`KijW.}Pi%~PHw|PI@*|WHp{HAPW~@GHAPW~@FxHAPW~@F`HAPW~@FHAPW~@FHV!t0G~@DPH@|?H@CY
~@ChHmO7~@CHmO7~@B`HRU}~@BhH@mZO~@BH@CY
~@BHo`Hm{ @#xHV!i~@AH@CY
~@A HmM\4'~@@xH@CY
~@AHRU}~@AH@
~@@hHm{ @"pHRU}~@@PHm{ @"HH@5Ha|H@5Ha|H@
HV!t0G~@@HV!fIG~@?PH@CY
~@?XH@//~@?HV!i~@>`HnVm<~@>hHV!t0G~@> H@=/~@=XH@6G~@=(HV!t0G~@=H@:
#M/i~@:H@/7~@9hH@
~@9PH@5HalMH@5Ha|H@:
~@8PH@:r'~@7(HV!g/~@7 Hqf,a_~@7H@:q~@5pH@
3	7|(H@
3	7|*H`S1w~@4hHRU}~@4pHAAVw~@40H o
#M/i~@3`HAAVw~@3hHV!t]~@30H@:r?~@2pHlaYvw~@2@H o
3	7|)H`S1w~@1H@=~~@1H@'~@0HmMbg~@/@Hm{ @pHm{ @0Hm{ @pHm{ @0Hm{ @pHm{ @0Hm{ @pHm{ @0Hm{ @pHm{ @0Hm{ @
pHm{ @
0Hm{ @pHm{ @0Hm{ @
pHm{ @
0Hm{ @	pHm{ @	0Hm{ @pHm{ @0((;