Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: Create-Index-Prog.cob Sprache: Cobol

Original von: verschiedene^©

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.18 Sekunden (vorverarbeitet) ¤

Download des Quellennavigators
Download des sprechenden Kalenders
in der Quellcodebibliothek suchen

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.