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.
Manuale COBOL 865<br />
|Listato 82.17. Un esempio preso da un programma sorgente, dove si mette in evidenza<br />
come si continua una parola o una costante alfanumerica nella riga successiva.<br />
|000100 IDENTIFICATION DIVISION. ESEMPIO0<br />
|000200 ESEMPIO0<br />
|000300 PROGRAM-ID. ESEMPIO0. ESEMPIO0<br />
|000400 AUTHOR. DANIELE GIACOMINI. ESEMPIO0<br />
|000500 DATE-WRITTEN. 2005-02-13. ESEMPIO0<br />
|000600 ESEMPIO0<br />
|000700 ESEMPIO0<br />
|000800 ENVIRONMENT DIVISION. ESEMPIO0<br />
|000900 ESEMPIO0<br />
|001000 INPUT-OUTPUT SECTION. ESEMPIO0<br />
|001100 ESEMPIO0<br />
|001200 FILE-CONTROL. ESEMPIO0<br />
|001300 ESEMPIO0<br />
|001400 SELECT FILE-DA-LEGGERE ASSIGN TO DISK ESEMPIO0<br />
|001500 ORGANIZATION IS SEQUENTIAL. ESEMPIO0<br />
|001600 ESEMPIO0<br />
|001700 DATA DIVISION. ESEMPIO0<br />
|001800 ESEMPIO0<br />
|001900 FILE SECTION. ESEMPIO0<br />
|002000 ESEMPIO0<br />
|002100 FD FILE-DA-LEGGERE ESEMPIO0<br />
|002200 LABEL RECORD IS STANDARD ESEMPIO0<br />
|002300 VALUE OF FILE-ID IS "input.txt". ESEMPIO0<br />
|002400 ESEMPIO0<br />
|002500 01 RECORD-DA-LEGGERE PIC X(30). ESEMPIO0<br />
|002600 ESEMPIO0<br />
|002700 WORKING-STORAGE SECTION. ESEMPIO0<br />
|002800 01 EOF PIC 9 VALUE ZERO. ESEMPIO0<br />
|002900/ ESEMPIO0<br />
|003000 PROCEDURE DIVISION. ESEMPIO0<br />
|003100* ESEMPIO0<br />
|003200* Qui inizia il paragrafo "MAIN". ESEMPIO0<br />
|003300* ESEMPIO0<br />
|003400 MAIN. ESEMPIO0<br />
|003500 OPEN INPUT FILE-DA-LEG ESEMPIO0<br />
|003600- GERE. ESEMPIO0<br />
|003700 READ FILE-DA-LEG ESEMPIO0<br />
|003800- GERE ESEMPIO0<br />
|003900 AT END ESEMPIO0<br />
|004000 MOVE 1 TO EOF. ESEMPIO0<br />
|004100 DISPLAY "Ho aperto il file input.txt e sto per emettere il suESEMPIO0<br />
|004200- "o contenuto sullo schermo:". ESEMPIO0<br />
|004300 PERFORM LETTURA UNTIL EOF = 1. ESEMPIO0<br />
|004400 CLOSE FILE-DA-LEGGERE. ESEMPIO0<br />
|004500 ESEMPIO0<br />
|004600 STOP RUN. ESEMPIO0<br />
|004700* ESEMPIO0<br />
|004800* Qui inizia un altro paragrafo. ESEMPIO0<br />
|004900* ESEMPIO0<br />
|005000 LETTURA. ESEMPIO0<br />
|005100 DISPLAY RECORD-DA-LEGGERE. ESEMPIO0