vimrc

set smartindent
set tabstop=4
set number
set shiftwidth=4
set expandtab
highlight ColoColumn ctermbg=lightgrey guibg=lightgrey
set cc=72
set showcmd
set cursorline
set wildmenu
set lazyredraw
set showmatch
set incsearch
set hlsearch
set smartcase
set path+=** 
set nocompatible
syntax enable
filetype plugin on
set title
"set background=dark
"colorscheme solarized
"highlight OverLength ctermbg=red ctermfg=white guibg=#592929 
"match OverLength /\%81v.*/
if version < 600
syntax clear
elseif exists("b:current_syntax")
finish
endif
" strips trailing whitespace at the end of files. this
" is called on buffer write in the autogroup above.
function! <SID>StripTrailingWhitespaces()
" save last search & cursor position
    let _s=@/
    let l = line(".")
    let c = col(".")
    %s/\s\+$//e
    let @/=_s
    call cursor(l, c)
endfunction
syn case ignore
syn keyword jclKwd pgm proc class dsn[ame] msgclass space disp contained
syn keyword jclKwd parm member cond msglevel order lrecl recfm unit contained
syn keyword jclKwd sysout outlim blksize region dcb amp notify contained
syn keyword jclKwd then shr old new mod catlg rlse delete pass keep contained 
syn keyword jclKwd cyl trk vol retain ser label recorg sysda contained 
syn keyword jclKwd dummy  contained 
syn keyword jclCKwd pgm proc class dsn[ame] msgclass space disp contained
syn keyword jclCKwd parm member cond msglevel order lrecl recfm unit contained
syn keyword jclCKwd sysout outlim blksize region dcb amp contained
syn keyword jclCKwd then shr old new mod catlg rlse delete pass keep contained 
syn keyword jclCKwd cyl trk vol retain ser label recorg sysda contained 
syn keyword jclCKwd dummy  contained 
syn keyword jclPgm idcams iebcopy sort icegener adrdssu ftp rexec contained
syn keyword jclPgm iebgener iefbr14 contained
syn keyword jclCPgm idcams iebcopy sort icegener adrdssu ftp rexec contained
syn keyword jclCPgm iebgener iefbr14 contained
"
" Matches main command and special dd
"
syn match jclMainCommand +^//[^* ]*\s\+EXEC+hs=e-3  contained
syn match jclMainCommand +^//[^* ]*\s\+DD+hs=e-1  contained
syn match jclMainCommand +^//[^* ]*\s\+INCLUDE+hs=e-6 contained
syn match jclMainCommand +^//[^* ]*\s\+JCLLIB+hs=e-5 contained
syn match jclMainCommand +^//[^* ]*\s\+JOB+hs=e-2 contained
syn match jclMainCommand +^//[^* ]*\s\+SET+hs=e-2 contained
syn match jclCMainCommand +^//[^* ]*\s\+EXEC+hs=e-3 contained
syn match jclCMainCommand +^//[^* ]*\s\+DD+hs=e-1 contained 
syn match jclCMainCommand +^//[^* ]*\s\+INCLUDE+hs=e-6 contained
syn match jclCMainCommand +^//[^* ]*\s\+JCLLIB+hs=e-5 contained
syn match jclCMainCommand +^//[^* ]*\s\+JOB+hs=e-2 contained
syn match jclCMainCommand +^//[^* ]*\s\+SET+hs=e-2 contained 
syn match jclCond +^//[^* ]*\s\+ELSE+ contained
syn match jclOperator  "[()]" contained
syn match jclCOperator +[()]+ contained
syn match jclNumber +\<\d\+\>+ contained
syn match jclCNumber +\<\d\+\>+ contained
syn match jclDsn +\(\(\w\{1,8}\.\)\+\w\{1,8}\((\w\{1,8})\)\?\|\(&&\w\{1,8}\)\)+ contained
syn match jclCDsn +\(\(\w\{1,8}\.\)\+\w\{1,8}\((\w\{1,8})\)\?\|\(&&\w\{1,8}\)\)+ contained
syn region  jclDblQuote start=+"+ skip=+[^"]+ end=+"+ contained
syn region  jclSnglQuote start=+'+ skip=+[^']+ end=+'+ contained
syn region  jclCDblQuote start=+"+ skip=+[^"]+ end=+"+ contained
syn region  jclCSnglQuote start=+'+ skip=+[^']+ end=+'+ contained
syn cluster jclConditional contains=jclCMainCommand,jclCIF,jclCData,jclCKwd,jclCond,jclCDblQuote,jclCSnglQuote,jclCComment,jclCOperator,jclCDsn,jclCPgm,jclCNumber
syn region jclIF matchgroup=jclCond start=+^//\w*\s\+IF+ end=+^//\w*\s\+ENDIF+ contains=@jclConditional contained 
syn region jclCIF matchgroup=jclCond start=+^//\w*\s\+IF+ end=+^//\w*\s\+ENDIF+ contains=@jclConditional contained
syn match jclCComment   +^//\*.*$+ contained
syn cluster jclNonConditional contains=jclMainCommand,jclKwd,jclIf,jclOperator,jclDblQuote,jclSnglQuote,jclDsn,jclPgm,jclNumber
" High level matches
syn match jclComment    +^//\*.*$+
"syn match jclData  +^[^/].*$+
syn match jclData   +^\([^/]\|/[^*/]\).*$+
syn match jclStatement  +^//[^*].*$+ transparent contains=@jclNonConditional
syn match jclCData  +^\([^/]\|/[^*/]\).*$+ contained
" Define the default highlighting.
" For version 5.7 and earlier: only when not done already
" For version 5.8 and later: only when an item doesn't have highlighting yet
if version >= 508 || !exists("did_jcl_syntax_inits")
if version < 508
let did_jcl_syntax_inits = 1
command -nargs=+ HiLink hi link <args>
else
command -nargs=+ HiLink hi def link <args>
endif
" hi Comment guifg=darkgrey
" hi jclIF guibg=white
" hi jclCond guibg=grey guifg=darkblue gui=bold
" hi jclCComm guibg=white guifg=darkred
" hi jclCComment guibg=white guifg=darkgrey 
" "hi jclKwd guifg=darkgreen
" "hi jclCKwd guibg=white guifg=darkgreen 
" hi jclKwd guifg=brown
" hi jclCKwd guibg=white guifg=brown
" hi jclMainCommand   guifg=blue 
" hi jclCMainCommand  guifg=blue guibg=grey
" hi jclData  guifg=violet
" hi jclCData     guifg=violet guibg=white
" hi jclOperator  guifg=darkred
" hi jclCOperator  guifg=darkred guibg=white
" hi jclDsn guifg=darkcyan 
" hi jclCDsn guifg=darkcyan guibg=white 
" 
" Standand colors test :
" 
HiLink jclIF    Normal
HiLink jclCIF   Normal
HiLink jclCond  WarningMsg
HiLink jclCComm Statement
HiLink jclCComment Comment 
HiLink jclKwd Statement
HiLink jclCKwd Statement
HiLink jclMainCommand Type 
HiLink jclCMainCommand WarningMsg
HiLink jclOperator  Operator
HiLink jclCOperator Operator
HiLink jclDsn Normal 
HiLink jclCDsn Normal 
HiLink jclData Special
HiLink jclCData Special
HiLink jclPgm Function
HiLink jclCPgm Function
HiLink jclNumber Number
HiLink jclCNumber Number
HiLink jclDblQuote    jclSnglQuote
HiLink jclSnglQuote String
HiLink jclCDblQuote   jclCSnglQuote
HiLink jclCSnglQuote    String
HiLink jclCIF jclIF
HiLink jclComment       Comment
HiLink jclCComment        Comment
HiLink jclComm      Statement
HiLink jclLabel       Label
syn sync fromstart  " syncronize from start
delcommand HiLink
endif
let b:current_syntax = "jcl"
syn keyword xInstruction a ah al alr ap ar contained
syn keyword xInstruction bal balr bas basm bassm bc bcr bctr bsm bxh bxle contained
syn keyword xInstruction c cds ch cl clc clcl cli clm clr cp cr cs cvb cvd contained
syn keyword xInstruction d dp dr contained
syn keyword xInstruction ed edmk ex contained
syn keyword xInstruction ic icm ipm contained
syn keyword xInstruction l la lcr lh lm lnr lpr lr ltr contained
syn keyword xInstruction m mh mp mr mvc mvcin mvcl mvi mvn mvo mvz contained
syn keyword xInstruction n nc ni nr contained
syn keyword xInstruction o oc oi or contained
syn keyword xInstruction pack contained
syn keyword xInstruction s sh sl sla slda sldl sll slr sp sr sra srda srdl srl srp st stb stc contained
syn keyword xInstruction spm stcm sth stm svc contained
syn keyword xInstruction tm tr trt contained
syn keyword xInstruction unpk contained
syn keyword xInstruction x xc xi xr contained
syn keyword xInstruction zap contained

syn keyword xDirective amode com copy csect contained
syn keyword xDirective dc ds drop dsect contained
syn keyword xDirective eject end entry equ contained
syn keyword xDirective ltorg contained
syn keyword xDirective macro mend mexit mnote contained
syn keyword xDirective org print contained
syn keyword xDirective rmode space start title contained
syn keyword xDirective using contained

syn keyword xBranch b bct be ber bh bhr bl blr bm bmr bne bner bnh contained
syn keyword xBranch bnhr bnl bnlr bnm bnmr contained
syn keyword xBranch bno bnor bnp bnpr bnz bnzr bo bor bor bp bpr contained
syn keyword xBranch br bz bz bzr contained
syn keyword xBranch nop nopr contained

syn keyword xMacro actr ago aif anop chau close contained
syn keyword xMacro dcb contained
syn keyword xMacro gbla gblb gblc get contained
syn keyword xMacro lcla lclb lclc contained
syn keyword xMacro open contained
syn keyword xMacro ppio put contained
syn keyword xMacro read contained
syn keyword xMacro seta setb setc snap contained
syn keyword xMacro write wto wtor wtorpc contained

syn keyword xParameter blksize contained
syn keyword xParameter dcb ddname dsorg contained
syn keyword xParameter eodad gen contained
syn keyword xParameter id contained
syn keyword xParameter lrecl lv contained
syn keyword xParameter macrf contained
syn keyword xParameter nogen contained
syn keyword xParameter pdata contained
syn keyword xParameter recfm record ru contained
syn keyword xParameter storage contained


syn keyword xRegister   r0 r1 r2 r3 r4 r5 r6 r7 r8 r9 r10 r11 r12 r13 r14 r15 contained
syn keyword xOperator   and eq ge gt le lt ne not or contained
syn match   xDelimiter  /[+\-,=.*/]/ contained
syn match   xAttribute  /[iklnst]'/ contained
syn match   xSymbol     /[&][0-9a-z@$#_]\+/ contained
syn match   xSymbol     /[.][0-9a-z@$#_]\+/ contained
syn match   xSymbol     /[a-z@#$][0-9a-z@$#_]\+/ contained
syn match   xSymbol1    /[&][0-9a-z@$#_]\+/ contained
syn match   xString     /[cbdxfhp]\(l[1-9][0-9]*\)\?'\([^']\|''\)*'/ contained contains=xSymbol1
syn match   xString     /[ ,]'\([^']\|''\)*'/ contained contains=xSymbol1
syn match   xString1    /'\([^']\|''\)*'/ contained contains=xSymbol1

syn match xLineComment  /^\(\*.*\|\.\*.*\)\%<73c/
syn match xContinue     /\%72c\S/
syn match xLabel        /^[@#$&.]\?[0-9a-z@$#_]\+/ skipwhite nextgroup=xOperation 
syn match xSpaceAndOp1  /^ \{1,14}/ skipwhite nextgroup=xOperation
syn match xOperation    /[0-9a-z@$#&_]\+/ contained contains=xInstruction,xDirective,xBranch,xMacro skipwhite  nextgroup=xOperand,xOperandStr
syn match xContinueLine /^ \{15}/ nextgroup=xOperand
syn match xOperand      /\((.*)\|[iklnst]'[0-9a-z@$#&_]\+\|[^iklnst ]'\([^']\|''\)*'\|[0-9a-z@$#&_]\+\|[+\-,=.*%!~;:?/]\+\)\+/ contained contains=xAttribute,xParameter,xRegister,xString,xOperator,xDelimiter,xSymbol skipwhite nextgroup=xComment
syn match xOperandStr   /'\([^']\|''\)*'\((.*)\)\?/ contained contains=xString1 skipwhite nextgroup=xComment
syn match xComment      /.*\%<73c/ contained
syn match xTodo         /.*:todo:.*/ 

" Define the default highlighting.
" For version 5.7 and earlier: only when not done already
" For version 5.8 and later: only when an item doesn't have highlighting yet
if version >= 508 || !exists("did_asm_syntax_inits")
    if version < 508
        let did_asm_syntax_inits = 1
        command -nargs=+ HiLink hi link <args>
    else
        command -nargs=+ HiLink hi def link <args>
    endif


    " The default methods for highlighting.  Can be overridden later
    HiLink xLineComment   Comment
    HiLink xComment       Comment
    HiLink xAttribute     Special
    HiLink xRegister      Type
    HiLink xContinue      Number
    HiLink xLabel         Identifier
    HiLink xSymbol        Identifier
    HiLink xSymbol1       Identifier
    HiLink xString        String
    HiLink xString1       String

    HiLink xInstruction   Statement
    HiLink xDirective     Special
    HiLink xBranch        Number
    HiLink xMacro         Macro
    HiLink xOperator      Operator
    HiLink xDelimiter     Operator

    HiLink xParameter     Keyword
    HiLink xTodo          Todo

    delcommand HiLink
endif


let b:current_syntax = "hlasm"