Parte ii - IIS Marconi Latina - Area didattica

Programmare in COBOL 1043
83.3.10 AGO-83-13: creazione di un file sequenziale con dati da
rielaborare
Questo esempio serve a creare un file sequenziale, contenente dei calcoli da eseguire,
successivamente, con un altro programma.
«
Una copia di questo file dovrebbe essere disponibile presso 〈allegati/cobol/AGO-83-13.cob 〉.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. AGO-83-13.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 DATE-WRITTEN. 2005-03-22.
|000500*
|000600 ENVIRONMENT DIVISION.
|000700*
|000800 INPUT-OUTPUT SECTION.
|000900*
|001000 FILE-CONTROL.
|001100*
|001200 SELECT FILE-DA-SCRIVERE ASSIGN TO "calc.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 NUMERO-1 PIC 9(15).
|002400 02 TIPO-CALCOLO PIC X.
|002500 02 NUMERO-2 PIC 9(15).
|002600 02 FILLER PIC X.
|002700 02 RISULTATO PIC 9(15).
|002800 02 FILLER PIC X.
|002900 02 RESTO PIC 9(15).
|003000 02 NOTE PIC X(18).
|003100*
|003200 WORKING-STORAGE SECTION.
|003300*
|003400 01 CAMPI-SCALARI.
|003500 02 EOJ PIC 9 COMP VALUE IS 0.
|003600*
|003700 PROCEDURE DIVISION.
|003800*------------------------- LIVELLO 0 -----------------------------
|003900 MAIN.
|004000 OPEN EXTEND FILE-DA-SCRIVERE.
|004100 PERFORM INSERIMENTO-DATI UNTIL EOJ = 1.
|004200 CLOSE FILE-DA-SCRIVERE.
|004300 STOP RUN.
|004400*------------------------- LIVELLO 1 -----------------------------
|004500 INSERIMENTO-DATI.
|004600 DISPLAY "INSERISCI, IN SEQUENZA, IL PRIMO NUMERO, ",