|
000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. CREATE-INDEX-PROG.
000030 AUTHOR. TIMOTHY R P BROWN.
000040
000045*****************************************************
000050* Program to convert a sorted (ascending) *
000060* line sequential file ('LINESEQFILE.TXT') to *
000070* an indexed file (output 'INDEXEDFILE.DAT'). *
000075*****************************************************
000080
000090 ENVIRONMENT DIVISION.
000100 INPUT-OUTPUT SECTION.
000110 FILE-CONTROL.
000120
000130 SELECT OUT-FILE ASSIGN TO 'INDEXEDFILE.DAT'
000140 ORGANIZATION IS INDEXED
000150 ACCESS MODE IS SEQUENTIAL
000160 RECORD KEY IS INDEX-KEY.
000170 SELECT IN-FILE ASSIGN TO 'LINESEQFILE.TXT'
000180 ORGANIZATION IS LINE SEQUENTIAL.
000190
000200 DATA DIVISION.
000210 FILE SECTION.
000220
000230 FD OUT-FILE.
000240 01 MAKE-OUT.
000250 03 INDEX-KEY PIC X(6).
000260 03 PIC X(120).
000270
000280 FD IN-FILE.
000290 01 IN-REC PIC X(126).
000300
000310
000320 WORKING-STORAGE SECTION.
000340
000350 01 EOF-FLAG PIC X VALUE 'N'.
000360 88 END-OF-FILE VALUE 'Y'.
000370
000375*****************************************************
000377
000380 PROCEDURE DIVISION.
000390 MAIN-PARA.
000400 OPEN INPUT IN-FILE
000410 OUTPUT OUT-FILE
000420
000430 PERFORM UNTIL END-OF-FILE
000440 READ IN-FILE
000450 AT END MOVE 'Y' TO EOF-FLAG
000460 NOT AT END
000470 MOVE IN-REC TO MAKE-OUT
000480 WRITE MAKE-OUT
000490 END-READ
000500 END-PERFORM
000510
000520 CLOSE OUT-FILE IN-FILE
000530 STOP RUN.
¤ Dauer der Verarbeitung: 0.20 Sekunden
(vorverarbeitet)
¤
|
Laden
Fehler beim Verzeichnis:
in der Quellcodebibliothek suchen
Die farbliche Syntaxdarstellung ist noch experimentell.
|
