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.
880 volume V Programmazione<br />
|001100 ACCESS MODE IS DYNAMIC<br />
|001200 RELATIVE KEY IS N-RECORD<br />
|001300 FILE STATUS IS STATO-DEL-FILE.<br />
|001400*<br />
|001500 DATA DIVISION.<br />
|001600 FILE SECTION.<br />
|001700 FD MIO-FILE<br />
|001800 LABEL RECORD IS STANDARD.<br />
|001900 01 MIO-RECORD PIC X(20).<br />
|002000 WORKING-STORAGE SECTION.<br />
|002100 77 N-RECORD PIC 9999 COMP VALUE IS 1.<br />
|002200 77 STATO-DEL-FILE PIC XX.<br />
|002300 PROCEDURE DIVISION.<br />
|002400 MAIN.<br />
|002500 OPEN INPUT MIO-FILE.<br />
|002600 DISPLAY "FILE STATUS: ", STATO-DEL-FILE.<br />
|002700 READ MIO-FILE<br />
|002800 INVALID KEY DISPLAY "INVALID KEY!".<br />
|002900 PERFORM READ-FILE UNTIL STATO-DEL-FILE NOT = ZERO.<br />
|003000 CLOSE MIO-FILE.<br />
|003100 STOP RUN.<br />
|003200 READ-FILE.<br />
|003300 DISPLAY "FILE STATUS: " STATO-DEL-FILE,<br />
|003400 " RECORD: ", N-RECORD, " ", MIO-RECORD.<br />
|003500 READ MIO-FILE NEXT RECORD<br />
|003600 AT END DISPLAY "END OF FILE!".<br />
|003700<br />
Il file che viene letto è lo stesso dell’esempio precedente e il risultato si dovrebbe ottenere, si<br />
può vedere così:<br />
|FILE STATUS: 00<br />
|FILE STATUS: 00 RECORD: 0001 aaaaaaaaaaaaaaaaaaaa<br />
|FILE STATUS: 00 RECORD: 0002 bbbbbbbbbbbbbbbbbbbb<br />
|FILE STATUS: 00 RECORD: 0003 cccccccccccccccccccc<br />
|FILE STATUS: 00 RECORD: 0004 dddddddddddddddddddd<br />
|END OF FILE!<br />
82.4.3.5 Istruzione «SELECT» per i file a indice<br />
«<br />
Lo schema sintattico semplificato per l’istruzione ‘SELECT’, da usare nel paragrafo<br />
‘FILE-CONTROL’, per dichiarare un file organizzato a indici è quello che si può vedere nella<br />
figura successiva: