000100 IDENTIFICATION DIVISION. 000200 PROGRAM-ID. ELM0700. 000300 AUTHOR. DANIELE GIACOMINI. 000400 DATE-WRITTEN. 1985-02-14. 000500* 000600 ENVIRONMENT DIVISION. 000700* 000800 DATA DIVISION. 000900* 001000 WORKING-STORAGE SECTION. 001100 01 RECORD-ELEMENTI. 001200 02 ELEMENTO PIC X OCCURS 9 TIMES. 001300 01 INDICE PIC 9. 001400 01 EOJ PIC 9 VALUE ZERO. 001500 01 RISPOSTA PIC XX. 001600* 001700 PROCEDURE DIVISION. 001800*------------------------- LIVELLO 0 ----------------------------- 001900 MAIN. 002000 PERFORM INSERIMENTO-INDICE UNTIL INDICE > ZERO. 002100 PERFORM LAVORO UNTIL EOJ = 1. 002200 DISPLAY RECORD-ELEMENTI. 002300* 002400 STOP RUN. 002500*------------------------- LIVELLO 1 ----------------------------- 002600 LAVORO. 002700 DISPLAY "INSERISCI I DATI DI UN ELEMENTO (UN SOLO CARATTERE)". 002800 ACCEPT ELEMENTO(INDICE). 002900* 003000 DISPLAY "VUOI CONTINUARE? SI O NO". 003100 ACCEPT RISPOSTA. 003200* 003300 IF RISPOSTA = "SI" 003400 THEN 003500 MOVE ZERO TO INDICE, 003600 PERFORM INSERIMENTO-INDICE UNTIL INDICE > ZERO; 003700 ELSE 003800 MOVE 1 TO EOJ. 003900*------------------------- LIVELLO 2 ----------------------------- 004000 INSERIMENTO-INDICE. 004100 DISPLAY "INSERISCI L'INDICE". 004200 ACCEPT INDICE. 004300*