000100 IDENTIFICATION DIVISION. 000200 PROGRAM-ID. AGO-83-3. 000300 AUTHOR. DANIELE GIACOMINI. 000400 DATE-WRITTEN. 2005-03-20. 000500* 000600 ENVIRONMENT DIVISION. 000700* 000800 INPUT-OUTPUT SECTION. 000900* 001000 FILE-CONTROL. 001100* 001200 SELECT FILE-DA-SCRIVERE ASSIGN TO "file.rel" 001300 ORGANIZATION IS RELATIVE 001400 ACCESS MODE IS SEQUENTIAL. 001500* 001600 DATA DIVISION. 001700* 001800 FILE SECTION. 001900* 002000 FD FILE-DA-SCRIVERE 002100 LABEL RECORD IS STANDARD. 002200* 002300 01 RECORD-DA-SCRIVERE. 002400 02 TESTO PIC X(80). 002500* 002600 WORKING-STORAGE SECTION. 002700* 002800 01 CAMPI-SCALARI. 002900 02 EOJ PIC 9 COMP VALUE IS 0. 003000* 003100 PROCEDURE DIVISION. 003200*------------------------- LIVELLO 0 ----------------- 003300 MAIN. 003400 OPEN EXTEND FILE-DA-SCRIVERE. 003500 PERFORM INSERIMENTO-DATI UNTIL EOJ = 1. 003600 CLOSE FILE-DA-SCRIVERE. 003700 STOP RUN. 003800*------------------------- LIVELLO 1 ----------------- 003900 INSERIMENTO-DATI. 004000 DISPLAY "INSERISCI IL TESTO DEL RECORD" 004100 ACCEPT TESTO. 004200 IF TESTO = SPACES 004300 THEN 004400 MOVE 1 TO EOJ, 004500 ELSE 004600 WRITE RECORD-DA-SCRIVERE. 004700*