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.
1044 volume V Programmazione<br />
|004700 "IL SIMBOLO DELL’OPERAZIONE, IL SECONDO NUMERO".<br />
|004800 ACCEPT NUMERO-1.<br />
|004900 ACCEPT TIPO-CALCOLO.<br />
|005000 ACCEPT NUMERO-2.<br />
|005100 IF NUMERO-1 = 0 AND NUMERO-2 = 0 AND TIPO-CALCOLO = SPACE<br />
|005200 THEN<br />
|005300 MOVE 1 TO EOJ,<br />
|005400 ELSE<br />
|005500 WRITE RECORD-DA-SCRIVERE.<br />
|005600*<br />
83.3.11 AGO-83-14: lettura e riscrittura di un file sequenziale<br />
«<br />
Questo esempio legge e riscrive il file generato con l’esempio precedente, eseguendo i calcoli<br />
previsti e mostrando anche il risultato a video.<br />
Una copia di questo file dovrebbe essere disponibile presso 〈allegati/cobol/AGO-83-14.cob 〉.<br />
|000100 IDENTIFICATION DIVISION.<br />
|000200 PROGRAM-ID. AGO-83-14.<br />
|000300 AUTHOR. DANIELE GIACOMINI.<br />
|000400 DATE-WRITTEN. 1983-08.<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-ELABORARE ASSIGN TO "calc.seq"<br />
|001300 ORGANIZATION IS SEQUENTIAL.<br />
|001400*<br />
|001500 DATA DIVISION.<br />
|001600*<br />
|001700 FILE SECTION.<br />
|001800*<br />
|001900 FD FILE-DA-ELABORARE<br />
|002000 LABEL RECORD IS STANDARD.<br />
|002100*<br />
|002200 01 RECORD-DA-ELABORARE.<br />
|002300 02 NUMERO-1 PIC 9(15).<br />
|002400 02 TIPO-CALCOLO PIC X.<br />
|002500 02 NUMERO-2 PIC 9(15).<br />
|002600 02 UGUALE PIC X.<br />
|002700 02 RISULTATO PIC 9(15).<br />
|002800 02 SEPARAZIONE PIC X.<br />
|002900 02 RESTO PIC 9(15).<br />
|003000 02 NOTE PIC X(18).<br />
|003100*<br />
|003200 WORKING-STORAGE SECTION.<br />
|003300*<br />
|003400 01 CAMPI-SCALARI.