Parte ii - IIS Marconi Latina - Area didattica
Parte ii - IIS Marconi Latina - Area didattica
Parte ii - IIS Marconi Latina - Area didattica
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Manuale COBOL 913<br />
|000700*<br />
|000800 ENVIRONMENT DIVISION.<br />
|000900*<br />
|001000 DATA DIVISION.<br />
|001100*<br />
|001200 WORKING-STORAGE SECTION.<br />
|001300 01 RECORD-UTENTI.<br />
|001400 02 UTENTE OCCURS 1 TO 60 TIMES<br />
|001500 DEPENDING ON UTENTI-MAX<br />
|001600 ASCENDING KEY IS COGNOME<br />
|001700 INDEXED BY IND-UTENTE.<br />
|001800 03 COGNOME PIC X(30).<br />
|001900 03 NOME PIC X(30).<br />
|002000 03 NOTA PIC X(200).<br />
|002100 77 UTENTI-MAX USAGE IS INDEX.<br />
|002200 77 EOJ PIC 9 VALUE ZERO.<br />
|002300 77 RISPOSTA PIC XX.<br />
|002400 77 RICERCA PIC X(30).<br />
|002500*<br />
|002600 PROCEDURE DIVISION.<br />
|002700*------------------------- LIVELLO 0 -----------------------------<br />
|002800 MAIN.<br />
|002900 PERFORM INSERIMENTO-DATI<br />
|003000 VARYING IND-UTENTE FROM 1 BY 1<br />
|003100 UNTIL EOJ = 1.<br />
|003200 MOVE 0 TO EOJ.<br />
|003300 PERFORM SCANSIONE UNTIL EOJ = 1.<br />
|003400*<br />
|003500 STOP RUN.<br />
|003600*------------------------- LIVELLO 1 -----------------------------<br />
|003700 INSERIMENTO-DATI.<br />
|003800 MOVE IND-UTENTE TO UTENTI-MAX.<br />
|003900 DISPLAY IND-UTENTE, " INSERISCI IL COGNOME: ".<br />
|004000 ACCEPT COGNOME (IND-UTENTE).<br />
|004100 DISPLAY IND-UTENTE, " INSERISCI IL NOME: ".<br />
|004200 ACCEPT NOME (IND-UTENTE).<br />
|004300 DISPLAY IND-UTENTE, " INSERISCI UNA NOTA DESCRITTIVA: ".<br />
|004400 ACCEPT NOTA (IND-UTENTE).<br />
|004500*<br />
|004600 IF IND-UTENTE >= 60<br />
|004700 THEN<br />
|004800 MOVE 1 TO EOJ;<br />
|004900 ELSE<br />
|005000 DISPLAY "VUOI CONTINUARE? SI O NO",<br />
|005100 ACCEPT RISPOSTA;<br />
|005200 IF RISPOSTA = "SI"<br />
|005300 THEN<br />
|005400 NEXT SENTENCE;<br />
|005500 ELSE<br />
|005600 MOVE 1 TO EOJ.<br />
|005700*-----------------------------------------------------------------<br />
|005800 SCANSIONE.<br />
|005900 DISPLAY "INSERISCI IL COGNOME DA CERCARE:".