Parte ii - IIS Marconi Latina - Area didattica

Manuale COBOL 981
|Listato 82.233. Programma elementare che legge un file relativo, ad accesso sequenziale,
partendo dal terzo record.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. TEST-READ-SEQ-START.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 DATE-WRITTEN. 2005-03-13.
|000500*
|000600 ENVIRONMENT DIVISION.
|000700*
|000800 INPUT-OUTPUT SECTION.
|000900*
|001000 FILE-CONTROL.
|001100*
|001200 SELECT FILE-DA-LEGGERE ASSIGN TO "input.rel"
|001300 ORGANIZATION IS RELATIVE
|001400 RELATIVE KEY IS N-RECORD
|001500 ACCESS MODE IS SEQUENTIAL.
|001600*
|001700 DATA DIVISION.
|001800*
|001900 FILE SECTION.
|002000*
|002100 FD FILE-DA-LEGGERE
|002200 LABEL RECORD IS STANDARD.
|002300*
|002400 01 RECORD-DA-LEGGERE PIC X(30).
|002500*
|002600 WORKING-STORAGE SECTION.
|002700 77 EOF PIC 9 VALUE ZERO.
|002800 77 N-RECORD PIC 999 VALUE ZERO.
|002900*
|003000 PROCEDURE DIVISION.
|003100*------------------------- LIVELLO 0 -----------------------------
|003200 MAIN.
|003300 OPEN INPUT FILE-DA-LEGGERE.
|003400 MOVE 3 TO N-RECORD.
|003500 START FILE-DA-LEGGERE KEY IS EQUAL TO N-RECORD
|003600 INVALID KEY
|003700 MOVE 1 TO EOF.
|003800 READ FILE-DA-LEGGERE
|003900 AT END
|004000 MOVE 1 TO EOF.
|004100 PERFORM LETTURA UNTIL EOF = 1.
|004200 CLOSE FILE-DA-LEGGERE.
|004300*
|004400 STOP RUN.
|004500*------------------------- LIVELLO 1 -----------------------------
|004600 LETTURA.
|004700 DISPLAY RECORD-DA-LEGGERE.
|004800 READ FILE-DA-LEGGERE
|004900 AT END
|005000 MOVE 1 TO EOF.