Google
 
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~jn7k

I0d7~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}HH

H

HH

	"D"3H

HHHHH	(D";HHHHHHHHH 	"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--"   @ <,, <-,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 BcL8+I,! <`,4+I7 A7@H	*T
U*O+P,E <b,I4@T BcL8+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 BcL8+k@@]"z  8Q A`c	(E**q <~,",2,b <,l4@k BcL8+t  8 @C <,f+t	*T
Uy6@n+ 2 @j 3 @,^4N,)5@ ! <,F,^,^1B+
	*A*T" <,t4@ BcL8+ <,4 <,4@ <,4@cL+ <	*D*
,4@Z <,
4@
 B7@8+

 <,4@! B <#,-5`%4 

	"T
U*1T+' <*,4@, BcL8+/,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 <?,-	 (,,~ 'pQ&A` p 'pQ&A` r 2@@d+3 2,M,7,~ 'p	 @
Q"5Q&A` . 2 &"   @+ <@,( @8.  @0 <A, ;Q A`	*
@=@6<C,1R1,~5@FZ8@w,Dp:@R,~<I,,~	"*UF!p@B!p8@A<K,x6AF+N<P,H5pU<X,J,~6#,~(<Y	*U(N,%,:<Z,N7@1+R <[,P,~ #pQ"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'`GI(x	(,.h,h/h,`	*""4!!p <6,+Zx <9,8+ZH/4	"DU=4FFxv`?!@@x <D,:	(
E+ZhFpSYSCOMH44F	* *NFJx <O,E+ZhFx <T,P+Z7B	(*QV+P0b " B 8 @*@@* <R,>4@T+Fx`?!	**@"_]@x8`?!a@x8x-x1 <f	*(g,/+VxKxwxj`?!l@$800001	 U*pp0o6 g+ <q,R+x8h2Jp0	"P
Px <x,s+g<8`?!{@p08`	*P
Q(?!@xxB <,L+zh8=!h!	*U( 	?!,)5@ ! <	,F+`?!
 `?!@p@x <,U+Z`?	*A**!@`?!@x8x < ,+Zp	 *T
#88p <$,!+

 ! <	,F+

p)@x	"P
A(+ <+,&+Zp <.,,+

x <1,/+Z00000	"E"U 4p03h69!P03F4E4xx	"P< <<,2+Zp88xphp	 TE <E,=+`GHpp5	*Q"MY <M,+JxY`GPpA PP <Q	*Q"V,E <T,N+KxJxFxpCO@U &+X$8	 UU*^$8x@ <_,y+h8x <b,F+Zkpsrj	*U(gjvjj|wyz08p!p9p	(Q Ao;p!:p79p<p=p>p*x!?	P$yb#M/iP$yP$yb#M/iP$yb#M/iUb#M/iMRF]&RGgPr	D"b$9#7%#7&
#7&

)a]?Pvv":E	@"Ljb2OFn%V.b8
IXT3mRGRK0J!bKK[LD,}D	D"bLCzVM^eVM,-SbM.<d@KU	`5Ha=RP^g`5HaRP^"g	D"bP^y2P`u-\]?u#-]Hqs.bu;wbu<ybu=z^t[:|^u
d7~-	ceB1[JhWMh9|!t	,"G1R|gP	@Wr	?M-@bfZP	Vjs	D"cH

cKx7cK|S'a[.P$ S]ogS]o)c^hHn,cwSrd
3	7
2Q	T{SGX{}*T|*.	@|/"LJ#B+]RT"QqM+^a2+^a3`Q^l$!lK(	D"TY9*#d]ywy]&Ddi~Odi~/Gdi~i`*j?HAPAV	"Tp-gPMwrdr:^+5\R%\R5!tygdvvc?g

y1G	=R
MOF	11224ZcA4ZcGy4ZiG4=|!k4zr]	@4|[)e5

&qP8-U9NU	U9N:CP83#U9PUU9P4CP8&c	U9L:U9LgU9LUP8'rU9L@CU9LS#;,!;R8I`#)-	"p[}eLO7eLE17YFMP|-eP!ePxURbURfURO+UHkgfZ%	.f4GZ	"fwg>P=}i:i9j;!y9=};<=}<==}=>	/YKNVWAV"=		V$7	V C	k{9Tk~Pfjf

I$kKj;f!ic?WVx?h-PcD#w	W77"%3yW7&3xW7(cI{	W7*vyW7*wtW7.pvW7.FuW7.}OtW70zPd3[vW70$*rW74J]u	"PJq`Jy*`Jy3`4Z2g(</g6g+F=O?`K1T`K>`KPk	`KPo`KPp`KW	`KW`KW`KW`KijW.}Pi%~PHw|W0UI{PI@*|PkR~WHp{HAPW~@NhHAPW~@NPHAPW~@N8HAPW~@MpHAPW~@MXHV!t0G~@L(H@|fHUo/~@K@H@CY

~@K(HmO7~@JHHmO7~@JHRU}~@J H@mZO~@I8H@CY

~@I@HoHm{ @(0HV!i~@HPH@CY

~@HXHmM\4'~@H0H@CY

~@H8HRU}~@H@H@

~@H Hm{ @'(HRU}~@HHm{ @'H@5Ha|7HV!t0G~@GHHV!pi'~@FHV!fIG~@E`H@CY

~@EhHV!t0G~@E8H@//~@EHV!i~@DHHnVm<~@DPHV!t0G~@DH@=/~@C@H@6G~@CHV!t0G~@BpH@:
#M/i~@@8H@/7~@@H@CY

~@?hH@5HalH@:

~@>hH@
P^y2|eH@5Ha|dH@:r'~@=@Hqf,a_~@= H@:q?~@<H@:q~@;PH@

3	7|VH@

3	7|XHV!g/~@:@H`S1w~@:HRU}~@:(HV!g/~@9xHAAVw~@9@H o
#M/i~@8pHAAVw~@8xHV!t]~@8@H@:r?~@8HlaYvw~@7PHUo

3	7|3H`S1w~@6H@=~~@6(H@'~@5HmMbg~@4HHm{ @Hm{ @PHm{ @Hm{ @PHm{ @Hm{ @PHm{ @Hm{ @PHm{ @Hm{ @PHm{ @Hm{ @PHm{ @Hm{ @

PHm{ @

Hm{ @PHm{ @Hm{ @
PHm{ @
Hm{ @	P((y