Parte ii - IIS Marconi Latina - Area didattica

Programmare in COBOL 1055
|020200 IF EOF-2 = 0 AND EOB-2 = 0
|020300 THEN
|020400 IF CODICE-T2 >= CODICE-ORIG-2
|020500 THEN
|020600 MOVE CODICE-T2
|020700 TO CODICE-ORIG-2;
|020800 ELSE
|020900 MOVE 1 TO EOB-2.
|021000 WRITE RECORD-MERGE.
|021200*------------------------- LIVELLO 5 -----------------------------
|021300 LETTURA-FILE-IN.
|021400 READ FILE-IN
|021500 AT END
|021600 MOVE 1 TO EOF.
|021700*-----------------------------------------------------------------
|021800 LETTURA-FILE-MERGE.
|021900 READ FILE-MERGE
|022000 AT END
|022100 MOVE 1 TO EOF.
|022200*-----------------------------------------------------------------
|022300 LETTURA-FILE-TMP-1.
|022400 READ FILE-TMP-1
|022500 AT END
|022600 MOVE 1 TO EOF-1,
|022700 MOVE 1 TO EOB-1.
|022800*-----------------------------------------------------------------
|022900 LETTURA-FILE-TMP-2.
|023000 READ FILE-TMP-2
|023100 AT END
|023200 MOVE 1 TO EOF-2,
|023300 MOVE 1 TO EOB-2.
|023400*
83.4 Approfondimento: una tecnica per simulare la
ricorsione in COBOL
Questa sezione contiene la ricostruzione di un documento con lo stesso nome, concluso nel
mese di giugno del 1985, dopo un periodo di studio sul linguaggio COBOL. Il COBOL è un
linguaggio procedurale che offre esclusivamente la gestione di variabili globali, pertanto non
consente di realizzare la ricorsione; tuttavia, qui, come esercizio, si descrive una tecnica per
arrivare a ottenere un risultato simile alla ricorsione comune.
«
Si fa riferimento a tre algoritmi noti: torre di Hanoi, quicksort e permutazioni. Questi algoritmi
sono descritti nella sezione 72.2.
Al termine è riportata la bibliografia dello studio originale. Tutti gli esempi originali con il
linguaggio MPL II sono omessi, anche se nella bibliografia questo linguaggio viene citato.