Parte ii - IIS Marconi Latina - Area didattica

Manuale COBOL 995
|004800 DISPLAY "FINE DEL FILE ORDINATO".
|004900 IF EOF = 0
|005000 THEN
|005100 DISPLAY RECORD-PER-IL-RIORDINO.
|005200 FINE.
|005300 EXIT.
|005400*-----------------------------------------------------------------
|005500 INSERIMENTO-DATI SECTION.
|005600 INIZIO.
|005700 PERFORM INSERISCI-RECORD UNTIL EOJ = 1.
|005800 GO TO FINE.
|005900 INSERISCI-RECORD.
|006000 DISPLAY "INSERISCI UN RECORD DA 10 CARATTERI:".
|006100 ACCEPT DATI-INSERITI.
|006200 IF DATI-INSERITI = SPACES
|006300 THEN
|006400 MOVE 1 TO EOJ;
|006500 ELSE
|006600 MOVE DATI-INSERITI TO RECORD-PER-IL-RIORDINO,
|006700 RELEASE RECORD-PER-IL-RIORDINO.
|006800 FINE.
|006900 EXIT.
|007000*
L’esempio è completo, in quanto anche il risultato del riordino viene gestito tramite una
procedura. Nella fase di inserimento dati, si può osservare che un inserimento nullo (pari
all’inserimento di tutti spazi), implica la conclusione di quella fase.
82.14 Riferimenti
«
• Christopher Heng, Free COBOL compilers and interpreters
〈http://www.thefreecountry.com/compilers/cobol.shtml 〉
• Programming manuals and tutorials, COBOL
〈http://www.theamericanprogrammer.com/programming/manuals.cobol.html 〉
• MPE/iX and HP e3000 Technical Documentation, HP COBOL II/XL
– Programmer’s guide
〈http://docs.hp.com/en/424/31500-90014.pdf 〉
– Quick reference guide
〈http://docs.hp.com/en/425/31500-90015.pdf 〉
– Reference manual
〈http://docs.hp.com/en/426/31500-90013.pdf 〉
• Compaq COBOL Reference Manual
〈http://www.helsinki.fi/atk/unix/dec_manuals/cobv27ua/cobrm_contents.htm 〉