Parte ii - IIS Marconi Latina - Area didattica

1034 volume V Programmazione
|002400 01 RECORD-DA-LEGGERE.
|002500 02 TESTO PIC X(80).
|002600*
|002700 WORKING-STORAGE SECTION.
|002800*
|002900 01 CAMPI-SCALARI.
|003000 02 INVALID-KEY PIC 9 COMP VALUE IS 0.
|003100 02 EOJ PIC 9 COMP VALUE IS 0.
|003200 02 N-RECORD PIC 9(10) COMP VALUE IS 0.
|003300*
|003400 PROCEDURE DIVISION.
|003500*------------------------- LIVELLO 0 -----------------------------
|003600 MAIN.
|003700 OPEN INPUT FILE-DA-LEGGERE.
|003800 PERFORM ELABORA UNTIL EOJ = 1.
|003900 CLOSE FILE-DA-LEGGERE.
|004000 STOP RUN.
|004100*------------------------- LIVELLO 1 -----------------------------
|004200 ELABORA.
|004300 DISPLAY "INSERISCI IL NUMERO DEL RECORD"
|004400 ACCEPT N-RECORD.
|004500 IF N-RECORD = 0
|004600 THEN
|004700 MOVE 1 TO EOJ;
|004800 ELSE
|004900 PERFORM LEGGI,
|005000 IF INVALID-KEY = 1
|005100 THEN
|005200 DISPLAY "INVALID KEY";
|005300 ELSE
|005400 PERFORM VISUALIZZA.
|005500*------------------------- LIVELLO 2 -----------------------------
|005600 VISUALIZZA.
|005700 DISPLAY N-RECORD, " ", TESTO.
|005800*-----------------------------------------------------------------
|005900 LEGGI.
|006000 MOVE ZERO TO INVALID-KEY.
|006100 READ FILE-DA-LEGGERE
|006200 INVALID KEY
|006300 MOVE 1 TO INVALID-KEY.
|006400*
83.3.5 AGO-83-5: creazione di un file a indice
«
Questo esempio funziona con il compilatore TinyCOBOL 0.61. In questo caso, vengono creati
due file: ‘file.ind’ e ‘file.ind1’, che insieme costituiscono lo stesso file logico.
Una copia di questo file dovrebbe essere disponibile presso 〈allegati/cobol/AGO-83-5.cob 〉.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. AGO-83-5.
|000300 AUTHOR. DANIELE GIACOMINI.