PDP-10 Archive: decus/20-0108/cobedt.rel from decus_20tap4

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0108/cobedt.rel

There is 1 other file named cobedt.rel in the archive. Click here to see a list.

 0Lj(H @q$	"
"	` o B
&p
&	 r@`*"f r, s
&u,+,+{+	 A 8a@
&@(,`+(`B@a@1+o0B 0b-1hB=( !&{/(4Hw $' 
A
2D	*@**f4' e|Rg'D*:CN G>nG>n)E2|:`M]>

=`Qf(?=PP	*P*"(p<'`px|~
&4+/7
*,,,3D(	(*+/,`+0B1B++1B++l,~0B0b,~$$.$h+4 	(AE(;+4l+/ * $ Dm *7D+A2D  J,,,f,>>	 Q(QD&"!(@`.(4DG`=dF**.*0&t 
**5BNj=fI``,~	 U(P(L,^1B+B+/
&
&	+/7
 *,,,3 0B+U,3*1B	(U ,>7@ *7@ &1J(F$& "&"6@ !(@``B!( `(B	** ].(+G 8Z`,,,~ ,9,A1B`,9,9,A0"0b	+q	 U*U*f0"0b+

g+!rmmnn|c,9+c,9	(*T"nZ-0Bz1B`+m+c
&
&+r7F+^7J:
e`+w0&7
 *	(*U(w *l 1J &1J &6@$,D@@+^,9,>-,9,A1B	+
	"1B	+0B`#,^@@)"$&.&x5B F,A1B+r1B+		*(P",9+l +,9+,9,A1B+ 
%@4B!$|[2B	* P**d^aBZ`4"&5B+1B+`&1B+`& Hd`	* E"++c@0"0b

+$$.$x+.(=,9,A1B++

	*U" !()%$+/7
0 *7H  H2H`0+cm l  *	  *&"6@."$"+c @@,`,~1B+-0B1B "0B1B "	 @D*2B0B+-@B:x,~7B B1B+6,~,6 % 3@@	*
";*"/7B Bh4B@0B+@3D%B,~B+< $I7F+H (-	 C[Z` 
.$2J 9B.(=fD,~@,~e$YT]	 La&M9Ja& kN

y`(gft::O)2(gft00UWJ3Sn0UW@8	5TE2r58xS:$^I$Pgm9<	 Te,X0`i<i&l\`l@ 4,+o7@!$;2,+:+>	**U*n 8^+	,d+`@ ?,j+,l+m+m,^ * B,k
&C	*U D"v
&	+o6B+z
&F
&	+!(M,+L+ @@ ".b`@+.	"U*P/"&$/ Be7H+ H H. 1F/&&"."$(/(@	"U(Q*$(#H
&N,q+*+O@,,+R+V`@+
&X,)X2B	(*dl4%@Y&(#)"

.$#(!-h
&7,0B!0B+d+r+	*E*U*) $	,O> &5d"
&[
&	+*+,2	b	*P(
2+,8+4+2d@,~* +@&@]O@,,~l,+
*:+I7 @_,fQ& ,z@bX:p ,E Bc+B,8+C,c+H	*E*UC=zA
&d
&	6@,++i,,+	"DPK#`+= d&" j.(6@`=dO 
j

dhA$0B;x	(DPT=lQ,~ d&" .(6@`=dW 
j

d0B;x=lY,~	*@A(\,a+ d&(6@	(P"*e@o

 
j t:x,~,f0F@t,>d@,V w x ,0X	(m+p/6.:aZ.x+s0B`+s.:=vp
&x d
&[,k "	 *@v
" "h/",k/x[Zd/dZZd.d.x "
"l@@,1B,
,d8Q`5Vl:,:+jyzz{
&	,^+*5X{=v,^xaz,
+j|@@*",~,+ j &+  & d&".(6@`=d 
j

d	(*1FhB=l,~,a+,=z$d@+
$+ d@
&	,>
$+ ,,*+,+/+/*+,	**
1+1+2
2:,,k
&

&	O@,7B,~`BB,~d@,Va@	"*:.0A	"U"D"B`@+G7B7@+F
& Z`2B+Q:x:,l>@,~  B	*Q*K6P,A+ =pK,~//07@,~
&
&	,~
&
&	
& ,k	*US
& ,k
&	+.0Q`,+e`@	"E*(\0B=pZ e "4P`,Z+e=p^>@,~  B@6P,^+ =pc	"Q Ad,~
&
&	+f`@,,,3 1B,3*/&4&(,~&"QDx6@	( m,k[x."
",~  ",  $`@ $, ", 	*P"D"u4Bw,'+v+u,~1F+l,2,+[ ,1&+x/&4F,8	"(~,~=f}:x,~/444	 ,P.,(L.,(L

.,H1B+2B,~ $	( (9 $`=d,~ 49>xZ
&
&	$1D+	*T"U"
&
&	+^/  B- 3*",1B+1B	(*(+)B1B
=j
&	@/*t#J-d@,~
&,f@@0B	 D
D
 <>d&$.w6@`=f# De d
<h(0B(@=h&:x	 D*E(,~`@+0Jt@"ld+! w 2 4  ,." Bl,o	"E*T1d $$,O+

36>CFK ,`@0B=v2 $		(U(9,O,~7@,S $,O $v,O,~ ",0"0bih0,v	*

B+B+7 ",0B1B+7+A ",,o/65v7
&$
&		*D(A*J+J ,,o ",A+N/6+GQ$A`4BR,M+Q+P,~	*T E(S ) B ",p), 
`@ *B w5BZ=jX+]

[,+Y	 U [SA 1 2 ",t ",^ ",_ * B ",T ", w	"D"d (

`@,B4Dj&("0$,` "(,h:=lf ",i "	(T 
COBEDT VERSION 4.0h~?CANNOT INITIALIZE T	 *uTYENTER COBOL FILE TO EDIT: ?INIT FAILURE FOR DEVICE DSK:
&x
&	+?FILE	  } CANNOT BE FOUND
&}
&	+FD-H%COMMAND TO LONG%BAD COMMAND	 ,`%CANNOT MIX SIXBIT AND ASCII RECORDS?EXCEEDING MAXIMUM RECORD SIZE?THES	 E POSITIONS HAVE BEEN COVERED%SECOND COMMA ILLEGAL%POSITIONS NOT ON A WORD 	 @BOUNDARYH%ILLEGAL TO USE LEVEL NUMBERS 66 AND 88%REDEFINES ARE ILLEGAL`	  ?YOU HAVE CONFUSED ME ON LINE: %CONFUSION IN 'OCCURS'H-9%BAD PIC STRING	 (%INDEX USAGE IS NOT ALLOWED`(%DATABASE KEY USAGE IS NOT ALLOWED`,	 `0?CANNOT MIX RECORD MODES!X.%FILE COMMAND ILLEGAL IN FILE MODE?INIT FAILED FO	 T9R DEVICE
&7
&	+o?LOOKUP FAILED FOR FILE
&;
&	+o%COBOL RECORD SCANNE	 AR UNAVAILABLE POSITIONS SCANNED FOR RECORD%RECORD SIZE MUST BE ENTERED!?CANNOT IN	 (JIT DEFAULT LIST DEVICE
&I
&	+{ENTER OUTPUT FILE NAME ?CANNOT INIT DEVICE	*@QR
&P
&	+?CANNOT ENTER FILENAME
&T
&	+ML-$%ILLEGAL COMMAND	 [%AT BEGINNING OF FILE%CANNOT RENAME FILE%LINE RANGE MUST BE SPECIFIED%NO SUCH R	 (cECORD%SEARCH FAILED%NOT IMPLEMENTED FOR DOUBLE WORD@fHH-%COMP FIEL	 lD MUST BEGIN ON WORD BOUNDARY%COLUMN RANGE DOES NOT END AT END OF COMP FIELD	  t%LINE RANGE NOT PERMITTEDH

INSERT:%SOA	12=@%DOUB	}LENPRECISIONRNOTYETCIMPLEMENTED@|%CANNOTUINITOUTPUTDEVICE%CANNOTHENTERF	ILENAMENSPECIFIED%BADOLINE RANGE%EOFMENCOUNTERED	INVOLVE DIFFERENT DATA TYPES%NO MATCH PERMITTED. %A COMP FIELD IS LARGER THAT R ('ECORD SIZE

@REC #

@vZ	 4
RECORD N	- THE SIZE OF THE RECORD
BLOCK N 	- THE # OF RECORDS PER 128 WORD BLOCK
	 <NOACW		- THE FILE CONTAINS NO INTERNAL COBOL ACCESS WORDS
FD <FILE.EXT>	- SCAN THE F	 ED GIVEN INTO INTERNAL FORMAT
SIXBIT M:N[,M:N]- SPECIFY SIXBIT FIELD SPECS
ASCII M:N	 M[,M:N]	- SPECIFY ASCII FIELD SPECS
COMP M,N	- SPECIFY COMPUTATIONAL FIELDS
COMP-2 M	 V,N	- SPECIFY DOUBLE PRECISION COMP FIELDS
		- (NOTHING) PROCEED TO MANIPULATION LANG	 ^UAGE

D<R>		- DELETE A RECORD
E<FILE.EXT>	- EXIT NAME THE FILE (OPTIONAL FN)
	 gF<STR>$<COL>,<R>- FIND THE STRING GIVEN IN THE COLUMNS AND RECORDS SPECIFIED
L<FILE.	 oEXT>	- LIST ALL OUTPUT TO THE FILE GIVEN
R<STR>$<COL>	- REPLACE THE COLUMNS SPECIFIE	 xD WITH THE STRING GIVEN
S		- TYPE THE SCALE FOR THE RECORD GIVEN
$		- (ALTMODE) MOV	 E UP A RECORD
LF		- (LINEFEED) MOVE DOWN A RECORD
%FILE IS BLOCKED WITH NULL REC 	ORDS 
	(TZOGW$D  * ,  c e	D"bb-#mb*Yss`wWKb`{'{Z`{(UP{[$cs`4wcI*=	D"]\)1c3D	PiPi2dP(2nf
c76|A2	z#,RHFKP=xKI
2KQpf%!P	D")(	LiTUPPLjf/Lj(UPQmQQmP	QnURMKPQyP)MiNWd@	o;P^THP^nB*	"CoPf$@qVG!bgFf,bgF8I1bgFcbgH

fbgH2IbgHYQ	D"gH^ObgJfo`~T(nbgJ,Irbgi&f-`8(KbgiLI.	9=e	C:=	D 	C:=z	C:Kw}\@,}\a:+Y6@Y<`Y> }K	`!l<4	D!lK.	WD8!m2	xu%Y	xu*U
mmSH

k
xo @ A
$(!	D
$)) AA BBSKz
&!=KzK8 HI MH

M9c	@g[ 49vSGxdS/H
NLP4EQ ];F
NtC9(T4x<	D"(T4y@(TVm4(TVm4(TVn;(TVw3(Tm-=(Tm-M(Tm.Q(Tm28	@(Tm3G(Tm=P
b7R #\'+#u%'SS:p$(,Z	"Pz7	^\&~
$S^b^{4p^{4r^{4s^{4j^{4h^{4!l	@"|W[^{49S{S}"QO%?w,+,

BQHiPAQ>IWMP7r~vG$	@"G9w0t<TY/$<0!m
)n0kPS]3:j?H	D"j?H
j?Hj?Hj?H	j?H|l*o`u^
"u^v
&	@"gx%B2>H=@UHI@UHmx	DeI9I"[S+&BU
<mxt

hY$

hY%

h_(	D"

hc!

hd"

(U*C

(`mK

(`s3

(aG

(aF

)=27

)=2,	D"

)=;2

)DA

)D->

)DQ6

UJ-em-Zm2Vm=	D"7!*"5%"5%&y3uMi77lx4zBW(4zH54zHBz	@4zZ.4z\U4zt_5(3 *K

5;*[	`1;,~8-	D"sJ:`9%sJF,L&SMPy;[MQh-MQs,Py{$8-?	D"9N	BPEODPFN9NGQ&6V?Q^V?QcV`2H-UV`Cxt	DV`o0V`p.-Neo=t`<
3U5mEqz{f`r#eH@
f