|
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.
¤ Dauer der Verarbeitung: 0.16 Sekunden
(vorverarbeitet)
¤
|
schauen Sie vor die Tür
Fenster
Die Firma ist wie angegeben erreichbar.
Die farbliche Syntaxdarstellung ist noch experimentell.
|
