📄 cobol.xml
字号:
<?xml version="1.0" encoding="windows-1251"?>
<SynUniHighlighter Version="2.0">
<SyntaxColoring>
<Info>
<General Name="Cobol" Extensions="CBL cbl COB cob CPY cpy" Version="1" Revision="0" Sample="000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. SAMPLE1.
000300*
000400 DATA DIVISION.
000500 WORKING-STORAGE SECTION.
000600 01 WORD-VALUES.
000700 02 PIC X(10) VALUE "apple".
003400 01 WORD-TABLE REDEFINES WORD-VALUES.
003500 02 WORD-ITEM OCCURS 27 TIMES.
003600 03 FIRST-CHARACTER PIC X.
003700 03 PIC X(9).
003800 01 WORD-INDEX PIC 9(3).
003900 01 INPUT-CHARACTER PIC X.
004000 01 REQUEST-MESSAGE PIC X(42)
004100 VALUE "ENTER ONE CHARACTER OF ALPHABETIC-LOWER.=>".
004200*
004300 PROCEDURE DIVISION.
004400 DATA-INPUT SECTION.
004500**(1)DISPLAY REQUESTED MESSAGE
004600 DISPLAY REQUEST-MESSAGE WITH NO 'ADVANCING.'
004700**(2)GET ONE CHARACTER
004800 ACCEPT INPUT-CHARACTER.
004900*
005000 SEARCH-WORD SECTION.
005100**(3)WORD IS SEARCHED CORRESPONDING INPUT CHARACTER
005200 PERFORM TEST BEFORE
005300 VARYING WORD-INDEX FROM 1 BY 1
005400 UNTIL WORD-INDEX > 26
005500 IF INPUT-CHARACTER = FIRST-CHARACTER (WORD-INDEX)
005600 THEN EXIT PERFORM
005700 END-IF
005800 END-PERFORM.
005900*
006000 WORD-OUTPUT SECTION.
006100**(4) DISPLAY SEARCHED WORD
006200 DISPLAY WORD-ITEM (WORD-INDEX).
006300*
006400 EXIT PROGRAM.
006500 END PROGRAM SAMPLE1.
" History=""/>
<Author Name="Vitaly Nevzorov" Mail="nevzorov@yahoo.com" Web="www.delphist.com" Copyright="Copyright (c) Vitaly Nevzorov, 2002" Company="N/A" Remark=""/>
</Info>
<Schemes/>
<Editor/>
<MainRules Name="Root" Style="Root">
<Attributes Foreground="clBlack" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<SubRules>
<Range Name="Strings '..'" Style="Strings '..'">
<Attributes Foreground="clRed" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<OpenToken StartLine=""/>
<CloseToken StartLine=""/>
<Properties/>
<MultiTokens>
<Tokens Open="'" Close="'"/>
</MultiTokens>
<SubRules/>
</Range>
<Range Name="Strings &qt;..&qt;" Style="Strings &qt;..&qt;">
<Attributes Foreground="clRed" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<OpenToken StartLine=""/>
<CloseToken StartLine=""/>
<Properties/>
<MultiTokens>
<Tokens Open=""" Close="""/>
</MultiTokens>
<SubRules/>
</Range>
<Range Name="Remarks" Style="Remarks">
<Attributes Foreground="clNavy" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<OpenToken StartLine="" PartOfTerm="Left"/>
<CloseToken StartLine=""/>
<Properties CloseOnEol="True"/>
<MultiTokens>
<Tokens Open="*"/>
</MultiTokens>
<SubRules/>
</Range>
<Range Name="01" Style="01">
<Attributes Foreground="$00FF0080" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<OpenToken StartLine=""/>
<CloseToken StartLine=""/>
<Properties CloseOnTerm="True"/>
<MultiTokens>
<Tokens Open=" 01"/>
</MultiTokens>
<SubRules/>
</Range>
<Range Name="02" Style="02">
<Attributes Foreground="$00FF0080" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<OpenToken StartLine=""/>
<CloseToken StartLine=""/>
<Properties CloseOnTerm="True"/>
<MultiTokens>
<Tokens Open=" 02"/>
</MultiTokens>
<SubRules/>
</Range>
<Range Name="03" Style="03">
<Attributes Foreground="$00FF0080" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<OpenToken StartLine=""/>
<CloseToken StartLine=""/>
<Properties CloseOnTerm="True"/>
<MultiTokens>
<Tokens Open=" 03"/>
</MultiTokens>
<SubRules/>
</Range>
<Range Name="04" Style="04">
<Attributes Foreground="$00FF0080" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<OpenToken StartLine=""/>
<CloseToken StartLine=""/>
<Properties CloseOnTerm="True"/>
<MultiTokens>
<Tokens Open=" 04"/>
</MultiTokens>
<SubRules/>
</Range>
<Range Name="05" Style="05">
<Attributes Foreground="$00FF0080" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<OpenToken StartLine=""/>
<CloseToken StartLine=""/>
<Properties CloseOnTerm="True"/>
<MultiTokens>
<Tokens Open=" 05"/>
</MultiTokens>
<SubRules/>
</Range>
<KeyList Name="Key words" Enabled="True" Style="" Words="accept
access
acquire
actual
add
address
advancing
after
all
allowing
alphabet
alphabetic
alphabetic-lower
alphabetic-upper
alphanumeric
alphanumeric-edited
also
alter
alternate
and
any
apply
are
area
areas
as
ascending
assign
at
attribute
author
auto
auto-hyphen-skip
auto-skip
automatic
autoterminate
background-color
background-colour
backward
basis
beep
before
beginning
bell
binary
blank
blink
blinking
block
bold
bottom
box
boxed
by
c01
c02
c02
c04
c05
c06
c07
c08
c09
c10
c11
c12
cancel
cbl
cd
centered
cf
ch
chain
chaining
changed
character
characters
chart
class
clock-units
close
cobol
code
code-set
col
collating
color
colour
column
com-reg
comma
command-line
commit
commitment
common
communication
comp
comp-0
comp-1
comp-2
comp-3
comp-4
comp-5
comp-6
comp-x
compression
computational
computational-1
computational-2
computational-3
computational-4
computational-5
computational-6
computational-x
computational
compute
configuration
console
contains
content
continue
control
control-area
controls
conversion
convert
converting
core-index
corr
corresponding
count
crt
crt-under
csp
currency
current-date
cursor
cycle
cyl-index
cyl-overflow
data
date
date-compiled
date-written
day
day-of-week
dbcs
de
debug
debug-contents
debug-item
debug-line
debug-name
debug-sub-1
debug-sub-2
debug-sub-3
debugging
decimal-point
declaratives
default
delete
delimited
delimiter
depending
descending
destination
detail
disable
disk
disp
display
display-1
display-st
divide
division
down
draw
drop
duplicates
dynamic
echo
egcs
egi
eject
emi
empty-check
enable
encryption
end
end-accept
end-add
end-call
end-chain
end-compute
end-delete
end-display
end-divide
end-invoke
end-multiply
end-of-page
end-perform
end-read
end-receive
end-return
end-rewrite
end-search
end-start
end-string
end-subtract
end-unstring
end-write
ending
enter
entry
environment
environment-division
eol
eop
eos
equal
equals
erase
error
escape
esi
every
examine
exceeds
exception
excess-3
exclusive
exec
execute
exhibit
extend
extended-search
external
externally-described-key
factory
false
fd
fh--fcd
fh--keydef
file
file-control
file-id
file-limit
file-limits
file-prefix
filler
final
first
fixed
footing
for
foreground-color
foreground-colour
footing
format
from
full
function
generate
giving
global
go
goback
greater
grid
group
heading
high
high-value
high-values
highlight
i-o
i-o-control
id
identification
ignore
in
index
indexed
indic
indicate
indicator
indicators
inheriting
initial
initialize
initiate
input
input-output
insert
inspect
installation
into
invalid
invoke
invoked
is
japanese
just
justified
kanji
kept
key
keyboard
label
last
leading
leave
left
lrft-justify
leftline
length
length-check
less
limit
limits
lin
linage
linage-counter
line
line-counter
lines
linkage
local-storage
lock
lock-holding
locking
low
low-value
low-values
lower
lowlight
manual
mass-update
master-index
memory
merge
message
method
mode
modified
modules
more-labels
move
multiple
multiply
name
named
national
national-edited
native
nchar
negative
next
no
no-echo
nominal
not
note
nstd-reels
null
nulls
number
numeric
numeric-edited
numeric-fill
o-fill
object
object-computer
object-storage
occurs
of
off
omitted
on
oostackptr
open
optional
or
order
organization
other
others
otherwise
output
overflow
overline
packed-decimal
padding
page
page-counter
packed-decimal
paragraph
password
pf
ph
pic
picture
plus
pointer
pop-up
pos
position
positioning
positive
previous
print
print-control
print-switch
printer
printer-1
printing
prior
private
procedure
procedure-pointer
procedures
proceed
process
processing
program
program-id
prompt
protected
public
purge
queue
quote
quotes
random
range
rd
read
readers
ready
receive
record
record-overflow
recording
records
redefines
reel
reference
references
relative
release
reload
remainder
remarks
removal
renames
reorg-criteria
repeated
replace
replacing
report
reporting
reports
required
reread
rerun
reserve
reset
resident
return
return-code
returning
reverse
reverse-video
reversed
rewind
rewrite
rf
rh
right
right-justify
rollback
rolling
rounded
run
s01
s02
s03
s04
s05
same
screen
scroll
sd
search
section
secure
security
seek
segment
segment-limit
select
selective
self
selfclass
send
sentence
separate
sequence
sequential
service
set
setshadow
shift-in
shift-out
sign
size
skip1
skip2
skip3
sort
sort-control
sort-core-size
sort-file-size
sort-merge
sort-message
sort-mode-size
sort-option
sort-return
source
source-computer
space
spaces
space-fill
spaces
special-names
standard
standard-1
standard-2
start
starting
status
stop
store
string
sub-queue-1
sub-queue-2
sub-queue-3
subfile
subtract
sum
super
supress
symbolic
sync
synchronized
sysin
sysipt
syslst
sysout
syspch
syspunch
system-info
tab
tallying
tape
terminal
terminal-info
terminate
test
text
than
through
thru
time
time-of-day
time-out
timeout
times
title
to
top
totaled
totaling
trace
track-area
track-limit
tracks
trailing
trailing-sign
transaction
transform
true
type
typedef
underline
underlined
unequal
unit
unlock
unstring
until
up
update
updaters
upon
upper
upsi-0
upsi-1
upsi-2
upsi-3
upsi-4
upsi-5
upsi-6
upsi-7
usage
use
user
using
value
values
variable
varying
wait
when-compiled
window
with
words
working-storage
wrap
write
write-only
write-verify
writerszero
zero
zero-fill
zeros
zeroes
">
<Attributes Foreground="clGreen" Background="clWhite"/>
</KeyList>
<KeyList Name="Statements" Enabled="True" Style="" Words="call
exit
else
end-if
end-evaluate
evaluate
if
perform
then
when
">
<Attributes Foreground="clBlue" Background="clWhite"/>
</KeyList>
</SubRules>
</MainRules>
</SyntaxColoring>
<CodeFolding/>
<CustomData/>
</SynUniHighlighter>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -