Parte ii - IIS Marconi Latina - Area didattica

Manuale COBOL 909
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. ELM1150.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 DATE-WRITTEN. 2005-02-24.
|000500*
|000600 ENVIRONMENT DIVISION.
|000700*
|000800 DATA DIVISION.
|000900*
|001000 WORKING-STORAGE SECTION.
|001100 01 RECORD-UTENTI.
|001200 02 UTENTE OCCURS 1 TO 60 TIMES
|001300 DEPENDING ON UTENTI-MAX
|001400 INDEXED BY IND-UTENTE.
|001500 03 COGNOME PIC X(30).
|001600 03 NOME PIC X(30).
|001700 03 NOTA PIC X(200).
|001800 77 UTENTI-MAX USAGE IS INDEX.
|001900 77 EOJ PIC 9 VALUE ZERO.
|002000 77 RISPOSTA PIC XX.
|002100*
|002200 PROCEDURE DIVISION.
|002300*------------------------- LIVELLO 0 -----------------------------
|002400 MAIN.
|002500 PERFORM INSERIMENTO-DATI
|002600 VARYING IND-UTENTE FROM 1 BY 1
|002700 UNTIL EOJ = 1.
|002800 PERFORM SCANSIONE
|002900 VARYING IND-UTENTE FROM 1 BY 1
|003000 UNTIL IND-UTENTE > UTENTI-MAX.
|003100*
|003200 STOP RUN.
|003300*------------------------- LIVELLO 1 -----------------------------
|003400 INSERIMENTO-DATI.
|003500 MOVE IND-UTENTE TO UTENTI-MAX.
|003600 DISPLAY "INSERISCI IL COGNOME: ".
|003700 ACCEPT COGNOME (IND-UTENTE).
|003800 DISPLAY "INSERISCI IL NOME: ".
|003900 ACCEPT NOME (IND-UTENTE).
|004000 DISPLAY "INSERISCI UNA NOTA DESCRITTIVA: ".
|004100 ACCEPT NOTA (IND-UTENTE).
|004200*
|004300 IF IND-UTENTE >= 60
|004400 THEN
|004500 MOVE 1 TO EOJ;
|004600 ELSE
|004700 DISPLAY "VUOI CONTINUARE? SI O NO",
|004800 ACCEPT RISPOSTA;
|004900 IF RISPOSTA = "SI"
|005000 THEN
|005100 DISPLAY "OTTIMO!";
|005200 ELSE