Trailing-Edge
-
PDP-10 Archives
-
decuslib10-06
-
43,50413/cobedt.shr
There are no other files named cobedt.shr in the archive.
GT + GH8 G>Y ` s B
&t
& v@`*" v, w
&y, ^+ , + + 8a@
&@ ( , ` +1 `B@a@ 1 + s0B B =( !&{/( 4H{ $ +
A
2D *f 4' # e |Rg'D*:CN G>n G>n)E2|:`M ]>
=`Qf , C A T T , t @ +`p x | ~
&9+ 37
* K, 0, 7D( + 3, ` + 0B 1B + /1B + /l ,~ 0B
@ e@ +@ + 1B + ?1B + 80" 0b ,~ $$ .$h+ 8 H+ 8l + 3 * $ D Km * 7D 6+ E2D
J 6, 0, j,> > &" !(@`.(04D K` =d J* Z. Z0& t * Z 5B Rj =f M`` ,~ ,^ 1B + F+ 3
&
&+ 37
* , 0, 7 0B + Y, 7* 1B ,> 7@ Z7@ & 1J (F $& " &" 6@ !(@``B !( `(B.(0+ K 8WZ` , 0,~ , =, E1B ` , =, =, E0" 0b + u0" 0b +
k+% v # # q q r r g, =+ g, =Z ]0Bz1B `+ q+ g
&$
& L+ v7F 7+ b7J 6:
6e` + {0& 7
* Zl 1J & 1J & 6@ 8$ 8, H@@ 7+ b, =,> ], =, E1B + 1B + 0B `',^ @ @ )" $& .&x5B F 8, E1B + v1B +
*@ 4B !$|[ 22B *d^ 2aB Z` 4"*5B + 1B + `+ 1B + `+ H 7d` + + g@ 0" 0b
+ "$$ .$x+ .( =, =, E1B + #+
, - ) ( 0 47
4 * 7H 6 H 62H `5+ gm l Z&" 6@ ." $" + g @@ 7, ` ,~ 1B + 10B 1B " 0B 1B " B 0B + 1@ B : x ,~ 7B 7 B 71B + :,~ , : * 8@@*" _7B 7 B 7h 4BD0B + D3D*B ,~ B + @ $M7F+ L ( ][ Z`
.$ 2J 9F.( =fH,~ @ ,~ e$YT] a& M9J a& kN
y` ( gft: :O)2 ( gft0 0 UW J3Sn 0 UW @ 8 E2 r58 x S:$^ I$Pgm9< ,X 0` i< i&l\` l@ 8, ^+ s7@ !$;2, Q+ >+ B 8W+
`@ D, ^+
, Q+ q+ q, b Z B K, o
&G
&+ s6B K+ ~
&J
&+
!(M , 9+ Q+ @@ H " .b 6`@ +
. K/" & 6$ 6/ K B 7H I+
H J H J. K 61F /& &" ." $( /( @$( #H I
&R, ^+
Z [O@ \, (+ W+ [`@ + "
&\, )]2B *dl 4% @] & ( # ) " l
&d7 -, 0B v+ l + d@ + : H & " , @+++ &7` H+ 0 $, S> H & 5d&
&_
&+ , >+ , ^+ 4B5 Z [, 6 b + , <+ 8+ 6d@ ,~ Z [@ & @bO@ \,~ l , + d@ + M7 @d, j GQ& , ~ @gX:p ,I B + F, <+ G, + L=zE
&i
&6@ , /+ P Y ` n, 0+ \.$ G/& / H#` + A &" o.( 6@ ` =dS
o
h A$ 0B ; x =lU,~ &" .( 6@ ` =d[
o
0B ; x =l],~ , e+ , 8 8 .. 2D ; x =la,~ &" 6@ @p . L &( 6@ @t
o y: x ,~ , j0F @y,> d@ , Z | } K,
0X + t/6 .: aZ .}+ w 0B` + w.: =vt
&} d
& [ , o "
" "h /" , o/}[Z / ZZ . .} "
" l @@ #, 1B Q` 5Vp: \: H+ n ~
&,^ + 5X =v
,^x az, + n @@*" /,~ , + 1B @y, ,+ o & + & &" .( 6@ ` =d
o
1F h B =l,~ , e+ , 8 D8 .. =l ,~ , ^+ , 9 @ @ + l @, j Q< , ~+ -+ ), <+ -`@ @e , 0=z(d @+ @
$ + d @
&,>
$ + , 7, ' Z [, +3+3 Z [, (+5+6
2 : \, o
&
&O@ \7B I,~ B J B J,~ d@ , Z Ka@ .0 `@ .. `@ Q.A`, + QB `@ 0B =pA 4PF, + Q=pE`@ + K7B K7@ I+ J
& KZ` 2B K+ U: x : \l >@ J,~ I B J6P I, + =pO,~ / K/0 7@ ,~
&
&,~
&
&
& K, o
& K, o
&+ Ka@ .0 `@ .. `@ Q.A` , .+ i`@ 0B =p^ " 4Pd, .+ i=pb>@ J,~ I B J@ 6P I, .+ =pg,~
&
&+j`@ , 0, 7 1B , 7* /&4&,,~ &" QDx 6@ , o[x ."
" ,~ " 0, $ `@ $ , < " , e 4B{, @+z+ y,~ 1F + l , 6, /[ \1& + |/& 4F, <,~ =f: x ,~ /4 44
.,H 1B + 2B ,~ $ 9 $ ` =d ,~ 4 9>x Z
&
&$ 1D +$ 0D +
& L
&+ b 3 * t od@ + B ] 8*" A, 1B + 1B + -B 1B
=j
& @ /* t#J ]d@ ,~
&!, j@@ 0B < > &$ .|6@ ` =f' D
<h, 0B( @"=h*: x ,~ `@ + 0J t @'l + % | 2 L 4 K \." B Hl , sd $), S +
7 : B G J O 6, `@ 0B =v6 $, S,~ 7@ B, W $ B, S $ &, S,~ " , 0" 0b i h 0, @+F+ ; " , 0B 1B + ;+ E " , , s/6 5v;
&)
&+N , , s " , @+R/6 + KQ$A` 4BV, @+U+ T,~ . B 0 " 0, .,
K`@ * B | 5B^=j\+ a
_, + ]S A 1 2 " , e " , e " , e / B 0 " 0, " , | (
K`@ , B 4Dn&( " 0$ , e "( , e: =lj " , e " , e " , e 0 B 0,~ , COBEDT VERSION 4.0 h 7~ 8?CANNOT INITIALIZE TTY ENTER COBOL FILE TO EDIT: ?INIT FAILURE FOR DEVICE DSK:
&|
&+ ?FILE CANNOT BE FOUND
&
&+ FD- H %COMMAND TO LONG %BAD COMMAND I, ` %CANNOT MIX SIXBIT AND ASCII RECORDS ?EXCEEDING MAXIMUM RECORD SIZE ?THESE POSITIONS HAVE BEEN COVERED %SECOND COMMA ILLEGAL %POSITIONS NOT ON A WORD BOUNDARY H L%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 FOR DEVICE
&<
&+ s?LOOKUP FAILED FOR FILE
&@
&+ s%COBOL RECORD SCANNER UNAVAILABLE POSITIONS SCANNED FOR RECORD %RECORD SIZE MUST BE ENTERED! ?CANNOT INIT DEFAULT LIST DEVICE
&M
&+ENTER OUTPUT FILE NAME ?CANNOT INIT DEVICE
&U
&+
?CANNOT ENTER FILENAME
&X
&+
ML- $%ILLEGAL COMMAND %AT BEGINNING OF FILE %CANNOT RENAME FILE %LINE RANGE MUST BE SPECIFIED %NO SUCH RECORD %SEARCH FAILED <%NOT IMPLEMENTED FOR DOUBLE WORD> @jH LH ]%COMP FIELD MUST BEGIN ON WORD BOUNDARY %COLUMN RANGE DOES NOT END AT END OF COMP FIELD %LINE RANGE NOT PERMITTED H
0 INSERT: S A 1 2 = @ L%DOUBLE PRECISION NOT YET IMPLEMENTED @%CANNOT INIT OUTPUT DEVICE %CANNOT ENTER FILENAME SPECIFIED %BAD LINE RANGE %EOF ENCOUNTERED RECORDS H K%INCOMPLETE RECORDS EXIST ?RECORD LENGTH INCORRECT DESCRIBED: IS: ?OUTPUT FILE ERROR H
@ : 6$ %STRING TOO LONG COLUMN RANGE %MATCH MAY NOT INVOLVE DIFFERENT DATA TYPES %NO MATCH PERMITTED . %A COMP FIELD IS LARGER THAT RECORD SIZE
@BREC #
@&
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 FD GIVEN INTO INTERNAL FORMAT
SIXBIT M:N[,M:N]- SPECIFY SIXBIT FIELD SPECS
ASCII M:N[,M:N] - SPECIFY ASCII FIELD SPECS
COMP M,N - SPECIFY COMPUTATIONAL FIELDS
COMP-2 M,N - SPECIFY DOUBLE PRECISION COMP FIELDS
- (NOTHING) PROCEED TO MANIPULATION LANGUAGE
D<R> - DELETE A RECORD
E<FILE.EXT> - EXIT NAME THE FILE (OPTIONAL FN)
F<STR>$<COL>,<R>- FIND THE STRING GIVEN IN THE COLUMNS AND RECORDS SPECIFIED
L<FILE.EXT> - LIST ALL OUTPUT TO THE FILE GIVEN
R<STR>$<COL> - REPLACE THE COLUMNS SPECIFIED WITH THE STRING GIVEN
S - TYPE THE SCALE FOR THE RECORD GIVEN
$ - (ALTMODE) MOVE UP A RECORD
LF - (LINEFEED) MOVE DOWN A RECORD
%FILE IS BLOCKED WITH NULL RECORDS
" " iSH ",~
B dBd + # B -4B,~ , ++ , '
,~ : x : @ : x ?` , ! ,~ " QB
$d + &
D ,^x > x ,~ " + J $ ,~ , 7
,~ : x : @ : x ?` , 0B ,~ ,> " QB
&d + 5
F ,^x > x ,~ " , J,^ ,~ & ,~ , I H
,~ : x @ : x ,~ : x ?` ", EB !0B ,~ 3B ., E " ,~
(d ,~
H ,^x > x ,~ ( ,~ x & `@ & $$ D Z$ @`@ Z$ `QD x ,~ , ] H
,~ : x @
J ,~ : x ,~ : x ? %+ Z $4BW,~
*d + W
J > x ,~
* ,~ ^ - .*> , -@p @t !$A@@` , 0B 1B + b1B -+ w0B 1B + k1B + k0" 0b -+ /h B + b1B & 1B & 1B + 26@ + 6 @ 0B + a 7H !(Lu7F f
7*> -: x %,~
& 7+ 5P4@{5Ry + {5T{ + { @ , 0B .1B + $$ .$h+ |5PS0 + {X0 + a
& 9
& <,~ B <, jX Q$A` D D [ $& F [ Q` .$ s F 9 *",~ , jQ"A` 4B, e+ ,~ , j&" Z .( P 6@ ` =d H ,~ , j t ( 4B, e=h,~ , j t, t+ , j7@ b &" t&" ,> u, < " , e,^ &" ,> u, < " , e,^ + <, j b &" :." ,> &$ .& ,> u, < " , e,^ , < " , e,^ + <, j ^ + F&" ,> 5B06B , e,^ ." , e2^ + 3,~ , j & u 4B;0" 0b i h 0, e=f7,~ , j[
7@ * ^ #` 7 + B2"I,>v2"I+ C,> =$A5BE,^ + E,^ , e2^ + D#@
7 * + 0 2 t ' P B 1@ ka n5J , j, U,> @ )B ." , e=jP,^ ,~ , j, U, \+ O(bV7v&$ "
$$ (B .* ,~ , j, O, \,~ Z~/(( [~7@ " 7 7v1 , e=(`,~ , j " , e " , e@@ ,~ * <B ? , q0B + i* B * * <,~ *
x ,> ,> ,> ,> <, ( ,^ ,^ ,^ ,^ ,^ ,~
&w
&{ b ,~ H H H ?EDIT PACKAGE STORING OUT OF BOUNDS