You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
<!doctype html>
<title>CodeMirror: COBOL mode</title><meta charset="utf-8"/><link rel=stylesheet href="../../doc/docs.css">
<link rel="stylesheet" href="../../lib/codemirror.css"><link rel="stylesheet" href="../../theme/neat.css"><link rel="stylesheet" href="../../theme/elegant.css"><link rel="stylesheet" href="../../theme/erlang-dark.css"><link rel="stylesheet" href="../../theme/night.css"><link rel="stylesheet" href="../../theme/monokai.css"><link rel="stylesheet" href="../../theme/cobalt.css"><link rel="stylesheet" href="../../theme/eclipse.css"><link rel="stylesheet" href="../../theme/rubyblue.css"><link rel="stylesheet" href="../../theme/lesser-dark.css"><link rel="stylesheet" href="../../theme/xq-dark.css"><link rel="stylesheet" href="../../theme/xq-light.css"><link rel="stylesheet" href="../../theme/ambiance.css"><link rel="stylesheet" href="../../theme/blackboard.css"><link rel="stylesheet" href="../../theme/vibrant-ink.css"><link rel="stylesheet" href="../../theme/solarized.css"><link rel="stylesheet" href="../../theme/twilight.css"><link rel="stylesheet" href="../../theme/midnight.css"><link rel="stylesheet" href="../../addon/dialog/dialog.css"><script src="../../lib/codemirror.js"></script><script src="../../addon/edit/matchbrackets.js"></script><script src="cobol.js"></script><script src="../../addon/selection/active-line.js"></script><script src="../../addon/search/search.js"></script><script src="../../addon/dialog/dialog.js"></script><script src="../../addon/search/searchcursor.js"></script><style> .CodeMirror { border: 1px solid #eee; font-size : 20px; height : auto !important; } .CodeMirror-activeline-background {background: #555555 !important;} </style><div id=nav> <a href="https://codemirror.net"><h1>CodeMirror</h1><img id=logo src="../../doc/logo.png" alt=""></a>
<ul> <li><a href="../../index.html">Home</a> <li><a href="../../doc/manual.html">Manual</a> <li><a href="https://github.com/codemirror/codemirror">Code</a> </ul> <ul> <li><a href="../index.html">Language modes</a> <li><a class=active href="#">COBOL</a> </ul></div>
<article><h2>COBOL mode</h2>
<p> Select Theme <select onchange="selectTheme()" id="selectTheme"> <option>default</option> <option>ambiance</option> <option>blackboard</option> <option>cobalt</option> <option>eclipse</option> <option>elegant</option> <option>erlang-dark</option> <option>lesser-dark</option> <option>midnight</option> <option>monokai</option> <option>neat</option> <option>night</option> <option>rubyblue</option> <option>solarized dark</option> <option>solarized light</option> <option selected>twilight</option> <option>vibrant-ink</option> <option>xq-dark</option> <option>xq-light</option> </select> Select Font Size <select onchange="selectFontsize()" id="selectFontSize"> <option value="13px">13px</option> <option value="14px">14px</option> <option value="16px">16px</option> <option value="18px">18px</option> <option value="20px" selected="selected">20px</option> <option value="24px">24px</option> <option value="26px">26px</option> <option value="28px">28px</option> <option value="30px">30px</option> <option value="32px">32px</option> <option value="34px">34px</option> <option value="36px">36px</option> </select><label for="checkBoxReadOnly">Read-only</label><input type="checkbox" id="checkBoxReadOnly" onchange="selectReadOnly()"><label for="id_tabToIndentSpace">Insert Spaces on Tab</label><input type="checkbox" id="id_tabToIndentSpace" onchange="tabToIndentSpace()"></p><textarea id="code" name="code">---------1---------2---------3---------4---------5---------6---------7---------812345678911234567892123456789312345678941234567895123456789612345678971234567898000010 IDENTIFICATION DIVISION. MODTGHERE000020 PROGRAM-ID. SAMPLE.000030 AUTHOR. TEST SAM. 000040 DATE-WRITTEN. 5 February 2013000041000042* A sample program just to show the form.000043* The program copies its input to the output,000044* and counts the number of records.000045* At the end this number is printed.000046000050 ENVIRONMENT DIVISION.000060 INPUT-OUTPUT SECTION.000070 FILE-CONTROL.000080 SELECT STUDENT-FILE ASSIGN TO SYSIN000090 ORGANIZATION IS LINE SEQUENTIAL.000100 SELECT PRINT-FILE ASSIGN TO SYSOUT000110 ORGANIZATION IS LINE SEQUENTIAL.000120000130 DATA DIVISION.000140 FILE SECTION.000150 FD STUDENT-FILE000160 RECORD CONTAINS 43 CHARACTERS000170 DATA RECORD IS STUDENT-IN.000180 01 STUDENT-IN PIC X(43).000190000200 FD PRINT-FILE000210 RECORD CONTAINS 80 CHARACTERS000220 DATA RECORD IS PRINT-LINE.000230 01 PRINT-LINE PIC X(80).000240000250 WORKING-STORAGE SECTION.000260 01 DATA-REMAINS-SWITCH PIC X(2) VALUE SPACES.000261 01 RECORDS-WRITTEN PIC 99.000270000280 01 DETAIL-LINE.000290 05 FILLER PIC X(7) VALUE SPACES.000300 05 RECORD-IMAGE PIC X(43).000310 05 FILLER PIC X(30) VALUE SPACES.000311 000312 01 SUMMARY-LINE.000313 05 FILLER PIC X(7) VALUE SPACES.000314 05 TOTAL-READ PIC 99.000315 05 FILLER PIC X VALUE SPACE.000316 05 FILLER PIC X(17) 000317 VALUE 'Records were read'.000318 05 FILLER PIC X(53) VALUE SPACES.000319000320 PROCEDURE DIVISION.000321000330 PREPARE-SENIOR-REPORT.000340 OPEN INPUT STUDENT-FILE000350 OUTPUT PRINT-FILE.000351 MOVE ZERO TO RECORDS-WRITTEN.000360 READ STUDENT-FILE000370 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH000380 END-READ.000390 PERFORM PROCESS-RECORDS000410 UNTIL DATA-REMAINS-SWITCH = 'NO'.000411 PERFORM PRINT-SUMMARY.000420 CLOSE STUDENT-FILE000430 PRINT-FILE.000440 STOP RUN.000450000460 PROCESS-RECORDS.000470 MOVE STUDENT-IN TO RECORD-IMAGE.000480 MOVE DETAIL-LINE TO PRINT-LINE.000490 WRITE PRINT-LINE.000500 ADD 1 TO RECORDS-WRITTEN.000510 READ STUDENT-FILE000520 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH000530 END-READ. 000540000550 PRINT-SUMMARY.000560 MOVE RECORDS-WRITTEN TO TOTAL-READ.000570 MOVE SUMMARY-LINE TO PRINT-LINE.000571 WRITE PRINT-LINE. 000572000580</textarea> <script> var editor = CodeMirror.fromTextArea(document.getElementById("code"), { lineNumbers: true, matchBrackets: true, mode: "text/x-cobol", theme : "twilight", styleActiveLine: true, showCursorWhenSelecting : true, }); function selectTheme() { var themeInput = document.getElementById("selectTheme"); var theme = themeInput.options[themeInput.selectedIndex].innerHTML; editor.setOption("theme", theme); } function selectFontsize() { var fontSizeInput = document.getElementById("selectFontSize"); var fontSize = fontSizeInput.options[fontSizeInput.selectedIndex].innerHTML; editor.getWrapperElement().style.fontSize = fontSize; editor.refresh(); } function selectReadOnly() { editor.setOption("readOnly", document.getElementById("checkBoxReadOnly").checked); } function tabToIndentSpace() { if (document.getElementById("id_tabToIndentSpace").checked) { editor.setOption("extraKeys", {Tab: function(cm) { cm.replaceSelection(" ", "end"); }}); } else { editor.setOption("extraKeys", {Tab: function(cm) { cm.replaceSelection(" ", "end"); }}); } } </script> </article>
|
