000100 IDENTIFICATION DIVISION. 000200 PROGRAM-ID. ELM1300. 000300 AUTHOR. DANIELE GIACOMINI. 000400 DATE-WRITTEN. 1985-02-20. 000500* 000600 ENVIRONMENT DIVISION. 000700* 000800 INPUT-OUTPUT SECTION. 000900* 001000 FILE-CONTROL. 001100* 001200 SELECT FILE-DA-SCRIVERE ASSIGN TO "output.seq" 001300 ORGANIZATION IS SEQUENTIAL. 001400* 001500 DATA DIVISION. 001600* 001700 FILE SECTION. 001800* 001900 FD FILE-DA-SCRIVERE 002000 LABEL RECORD IS STANDARD. 002100* 002200 01 RECORD-DA-SCRIVERE PIC X(30). 002300* 002400 WORKING-STORAGE SECTION. 002500 01 EOJ PIC 9 VALUE ZERO. 002600* 002700 PROCEDURE DIVISION. 002800*------------------------- LIVELLO 0 ----------------- 002900 MAIN. 003000 OPEN OUTPUT FILE-DA-SCRIVERE. 003100 PERFORM INSERIMENTO-DATI. 003200 PERFORM LAVORO UNTIL EOJ = 1. 003300 CLOSE FILE-DA-SCRIVERE. 003400* 003500 STOP RUN. 003600*------------------------- LIVELLO 1 ----------------- 003700 LAVORO. 003800 IF RECORD-DA-SCRIVERE = ALL "*" 003900 THEN 004000 MOVE 1 TO EOJ; 004100 ELSE 004200 WRITE RECORD-DA-SCRIVERE, 004300 PERFORM INSERIMENTO-DATI. 004400*------------------------- LIVELLO 2 ----------------- 004500 INSERIMENTO-DATI. 004600 DISPLAY "INSERISCI IL RECORD". 004700 DISPLAY "PER FINIRE INSERISCI TUTTI ASTERISCHI". 004800 ACCEPT RECORD-DA-SCRIVERE. 004900*