Parte ii - IIS Marconi Latina - Area didattica

Manuale COBOL 971
|Listato 82.221. Programma elementare che legge un file sequenziale, ad accesso sequenziale,
che quando incontra un record contenente lettere «A», lo sostituisce con lettere
«Z».
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. TEST-READ-SEQ-REWRITE.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 INSTALLATION. NANOLINUX IV,
|000500 TINYCOBOL 0.61,
|000600 OPENCOBOL 0.31.
|000700 DATE-WRITTEN. 2005-03-12.
|000800*
|000900 ENVIRONMENT DIVISION.
|001000*
|001100 INPUT-OUTPUT SECTION.
|001200*
|001300 FILE-CONTROL.
|001400*
|001500 SELECT FILE-DA-MODIFICARE ASSIGN TO "input.seq"
|001600 ORGANIZATION IS SEQUENTIAL.
|001700*
|001800 DATA DIVISION.
|001900*
|002000 FILE SECTION.
|002100*
|002200 FD FILE-DA-MODIFICARE
|002300 LABEL RECORD IS STANDARD.
|002400*
|002500 01 RECORD-DA-MODIFICARE PIC X(30).
|002600*
|002700 WORKING-STORAGE SECTION.
|002800 01 EOF PIC 9 VALUE ZERO.
|002900*
|003000 PROCEDURE DIVISION.
|003100*------------------------- LIVELLO 0 -----------------------------
|003200 MAIN.
|003300 OPEN I-O FILE-DA-MODIFICARE.
|003400 READ FILE-DA-MODIFICARE
|003500 AT END
|003600 MOVE 1 TO EOF.
|003700 PERFORM LETTURA-RISCRITTURA UNTIL EOF = 1.
|003800 CLOSE FILE-DA-MODIFICARE.
|003900*
|004000 STOP RUN.
|004100*------------------------- LIVELLO 1 -----------------------------
|004200 LETTURA-RISCRITTURA.
|004300 IF RECORD-DA-MODIFICARE = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
|004400 THEN
|004500 MOVE "ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ"
|004600 TO RECORD-DA-MODIFICARE,
|004700 REWRITE RECORD-DA-MODIFICARE.
|004800 READ FILE-DA-MODIFICARE
|004900 AT END
|005000 MOVE 1 TO EOF.