Google
 

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~jn7k
I0d7~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.
HHH
H
HH	"D"3HHHHHHHH	(D";HHHHHHH H!H#	"D"DH$H$H%H%H&HHH LH-0010ONLY PH-0011SELECTIVE TH-0012FIRST XH-0013LAST \H-0014PRIOR `H-0015NEXT dH-0016DUP hH-0017ALL lH-0018AREA pH-0019RECORD tH-0020SET xH-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 BcL8+I,# <c,7+I7 A7@H	*T
U*O+P,E <e,I4@T BcL8+P <g,7+P <h,G7 N+j <l,U	(*D*W <m,8 <n,O+  <n,Y@+O@ <p,P4@ @	 Q(*` BcL8+] r1@+u <x,7  @  @ <y,W6@U+|"}	 
A(h,>,>8,>8 3 @ 4 @ <,^4@{ BcL8+l@@]"}  8Q A`	(D
Tq @d B <," @ B,5,e <,l4@l BcL8+u  8 @C	*U(*y <,f+u6@o+ 2 @j 3 @,^4N,+5@ $ <
,I,^	 UU(,^1B+7 <,4@ <,4@	"T*
cL+ <,4@Z < ,
4@,B7@8+4<&	*E(*,.5`(4"7 6@N+  <7,DO@,+ $ <9,I,~,>7@8	*U"T
$+*7F6@+',<;,O@%Q8,+$ <9,I,^,~ <>,4@@	"@, B <B,.,~ 'pQ&A`  Fq H 'pQ&A`  Fs H 2@@d+5	"@*5 2,P,:,~ 'pQ&A`  F0 H 2 &"   @+ <C,( @;	"D(D*=.  @2 <D, >Q A` @8 <F,1R3,~5@IZ8 @y,G = 	 U*F @ R,~ <L,,~ !p @E !p @D <N,z6AI+Q <S,K5pX	**U N <[,M,~6 $,~ <\,&,: <],Q7@4+U <^,S,~ #pQ"A@	 W p 	p@@@@4F1F
_ #pZ 1F+d/&F>`=da,~  8Q A` @"} .	*E""h`f=bh a @0a6@P5pc 8"d0b4@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 ,`JL+x.h/h2	 (4h/`$$p <9,+[x	*E
= <<,;+[H/44FFxv`B$	* ECCx <G,=+[hIpSYSCOM	"(NH44FFMx <R,H+[hI	 T *Vx <W,S+[7B+S0b " B 8 @-@@- <U,>4@W+F	"(*_x`B$`Cx8`B$dCx	 E(@g8x-x1 <i,/+VxKxwxm`	*PU(pB$oC$800001p0r6 j+ <t,U+x8	"
@*xh2Jp0 <{,v+h<8`B$~C	 *@*p08`B$CxxB <,O+|	"Q*U 	h8=$h$?$,+5@ $ <
,I+`B	*@
P($Cx8`B$CpCx	*A*( <,X+[`B$C`B$Cx8	 T*#x <#,+[p88p <',$+
,I	(
@*++,Cx <.,)+[p <1,/+

4 <4,2+[00000p06h69$P06F	*@
@<4E4xx<?,5+[p88xp	 PEhp <H,@+`J	(*DMKpp5\ <P,+Mx\`J	(E*D VSpA PS <T,H <W,Q+NxJxFxp	(DT^CO@X &+[$8$8x@ <b,|+k8x <e,I	*U*U g+[nsvummymmz|}08p$	 "Eop9p;p$:p79p<p"(x=p>p$?	P$yb#M/iP$yP$yb#M/iP$yb#M/iXb#M/iPF]&Ggr	D"b$<#7%#7&#7&
IXT3mRGK0J!bKK\LD,}G	D"bLCzYM^eYM,-VbM.?d@KU	`5Ha@RP^g`5HaRP^"g	D"bP^y2S`u-]?u#-]Hqs.bu;zbu<|bu=}^t[:^u
d7~-	ceB1[JhWMh9|!u	,"G1|g	@Wr	?M-@bf]P	Vjs	D"cH
3	7
2Q	T{SGX{}*T|*.	@|/"LJ#B+]R"QqM+^a2+^a3`Q^l$#lK*	D"TY9*#d]yw{]&Ddi~Rdi~/Gdi~ic*j?HAPAV	"p-gMwrdr:^+5\R% \R5"tygdvvc?j
y1G	=U
POI	11224ZcA4ZcG{4ZiG4=|!l4zr]	@4|[+e5
&rP8-U9NU	U9N:CP83#U9PUU9P4CP8&c	9L:9LgU9LU8'rU9L@C9LS#;,!;R8I`#)-	"p[}eLO7eLE17YFMP|.eP!ePxRbRfURO+UHkgfZ%	.f4G[	"fwgA=}i:i9j;!y9=};<=}<==}=>	/YKNVWAV"=		V$7	V C	k{9Tk~Pfjf
I$kKj;f!ic?ZVx?h-	PcD#wW77"%3yW7&3x	W7(cI{W7*vyW7*wtW7.pvW7.FuW7.}OtW70zPd3[vW70$*r	W74J]uPJq`Jy*`Jy3`4Z5g(</g9g+F=OB`K1T`K>	`KPk`KPo`KPp`KW	`KW`KW`KW`KijW.}Pi%~PHw|W0UI{PI@*|PkR~WHp{HAPW~@OHAPW~@OHAPW~@NhHAPW~@N HAPW~@NHV!t0G~@LXH@|iHUo/~@KpH@CY
~@KXHmO7~@JxHmO7~@JHHRU}~@JPH@mZO~@IhH@CY
~@IpHoHHm{ @(`HV!i~@IH@CY
~@IHmM\4'~@H`H@CY
~@HhHRU}~@HpH@
~@HPHm{@'XHRU}~@H8Hm{@'0H@5Ha|:H@5Ha|9H@
~@FHV!t0G~@EhH@//~@E@HV!i~@DxHnVm<~@EHV!t0G~@D8H@=/~@CpH@6G~@C@HV!t0G~@C H@:
#M/i~@@hH@/7~@@0H@
~@@H@5HalH@5Ha|qH@:
~@?H@
P^y2|eH@5Ha|eH@:r'~@=pHqf,a_~@=PH@:q?~@<@H@:q~@<H@
3	7|YH@
3	7|[HV!g/~@:pH`S1w~@:PHRU}~@:XHV!g/~@:(HAAVw~@9pH o
#M/i~@9HAAVw~@9(HV!t]~@8pH@:r?~@80HlaYvw~@8HUo
3	7|3H`S1w~@6PH@=~~@6XH@'~@5HHmMbg~@4xHm{ @Hm{ @PHm{ @Hm{ @PHm{ @Hm{ @PHm{ @Hm{ @PHm{ @Hm{ @PHm{ @Hm{ @PHm{ @Hm{ @
PHm{ @
Hm{ @PHm{ @Hm{ @
PHm{ @
Hm{ @	P((|