Parte ii - IIS Marconi Latina - Area didattica

1030 volume V Programmazione
83.3 Esempi elementari con i file
«
Qui si raccolgono alcuni esempi elementari di programmi COBOL per l’accesso ai file, risalenti
a un lavoro didattico del 1983. Salvo dove indicato in maniera differente, gli esempi
mostrati funzionano regolarmente se compilati con OpenCOBOL 0.31.
83.3.1 AGO-83-1: estensione di un file sequenziale
«
Una copia di questo file dovrebbe essere disponibile presso 〈allegati/cobol/AGO-83-1.cob 〉.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. AGO-83-1.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 DATE-WRITTEN. 2005-03-20.
|000500*
|000600 ENVIRONMENT DIVISION.
|000700*
|000800 INPUT-OUTPUT SECTION.
|000900*
|001000 FILE-CONTROL.
|001100*
|001200 SELECT FILE-DA-SCRIVERE ASSIGN TO "file.seq"
|001300 ORGANIZATION IS SEQUENTIAL.
|001400*
|001500 DATA DIVISION.
|001600*
|001700 FILE SECTION.
|001800*
|001900 FD FILE-DA-SCRIVERE
|002000 LABEL RECORD IS STANDARD.
|002100*
|002200 01 RECORD-DA-SCRIVERE.
|002300 02 CODICE-FILE PIC 9(10) COMP.
|002400 02 TESTO PIC X(75).
|002500*
|002600 WORKING-STORAGE SECTION.
|002700*
|002800 01 CAMPI-SCALARI.
|002900 02 EOJ PIC 9 COMP VALUE IS 0.
|003000*
|003100 PROCEDURE DIVISION.
|003200*------------------------- LIVELLO 0 -----------------------------
|003300 MAIN.
|003400 OPEN EXTEND FILE-DA-SCRIVERE.
|003500 PERFORM INSERIMENTO-DATI UNTIL EOJ = 1.
|003600 CLOSE FILE-DA-SCRIVERE.
|003700 STOP RUN.
|003800*------------------------- LIVELLO 1 -----------------------------
|003900 INSERIMENTO-DATI.
|004000 DISPLAY "INSERISCI PRIMA IL CODICE NUMERICO, POI IL TESTO"
|004100 ACCEPT CODICE-FILE.
|004200 IF CODICE-FILE = 0