Parte ii - IIS Marconi Latina - Area didattica

Programmare in COBOL 1035
|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.ind"
|001300 ORGANIZATION IS INDEXED
|001400 ACCESS MODE IS SEQUENTIAL
|001500 RECORD KEY IS CHIAVE
|001600 ALTERNATE RECORD KEY IS CHIAVE2
|001700 WITH DUPLICATES.
|001800*
|001900 DATA DIVISION.
|002000*
|002100 FILE SECTION.
|002200*
|002300 FD FILE-DA-SCRIVERE
|002400 LABEL RECORD IS STANDARD.
|002500*
|002600 01 RECORD-DA-SCRIVERE.
|002700 02 CHIAVE PIC X(5).
|002800 02 CHIAVE2 PIC X(5).
|002900 02 TESTO PIC X(70).
|003000*
|003100 WORKING-STORAGE SECTION.
|003200*
|003300 01 CAMPI-SCALARI.
|003400 02 EOJ PIC 9 COMP VALUE IS 0.
|003500*
|003600 PROCEDURE DIVISION.
|003700*------------------------- LIVELLO 0 -----------------------------
|003800 MAIN.
|003900 OPEN OUTPUT FILE-DA-SCRIVERE.
|004000 PERFORM INSERIMENTO-DATI UNTIL EOJ = 1.
|004100 CLOSE FILE-DA-SCRIVERE.
|004200 STOP RUN.
|004300*------------------------- LIVELLO 1 -----------------------------
|004400 INSERIMENTO-DATI.
|004500 DISPLAY "INSERISCI IL RECORD: I PRIMI CINQUE CARATTERI ",
|004600 "COSTITUISCONO LA CHIAVE PRIMARIA ",
|004700 "CHE DEVE ESSERE UNICA"
|004800 ACCEPT RECORD-DA-SCRIVERE.
|004900 IF RECORD-DA-SCRIVERE = SPACES
|005000 THEN
|005100 MOVE 1 TO EOJ,
|005200 ELSE
|005300 WRITE RECORD-DA-SCRIVERE
|005400 INVALID KEY
|005500 DISPLAY "LA CHIAVE ", CHIAVE,
|005600 " E’ DOPPIA, OPPURE "