Quelle Index-To-Read.cob Sprache: Cobol

000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID.    INDEXED-TO-READ-PROG.
000030 AUTHOR.        TIMOTHY R P BROWN.
000040
000045*****************************************************
000050* Program to convert indexed file 'INDEXEDFILE.DAT' *
000060* to line sequential (output called 'READFILE.TXT') *
000070* for viewing with text editor.                     *
000075*****************************************************
000080
000090 ENVIRONMENT DIVISION.
000100 INPUT-OUTPUT SECTION.
000110 FILE-CONTROL.
000120
000130        SELECT IN-FILE ASSIGN TO 'INDEXEDFILE.DAT'
000140           ORGANIZATION IS INDEXED
000150           ACCESS MODE IS DYNAMIC
000160           RECORD KEY IS S-KEY-NO.
000170        SELECT OUT-FILE ASSIGN TO 'READFILE.TXT'
000180           ORGANIZATION IS LINE SEQUENTIAL.
000190
000200 DATA DIVISION.
000210 FILE SECTION.
000220
000230 FD IN-FILE.
000240 01 IN-REC.
000250     03 S-KEY-NO        PIC X(6).
000260     03                 PIC X(43).
000270
000280 FD OUT-FILE.
000290 01 OUT-REC             PIC X(49).
000300
000310
000320 WORKING-STORAGE SECTION.
000340
000350 01 EOF-FLAG PIC X VALUE 'N'.
000360     88 END-OF-FILE VALUE 'Y'.
000370
000373*****************************************************
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 NEXT
000450             AT END MOVE 'Y' TO EOF-FLAG
000460             NOT AT END
000470                WRITE OUT-REC FROM IN-REC
000480           END-READ
000490        END-PERFORM
000500
000510        CLOSE IN-FILE OUT-FILE
000520        STOP RUN.

quality100%

¤ Dauer der Verarbeitung: 0.23 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

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.