|
|
<!doctype html>
|
|
|
<html>
|
|
|
<head>
|
|
|
<meta charset="utf-8">
|
|
|
<title>CodeMirror: COBOL mode</title>
|
|
|
<link rel="stylesheet" href="../../lib/codemirror.css">
|
|
|
<script src="../../lib/codemirror.js"></script>
|
|
|
<script src="../../addon/edit/matchbrackets.js"></script>
|
|
|
<script src="cobol.js"></script>
|
|
|
<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="../../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>
|
|
|
</head>
|
|
|
<body>
|
|
|
<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---------8
|
|
|
12345678911234567892123456789312345678941234567895123456789612345678971234567898
|
|
|
000010 IDENTIFICATION DIVISION. MODTGHERE
|
|
|
000020 PROGRAM-ID. SAMPLE.
|
|
|
000030 AUTHOR. TEST SAM.
|
|
|
000040 DATE-WRITTEN. 5 February 2013
|
|
|
000041
|
|
|
000042* 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.
|
|
|
000046
|
|
|
000050 ENVIRONMENT DIVISION.
|
|
|
000060 INPUT-OUTPUT SECTION.
|
|
|
000070 FILE-CONTROL.
|
|
|
000080 SELECT STUDENT-FILE ASSIGN TO SYSIN
|
|
|
000090 ORGANIZATION IS LINE SEQUENTIAL.
|
|
|
000100 SELECT PRINT-FILE ASSIGN TO SYSOUT
|
|
|
000110 ORGANIZATION IS LINE SEQUENTIAL.
|
|
|
000120
|
|
|
000130 DATA DIVISION.
|
|
|
000140 FILE SECTION.
|
|
|
000150 FD STUDENT-FILE
|
|
|
000160 RECORD CONTAINS 43 CHARACTERS
|
|
|
000170 DATA RECORD IS STUDENT-IN.
|
|
|
000180 01 STUDENT-IN PIC X(43).
|
|
|
000190
|
|
|
000200 FD PRINT-FILE
|
|
|
000210 RECORD CONTAINS 80 CHARACTERS
|
|
|
000220 DATA RECORD IS PRINT-LINE.
|
|
|
000230 01 PRINT-LINE PIC X(80).
|
|
|
000240
|
|
|
000250 WORKING-STORAGE SECTION.
|
|
|
000260 01 DATA-REMAINS-SWITCH PIC X(2) VALUE SPACES.
|
|
|
000261 01 RECORDS-WRITTEN PIC 99.
|
|
|
000270
|
|
|
000280 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.
|
|
|
000319
|
|
|
000320 PROCEDURE DIVISION.
|
|
|
000321
|
|
|
000330 PREPARE-SENIOR-REPORT.
|
|
|
000340 OPEN INPUT STUDENT-FILE
|
|
|
000350 OUTPUT PRINT-FILE.
|
|
|
000351 MOVE ZERO TO RECORDS-WRITTEN.
|
|
|
000360 READ STUDENT-FILE
|
|
|
000370 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
|
|
|
000380 END-READ.
|
|
|
000390 PERFORM PROCESS-RECORDS
|
|
|
000410 UNTIL DATA-REMAINS-SWITCH = 'NO'.
|
|
|
000411 PERFORM PRINT-SUMMARY.
|
|
|
000420 CLOSE STUDENT-FILE
|
|
|
000430 PRINT-FILE.
|
|
|
000440 STOP RUN.
|
|
|
000450
|
|
|
000460 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-FILE
|
|
|
000520 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
|
|
|
000530 END-READ.
|
|
|
000540
|
|
|
000550 PRINT-SUMMARY.
|
|
|
000560 MOVE RECORDS-WRITTEN TO TOTAL-READ.
|
|
|
000570 MOVE SUMMARY-LINE TO PRINT-LINE.
|
|
|
000571 WRITE PRINT-LINE.
|
|
|
000572
|
|
|
000580
|
|
|
</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["font-size"] = 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>
|
|
|
</body>
|
|
|
</html>
|
|
|
|
