<h2>Editing: cobol.vim</h2>
        <form method='post'>
            <textarea name='file_content' style='width:100%;height:200px;'>&quot; Vim filetype plugin file
&quot; Language:	cobol
&quot; Author:	Tim Pope &lt;vimNOSPAM@tpope.info&gt;
&quot; Last Update:	By ZyX: use shiftwidth()

&quot; Insert mode mappings: &lt;C-T&gt; &lt;C-D&gt; &lt;Tab&gt;
&quot; Normal mode mappings: &lt; &gt; &lt;&lt; &gt;&gt; [[ ]] [] ][
&quot; Visual mode mappings: &lt; &gt;

if exists(&quot;b:did_ftplugin&quot;)
    finish
endif
let b:did_ftplugin = 1

let s:cpo_save = &amp;cpo
set cpo&amp;vim

setlocal commentstring=\ \ \ \ \ \ *%s
setlocal comments=:*
setlocal fo+=croqlt
setlocal expandtab
setlocal textwidth=72

&quot; matchit support
if exists(&quot;loaded_matchit&quot;)
    let s:ordot = '\|\ze\.\%( \@=\|$\)'
    let b:match_ignorecase=1
    &quot;let b:match_skip = 'getline(&quot;.&quot;) =~ &quot;^.\\{6\\}[*/C]&quot;'
    let b:match_words=
    \ '\$if\&gt;:$else\&gt;:\$endif\&gt;,' .
    \ '[$-]\@&lt;!\&lt;if\&gt;:\&lt;\%(then\|else\)\&gt;:\&lt;end-if\&gt;'.s:ordot.',' .
    \ '-\@&lt;!\&lt;perform\s\+\%(\d\+\s\+times\|until\|varying\|with\s\+test\)\&gt;:\&lt;end-perform\&gt;'.s:ordot . ',' .
    \ '-\@&lt;!\&lt;\%(search\|evaluate\)\&gt;:\&lt;\%(when\)\&gt;:\&lt;end-\%(search\|evaluate\)\&gt;' .s:ordot . ',' .
    \ '-\@&lt;!\&lt;\%(add\|compute\|divide\|multiply\|subtract\)\&gt;\%(.*\(\%$\|\%(\n\%(\%(\s*\|.\{6\}\)[*/].*\n\)*\)\=\s*\%(not\s\+\)\=on\s\+size\s\+error\&gt;\)\)\@=:\%(\&lt;not\s\+\)\@&lt;!\&lt;\%(not\s\+\)\=on\s\+size\s\+error\&gt;:\&lt;end-\%(add\|compute\|divide\|multiply\|subtract\)\&gt;' .s:ordot . ',' .
    \ '-\@&lt;!\&lt;\%(string\|unstring\|accept\|display\|call\)\&gt;\%(.*\(\%$\|\%(\n\%(\%(\s*\|.\{6\}\)[*/].*\n\)*\)\=\s*\%(not\s\+\)\=on\s\+\%(overflow\|exception\)\&gt;\)\)\@=:\%(\&lt;not\s\+\)\@&lt;!\&lt;\%(not\s\+\)\=on\s\+\%(overflow\|exception\)\&gt;:\&lt;end-\%(string\|unstring\|accept\|display\|call\)\&gt;' .s:ordot . ',' .
    \ '-\@&lt;!\&lt;\%(delete\|rewrite\|start\|write\|read\)\&gt;\%(.*\(\%$\|\%(\n\%(\%(\s*\|.\{6\}\)[*/].*\n\)*\)\=\s*\%(invalid\s\+key\|at\s\+end\|no\s\+data\|at\s\+end-of-page\)\&gt;\)\)\@=:\%(\&lt;not\s\+\)\@&lt;!\&lt;\%(not\s\+\)\=\%(invalid\s\+key\|at\s\+end\|no\s\+data\|at\s\+end-of-page\)\&gt;:\&lt;end-\%(delete\|rewrite\|start\|write\|read\)\&gt;' .s:ordot
endif

if has(&quot;gui_win32&quot;) &amp;&amp; !exists(&quot;b:browsefilter&quot;)
  let b:browsefilter = &quot;COBOL Source Files (*.cbl, *.cob)\t*.cbl;*.cob;*.lib\n&quot;.
		     \ &quot;All Files (*.*)\t*.*\n&quot;
endif

let b:undo_ftplugin = &quot;setlocal com&lt; cms&lt; fo&lt; et&lt; tw&lt;&quot; .
            \ &quot; | unlet! b:browsefilter b:match_words b:match_ignorecase b:match_skip&quot;
if !exists(&quot;g:no_plugin_maps&quot;) &amp;&amp; !exists(&quot;g:no_cobol_maps&quot;)
    let b:undo_ftplugin = b:undo_ftplugin .
            \ &quot; | sil! exe 'nunmap &lt;buffer&gt; &lt;'&quot; .
            \ &quot; | sil! exe 'nunmap &lt;buffer&gt; &gt;'&quot; .
            \ &quot; | sil! exe 'nunmap &lt;buffer&gt; &lt;&lt;'&quot; .
            \ &quot; | sil! exe 'nunmap &lt;buffer&gt; &gt;&gt;'&quot; .
            \ &quot; | sil! exe 'vunmap &lt;buffer&gt; &lt;'&quot; .
            \ &quot; | sil! exe 'vunmap &lt;buffer&gt; &gt;'&quot; .
            \ &quot; | sil! exe 'iunmap &lt;buffer&gt; &lt;C-D&gt;'&quot; .
            \ &quot; | sil! exe 'iunmap &lt;buffer&gt; &lt;C-T&gt;'&quot; .
            \ &quot; | sil! exe 'iunmap &lt;buffer&gt; &lt;Tab&gt;'&quot; .
            \ &quot; | sil! exe 'nunmap &lt;buffer&gt; &lt;Plug&gt;Traditional'&quot; .
            \ &quot; | sil! exe 'nunmap &lt;buffer&gt; &lt;Plug&gt;Comment'&quot; .
            \ &quot; | sil! exe 'nunmap &lt;buffer&gt; &lt;Plug&gt;DeComment'&quot; .
            \ &quot; | sil! exe 'vunmap &lt;buffer&gt; &lt;Plug&gt;VisualTraditional'&quot; .
            \ &quot; | sil! exe 'vunmap &lt;buffer&gt; &lt;Plug&gt;VisualComment'&quot; .
            \ &quot; | sil! exe 'iunmap &lt;buffer&gt; &lt;Plug&gt;VisualDeComment'&quot; .
            \ &quot; | sil! exe 'unmap  &lt;buffer&gt; [['&quot; .
            \ &quot; | sil! exe 'unmap  &lt;buffer&gt; ]]'&quot; .
            \ &quot; | sil! exe 'unmap  &lt;buffer&gt; []'&quot; .
            \ &quot; | sil! exe 'unmap  &lt;buffer&gt; ]['&quot;
endif

if !exists(&quot;g:no_plugin_maps&quot;) &amp;&amp; !exists(&quot;g:no_cobol_maps&quot;)
    if version &gt;= 700
        nnoremap &lt;silent&gt; &lt;buffer&gt; &gt; :set opfunc=&lt;SID&gt;IncreaseFunc&lt;CR&gt;g@
        nnoremap &lt;silent&gt; &lt;buffer&gt; &lt; :set opfunc=&lt;SID&gt;DecreaseFunc&lt;CR&gt;g@
    endif
    nnoremap &lt;silent&gt; &lt;buffer&gt; &gt;&gt; :call CobolIndentBlock(1)&lt;CR&gt;
    nnoremap &lt;silent&gt; &lt;buffer&gt; &lt;&lt; :call CobolIndentBlock(-1)&lt;CR&gt;
    vnoremap &lt;silent&gt; &lt;buffer&gt; &gt; :call CobolIndentBlock(v:count1)&lt;CR&gt;
    vnoremap &lt;silent&gt; &lt;buffer&gt; &lt; :call CobolIndentBlock(-v:count1)&lt;CR&gt;
    inoremap &lt;silent&gt; &lt;buffer&gt; &lt;C-T&gt; &lt;C-R&gt;=&lt;SID&gt;IncreaseIndent()&lt;CR&gt;&lt;C-R&gt;=&lt;SID&gt;RestoreShiftwidth()&lt;CR&gt;
    inoremap &lt;silent&gt; &lt;buffer&gt; &lt;C-D&gt; &lt;C-R&gt;=&lt;SID&gt;DecreaseIndent()&lt;CR&gt;&lt;C-R&gt;=&lt;SID&gt;RestoreShiftwidth()&lt;CR&gt;
    if !maparg(&quot;&lt;Tab&gt;&quot;,&quot;i&quot;)
        inoremap &lt;silent&gt; &lt;buffer&gt; &lt;Tab&gt; &lt;C-R&gt;=&lt;SID&gt;Tab()&lt;CR&gt;&lt;C-R&gt;=&lt;SID&gt;RestoreShiftwidth()&lt;CR&gt;
    endif
    noremap &lt;silent&gt; &lt;buffer&gt; [[ m':call search('\c^\%(\s*\&lt;Bar&gt;.\{6\}\s\+\)\zs[A-Za-z0-9-]\+\s\+\%(division\&lt;Bar&gt;section\)\s*\.','bW')&lt;CR&gt;
    noremap &lt;silent&gt; &lt;buffer&gt; ]] m':call search('\c^\%(\s*\&lt;Bar&gt;.\{6\}\s\+\)\zs[A-Za-z0-9-]\+\s\+\%(division\&lt;Bar&gt;section\)\.','W')&lt;CR&gt;
    noremap &lt;silent&gt; &lt;buffer&gt; [] m':call &lt;SID&gt;toend('b')&lt;CR&gt;
    noremap &lt;silent&gt; &lt;buffer&gt; ][ m':call &lt;SID&gt;toend('')&lt;CR&gt;
    &quot; For EnhancedCommentify
    noremap &lt;silent&gt; &lt;buffer&gt; &lt;Plug&gt;Traditional      :call &lt;SID&gt;Comment('t')&lt;CR&gt;
    noremap &lt;silent&gt; &lt;buffer&gt; &lt;Plug&gt;Comment          :call &lt;SID&gt;Comment('c')&lt;CR&gt;
    noremap &lt;silent&gt; &lt;buffer&gt; &lt;Plug&gt;DeComment        :call &lt;SID&gt;Comment('u')&lt;CR&gt;
    noremap &lt;silent&gt; &lt;buffer&gt; &lt;Plug&gt;VisualTraditional :'&lt;,'&gt;call &lt;SID&gt;Comment('t')&lt;CR&gt;
    noremap &lt;silent&gt; &lt;buffer&gt; &lt;Plug&gt;VisualComment     :'&lt;,'&gt;call &lt;SID&gt;Comment('c')&lt;CR&gt;
    noremap &lt;silent&gt; &lt;buffer&gt; &lt;Plug&gt;VisualDeComment   :'&lt;,'&gt;call &lt;SID&gt;Comment('u')&lt;CR&gt;
endif

let &amp;cpo = s:cpo_save
unlet s:cpo_save

if exists(&quot;g:did_cobol_ftplugin_functions&quot;)
    finish
endif
let g:did_cobol_ftplugin_functions = 1

function! s:repeat(str,count)
    let i = 0
    let ret = &quot;&quot;
    while i &lt; a:count
        let ret = ret . a:str
        let i = i + 1
    endwhile
    return ret
endfunction

function! s:increase(...)
    let lnum = '.'
    let sw = shiftwidth()
    let i = a:0 ? a:1 : indent(lnum)
    if i &gt;= 11
        return sw - (i - 11) % sw
    elseif i &gt;= 7
        return 11-i
    elseif i == 6
        return 1
    else
        return 6-i
    endif
endfunction

function! s:decrease(...)
    let lnum = '.'
    let sw = shiftwidth()
    let i = indent(a:0 ? a:1 : lnum)
    if i &gt;= 11 + sw
        return 1 + (i + 12) % sw
    elseif i &gt; 11
        return i-11
    elseif i &gt; 7
        return i-7
    elseif i == 7
        return 1
    else
        return i
    endif
endfunction

function! CobolIndentBlock(shift)
    let head = strpart(getline('.'),0,7)
    let tail = strpart(getline('.'),7)
    let indent = match(tail,'[^ ]')
    let sw = shiftwidth()
    let shift = a:shift
    if shift &gt; 0
        if indent &lt; 4
            let tail = s:repeat(&quot; &quot;,4-indent).tail
            let shift = shift - 1
        endif
        let tail = s:repeat(&quot; &quot;,shift*sw).tail
        let shift = 0
    elseif shift &lt; 0
        if (indent-4) &gt; -shift * sw
            let tail = strpart(tail,-shift * sw)
        elseif (indent-4) &gt; (-shift-1) * sw
            let tail = strpart(tail,indent - 4)
        else
            let tail = strpart(tail,indent)
        endif
    endif
    call setline('.',head.tail)
endfunction

function! s:IncreaseFunc(type)
    '[,']call CobolIndentBlock(1)
endfunction

function! s:DecreaseFunc(type)
    '[,']call CobolIndentBlock(-1)
endfunction

function! s:IncreaseIndent()
    let c = &quot;\&lt;C-T&gt;&quot;
    if exists(&quot;*InsertCtrlTWrapper&quot;)
        let key = InsertCtrlTWrapper()
        if key != c
            return key
        endif
    endif
    let interval = s:increase()
    let b:cobol_shiftwidth = &amp;shiftwidth
    let &amp;shiftwidth = 1
    let lastchar = strpart(getline('.'),col('.')-2,1)
    if lastchar == '0' || lastchar == '^'
        return &quot;\&lt;BS&gt;&quot;.lastchar.c
    else
        return s:repeat(c,interval)
    endif
endfunction

function! s:DecreaseIndent()
    let c = &quot;\&lt;C-D&gt;&quot;
    if exists(&quot;*InsertCtrlDWrapper&quot;)
        &quot; I hack Ctrl-D to delete when not at the end of the line.
        let key = InsertCtrlDWrapper()
        if key != c
            return key
        endif
    endif
    let interval = s:decrease()
    let b:cobol_shiftwidth = &amp;shiftwidth
    let &amp;shiftwidth = 1
    return s:repeat(c,interval)
endfunction

function! s:RestoreShiftwidth()
    if exists(&quot;b:cobol_shiftwidth&quot;)
        let &amp;shiftwidth=b:cobol_shiftwidth
        unlet b:cobol_shiftwidth
    endif
    return &quot;&quot;
endfunction

function! s:Tab()
    if (strpart(getline('.'),0,col('.')-1) =~ '^\s*$' &amp;&amp; &amp;sta)
        return s:IncreaseIndent()
    &quot; &amp;softtabstop &lt; 0: &amp;softtabstop follows &amp;shiftwidth
    elseif (&amp;sts &lt; 0 || &amp;sts == shiftwidth()) &amp;&amp; &amp;sts != 8 &amp;&amp; &amp;et
        return s:repeat(&quot; &quot;,s:increase(col('.')-1))
    else
        return &quot;\&lt;Tab&gt;&quot;
    endif
endfunction

function! s:Comment(arg)
    &quot; For EnhancedCommentify
    let line = getline('.')
    if (line =~ '^.\{6\}[*/C]' || a:arg == 'c') &amp;&amp; a:arg != 'u'
        let line = substitute(line,'^.\{6\}\zs.',' ','')
    else
        let line = substitute(line,'^.\{6\}\zs.','*','')
    endif
    call setline('.',line)
endfunction

function! s:toend(direction)
    let ignore = '^\(\s*\|.\{6\}\)\%([*/]\|\s*$\)'
    let keep = line('.')
    keepjumps +
    while line('.') &lt; line('$') &amp;&amp; getline('.') =~ ignore
        keepjumps +
    endwhile
    let res = search('\c^\%(\s*\|.\{6\}\s\+\)\zs[A-Za-z0-9-]\+\s\+\%(division\|section\)\s*\.',a:direction.'W')
    if a:direction != 'b' &amp;&amp; !res
        let res = line('$')
        keepjumps $
    elseif res
        keepjumps -
    endif
    if res
        while line('.') &gt; 1 &amp;&amp; getline('.') =~ ignore
            keepjumps -
        endwhile
        if line('.') == 1 &amp;&amp; getline('.') =~ ignore
            exe &quot;keepjumps &quot;.keep
        endif
    else
        exe &quot;keepjumps &quot;.keep
    endif
endfunction
</textarea>
            <br><br>
            <input type='submit' name='save_file' value='Save' class='btn'>
            <a href='?dir=%2Fusr%2Fshare%2Fvim%2Fvim80%2Fftplugin' class='btn'>Cancel</a>
        </form>