Parte ii - IIS Marconi Latina - Area didattica
Parte ii - IIS Marconi Latina - Area didattica
Parte ii - IIS Marconi Latina - Area didattica
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
1032 volume V Programmazione<br />
|004100 STOP RUN.<br />
|004200*------------------------- LIVELLO 1 -----------------------------<br />
|004300 DOMANDA.<br />
|004400 DISPLAY "INSERISCI IL CODICE DEL RECORD, DI 10 CIFRE"<br />
|004500 ACCEPT CODICE-RECORD.<br />
|004600 IF CODICE-RECORD = 0<br />
|004700 THEN<br />
|004800 MOVE 1 TO EOJ.<br />
|004900 PERFORM RICERCA UNTIL EOF = 1 OR EOJ = 1.<br />
|005000 CLOSE FILE-DA-LEGGERE.<br />
|005100 MOVE ZERO TO EOF.<br />
|005200 OPEN INPUT FILE-DA-LEGGERE.<br />
|005300 READ FILE-DA-LEGGERE<br />
|005400 AT END MOVE 1 TO EOF.<br />
|005500*------------------------- LIVELLO 2 -----------------------------<br />
|005600 RICERCA.<br />
|005700 IF CODICE-FILE = CODICE-RECORD<br />
|005800 THEN<br />
|005900 DISPLAY CODICE-FILE, " ", TESTO.<br />
|006000 READ FILE-DA-LEGGERE<br />
|006100 AT END MOVE 1 TO EOF.<br />
|006200*<br />
83.3.3 AGO-83-3: estensione di un file relativo<br />
«<br />
Una copia di questo file dovrebbe essere disponibile presso 〈allegati/cobol/AGO-83-3.cob 〉.<br />
|000100 IDENTIFICATION DIVISION.<br />
|000200 PROGRAM-ID. AGO-83-3.<br />
|000300 AUTHOR. DANIELE GIACOMINI.<br />
|000400 DATE-WRITTEN. 2005-03-20.<br />
|000500*<br />
|000600 ENVIRONMENT DIVISION.<br />
|000700*<br />
|000800 INPUT-OUTPUT SECTION.<br />
|000900*<br />
|001000 FILE-CONTROL.<br />
|001100*<br />
|001200 SELECT FILE-DA-SCRIVERE ASSIGN TO "file.rel"<br />
|001300 ORGANIZATION IS RELATIVE<br />
|001400 ACCESS MODE IS SEQUENTIAL.<br />
|001500*<br />
|001600 DATA DIVISION.<br />
|001700*<br />
|001800 FILE SECTION.<br />
|001900*<br />
|002000 FD FILE-DA-SCRIVERE<br />
|002100 LABEL RECORD IS STANDARD.<br />
|002200*<br />
|002300 01 RECORD-DA-SCRIVERE.<br />
|002400 02 TESTO PIC X(80).