Parte ii - IIS Marconi Latina - Area didattica

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