code-example
Version:
Language code example.
9 lines (8 loc) • 3.09 kB
JavaScript
"use strict";
Object.defineProperty(exports, "__esModule", {
value: true
});
exports.default = void 0;
var code = "---------1---------2---------3---------4---------5---------6---------7---------8\n12345678911234567892123456789312345678941234567895123456789612345678971234567898\n000010 IDENTIFICATION DIVISION. MODTGHERE\n000020 PROGRAM-ID. SAMPLE.\n000030 AUTHOR. TEST SAM. \n000040 DATE-WRITTEN. 5 February 2013\n000041\n000042* A sample program just to show the form.\n000043* The program copies its input to the output,\n000044* and counts the number of records.\n000045* At the end this number is printed.\n000046\n000050 ENVIRONMENT DIVISION.\n000060 INPUT-OUTPUT SECTION.\n000070 FILE-CONTROL.\n000080 SELECT STUDENT-FILE ASSIGN TO SYSIN\n000090 ORGANIZATION IS LINE SEQUENTIAL.\n000100 SELECT PRINT-FILE ASSIGN TO SYSOUT\n000110 ORGANIZATION IS LINE SEQUENTIAL.\n000120\n000130 DATA DIVISION.\n000140 FILE SECTION.\n000150 FD STUDENT-FILE\n000160 RECORD CONTAINS 43 CHARACTERS\n000170 DATA RECORD IS STUDENT-IN.\n000180 01 STUDENT-IN PIC X(43).\n000190\n000200 FD PRINT-FILE\n000210 RECORD CONTAINS 80 CHARACTERS\n000220 DATA RECORD IS PRINT-LINE.\n000230 01 PRINT-LINE PIC X(80).\n000240\n000250 WORKING-STORAGE SECTION.\n000260 01 DATA-REMAINS-SWITCH PIC X(2) VALUE SPACES.\n000261 01 RECORDS-WRITTEN PIC 99.\n000270\n000280 01 DETAIL-LINE.\n000290 05 FILLER PIC X(7) VALUE SPACES.\n000300 05 RECORD-IMAGE PIC X(43).\n000310 05 FILLER PIC X(30) VALUE SPACES.\n000311 \n000312 01 SUMMARY-LINE.\n000313 05 FILLER PIC X(7) VALUE SPACES.\n000314 05 TOTAL-READ PIC 99.\n000315 05 FILLER PIC X VALUE SPACE.\n000316 05 FILLER PIC X(17) \n000317 VALUE 'Records were read'.\n000318 05 FILLER PIC X(53) VALUE SPACES.\n000319\n000320 PROCEDURE DIVISION.\n000321\n000330 PREPARE-SENIOR-REPORT.\n000340 OPEN INPUT STUDENT-FILE\n000350 OUTPUT PRINT-FILE.\n000351 MOVE ZERO TO RECORDS-WRITTEN.\n000360 READ STUDENT-FILE\n000370 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH\n000380 END-READ.\n000390 PERFORM PROCESS-RECORDS\n000410 UNTIL DATA-REMAINS-SWITCH = 'NO'.\n000411 PERFORM PRINT-SUMMARY.\n000420 CLOSE STUDENT-FILE\n000430 PRINT-FILE.\n000440 STOP RUN.\n000450\n000460 PROCESS-RECORDS.\n000470 MOVE STUDENT-IN TO RECORD-IMAGE.\n000480 MOVE DETAIL-LINE TO PRINT-LINE.\n000490 WRITE PRINT-LINE.\n000500 ADD 1 TO RECORDS-WRITTEN.\n000510 READ STUDENT-FILE\n000520 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH\n000530 END-READ. \n000540\n000550 PRINT-SUMMARY.\n000560 MOVE RECORDS-WRITTEN TO TOTAL-READ.\n000570 MOVE SUMMARY-LINE TO PRINT-LINE.\n000571 WRITE PRINT-LINE. \n000572\n000580\n\n";
var _default = code;
exports.default = _default;