Edit File by line

<!doctype html>

[0] Fix | Delete

[1] Fix | Delete

<title>CodeMirror: COBOL mode</title>

[2] Fix | Delete

[3] Fix | Delete

[4] Fix | Delete

[5] Fix | Delete

[6] Fix | Delete

[7] Fix | Delete

[8] Fix | Delete

[9] Fix | Delete

[10] Fix | Delete

[11] Fix | Delete

[12] Fix | Delete

[13] Fix | Delete

[14] Fix | Delete

[15] Fix | Delete

[16] Fix | Delete

[17] Fix | Delete

[18] Fix | Delete

[19] Fix | Delete

[20] Fix | Delete

[21] Fix | Delete

[22] Fix | Delete

[23] Fix | Delete

[24] Fix | Delete

[25] Fix | Delete

[26] Fix | Delete

[27] Fix | Delete

[28] Fix | Delete

[29] Fix | Delete

[30] Fix | Delete

[31] Fix | Delete

<style>

[32] Fix | Delete

.CodeMirror {

[33] Fix | Delete

border: 1px solid #eee;

[34] Fix | Delete

font-size : 20px;

[35] Fix | Delete

height : auto !important;

[36] Fix | Delete

}

[37] Fix | Delete

.CodeMirror-activeline-background {background: #555555 !important;}

[38] Fix | Delete

</style>

[39] Fix | Delete

[40] Fix | Delete

<a href="http://codemirror.net"><h1>CodeMirror</h1><img id=logo src="../../doc/logo.png"></a>

[41] Fix | Delete

[42] Fix | Delete

<ul>

[43] Fix | Delete

[44] Fix | Delete

<li><a href="../../doc/manual.html">Manual</a>

[45] Fix | Delete

[46] Fix | Delete

</ul>

[47] Fix | Delete

<ul>

[48] Fix | Delete

<li><a href="../index.html">Language modes</a>

[49] Fix | Delete

<li><a class=active href="#">COBOL</a>

[50] Fix | Delete

</ul>

[51] Fix | Delete

</div>

[52] Fix | Delete

[53] Fix | Delete

[54] Fix | Delete

<h2>COBOL mode</h2>

[55] Fix | Delete

[56] Fix | Delete

<p> Select Theme <select onchange="selectTheme()" id="selectTheme">

[57] Fix | Delete

<option>default</option>

[58] Fix | Delete

<option>ambiance</option>

[59] Fix | Delete

<option>blackboard</option>

[60] Fix | Delete

<option>cobalt</option>

[61] Fix | Delete

<option>eclipse</option>

[62] Fix | Delete

<option>elegant</option>

[63] Fix | Delete

<option>erlang-dark</option>

[64] Fix | Delete

<option>lesser-dark</option>

[65] Fix | Delete

<option>midnight</option>

[66] Fix | Delete

<option>monokai</option>

[67] Fix | Delete

[68] Fix | Delete

<option>night</option>

[69] Fix | Delete

<option>rubyblue</option>

[70] Fix | Delete

<option>solarized dark</option>

[71] Fix | Delete

<option>solarized light</option>

[72] Fix | Delete

<option selected>twilight</option>

[73] Fix | Delete

<option>vibrant-ink</option>

[74] Fix | Delete

[75] Fix | Delete

<option>xq-light</option>

[76] Fix | Delete

</select> Select Font Size <select onchange="selectFontsize()" id="selectFontSize">

[77] Fix | Delete

[78] Fix | Delete

[79] Fix | Delete

[80] Fix | Delete

[81] Fix | Delete

[82] Fix | Delete

[83] Fix | Delete

[84] Fix | Delete

[85] Fix | Delete

[86] Fix | Delete

[87] Fix | Delete

[88] Fix | Delete

[89] Fix | Delete

</select>

[90] Fix | Delete

[91] Fix | Delete

[92] Fix | Delete

<label for="id_tabToIndentSpace">Insert Spaces on Tab</label>

[93] Fix | Delete

[94] Fix | Delete

</p>

[95] Fix | Delete

[96] Fix | Delete

---------1---------2---------3---------4---------5---------6---------7---------8

[97] Fix | Delete

12345678911234567892123456789312345678941234567895123456789612345678971234567898

[98] Fix | Delete

000010 IDENTIFICATION DIVISION. MODTGHERE

[99] Fix | Delete

000020 PROGRAM-ID. SAMPLE.

[100] Fix | Delete

000030 AUTHOR. TEST SAM.

[101] Fix | Delete

000040 DATE-WRITTEN. 5 February 2013

[102] Fix | Delete

000041

[103] Fix | Delete

000042* A sample program just to show the form.

[104] Fix | Delete

000043* The program copies its input to the output,

[105] Fix | Delete

000044* and counts the number of records.

[106] Fix | Delete

000045* At the end this number is printed.

[107] Fix | Delete

000046

[108] Fix | Delete

000050 ENVIRONMENT DIVISION.

[109] Fix | Delete

000060 INPUT-OUTPUT SECTION.

[110] Fix | Delete

000070 FILE-CONTROL.

[111] Fix | Delete

000080 SELECT STUDENT-FILE ASSIGN TO SYSIN

[112] Fix | Delete

000090 ORGANIZATION IS LINE SEQUENTIAL.

[113] Fix | Delete

000100 SELECT PRINT-FILE ASSIGN TO SYSOUT

[114] Fix | Delete

000110 ORGANIZATION IS LINE SEQUENTIAL.

[115] Fix | Delete

000120

[116] Fix | Delete

000130 DATA DIVISION.

[117] Fix | Delete

000140 FILE SECTION.

[118] Fix | Delete

000150 FD STUDENT-FILE

[119] Fix | Delete

000160 RECORD CONTAINS 43 CHARACTERS

[120] Fix | Delete

000170 DATA RECORD IS STUDENT-IN.

[121] Fix | Delete

000180 01 STUDENT-IN PIC X(43).

[122] Fix | Delete

000190

[123] Fix | Delete

000200 FD PRINT-FILE

[124] Fix | Delete

000210 RECORD CONTAINS 80 CHARACTERS

[125] Fix | Delete

000220 DATA RECORD IS PRINT-LINE.

[126] Fix | Delete

000230 01 PRINT-LINE PIC X(80).

[127] Fix | Delete

000240

[128] Fix | Delete

000250 WORKING-STORAGE SECTION.

[129] Fix | Delete

000260 01 DATA-REMAINS-SWITCH PIC X(2) VALUE SPACES.

[130] Fix | Delete

000261 01 RECORDS-WRITTEN PIC 99.

[131] Fix | Delete

000270

[132] Fix | Delete

000280 01 DETAIL-LINE.

[133] Fix | Delete

000290 05 FILLER PIC X(7) VALUE SPACES.

[134] Fix | Delete

000300 05 RECORD-IMAGE PIC X(43).

[135] Fix | Delete

000310 05 FILLER PIC X(30) VALUE SPACES.

[136] Fix | Delete

000311

[137] Fix | Delete

000312 01 SUMMARY-LINE.

[138] Fix | Delete

000313 05 FILLER PIC X(7) VALUE SPACES.

[139] Fix | Delete

000314 05 TOTAL-READ PIC 99.

[140] Fix | Delete

000315 05 FILLER PIC X VALUE SPACE.

[141] Fix | Delete

000316 05 FILLER PIC X(17)

[142] Fix | Delete

000317 VALUE 'Records were read'.

[143] Fix | Delete

000318 05 FILLER PIC X(53) VALUE SPACES.

[144] Fix | Delete

000319

[145] Fix | Delete

000320 PROCEDURE DIVISION.

[146] Fix | Delete

000321

[147] Fix | Delete

000330 PREPARE-SENIOR-REPORT.

[148] Fix | Delete

000340 OPEN INPUT STUDENT-FILE

[149] Fix | Delete

000350 OUTPUT PRINT-FILE.

[150] Fix | Delete

000351 MOVE ZERO TO RECORDS-WRITTEN.

[151] Fix | Delete

000360 READ STUDENT-FILE

[152] Fix | Delete

000370 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH

[153] Fix | Delete

000380 END-READ.

[154] Fix | Delete

000390 PERFORM PROCESS-RECORDS

[155] Fix | Delete

000410 UNTIL DATA-REMAINS-SWITCH = 'NO'.

[156] Fix | Delete

000411 PERFORM PRINT-SUMMARY.

[157] Fix | Delete

000420 CLOSE STUDENT-FILE

[158] Fix | Delete

000430 PRINT-FILE.

[159] Fix | Delete

000440 STOP RUN.

[160] Fix | Delete

000450

[161] Fix | Delete

000460 PROCESS-RECORDS.

[162] Fix | Delete

000470 MOVE STUDENT-IN TO RECORD-IMAGE.

[163] Fix | Delete

000480 MOVE DETAIL-LINE TO PRINT-LINE.

[164] Fix | Delete

000490 WRITE PRINT-LINE.

[165] Fix | Delete

000500 ADD 1 TO RECORDS-WRITTEN.

[166] Fix | Delete

000510 READ STUDENT-FILE

[167] Fix | Delete

000520 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH

[168] Fix | Delete

000530 END-READ.

[169] Fix | Delete

000540

[170] Fix | Delete

000550 PRINT-SUMMARY.

[171] Fix | Delete

000560 MOVE RECORDS-WRITTEN TO TOTAL-READ.

[172] Fix | Delete

000570 MOVE SUMMARY-LINE TO PRINT-LINE.

[173] Fix | Delete

000571 WRITE PRINT-LINE.

[174] Fix | Delete

000572

[175] Fix | Delete

000580

[176] Fix | Delete

</textarea>

[177] Fix | Delete

[178] Fix | Delete

var editor = CodeMirror.fromTextArea(document.getElementById("code"), {

[179] Fix | Delete

lineNumbers: true,

[180] Fix | Delete

matchBrackets: true,

[181] Fix | Delete

mode: "text/x-cobol",

[182] Fix | Delete

theme : "twilight",

[183] Fix | Delete

styleActiveLine: true,

[184] Fix | Delete

showCursorWhenSelecting : true,

[185] Fix | Delete

});

[186] Fix | Delete

function selectTheme() {

[187] Fix | Delete

var themeInput = document.getElementById("selectTheme");

[188] Fix | Delete

var theme = themeInput.options[themeInput.selectedIndex].innerHTML;

[189] Fix | Delete

editor.setOption("theme", theme);

[190] Fix | Delete

}

[191] Fix | Delete

function selectFontsize() {

[192] Fix | Delete

var fontSizeInput = document.getElementById("selectFontSize");

[193] Fix | Delete

var fontSize = fontSizeInput.options[fontSizeInput.selectedIndex].innerHTML;

[194] Fix | Delete

editor.getWrapperElement().style.fontSize = fontSize;

[195] Fix | Delete

editor.refresh();

[196] Fix | Delete

}

[197] Fix | Delete

function selectReadOnly() {

[198] Fix | Delete

editor.setOption("readOnly", document.getElementById("checkBoxReadOnly").checked);

[199] Fix | Delete

}

[200] Fix | Delete

function tabToIndentSpace() {

[201] Fix | Delete

if (document.getElementById("id_tabToIndentSpace").checked) {

[202] Fix | Delete

editor.setOption("extraKeys", {Tab: function(cm) { cm.replaceSelection(" ", "end"); }});

[203] Fix | Delete

} else {

[204] Fix | Delete

editor.setOption("extraKeys", {Tab: function(cm) { cm.replaceSelection(" ", "end"); }});

[205] Fix | Delete

}

[206] Fix | Delete

}

[207] Fix | Delete

</script>

[208] Fix | Delete

</article>

[209] Fix | Delete

[210] Fix | Delete