Cobol, ordinare - sort di un file

Sort di un file.

A volte capita la necessità di avere a disposizione i record di un file in un ordine ben precisio.
Tenedo conto di talune limitazioni, questo è fattibile non solo tramite il comando SORT, ma anche usando un file di appoggio indicizzato.

L’esempio quì riportato vuole ordinare i record di un file indirizzi usando il comando SORT.

La descrizione del record del file di input:

000051*                  File di input
000052*
000040*
000041 FD   IN-FILE
000042                     LABEL RECORD        STANDARD.
000047*
000048 1    IN-REC.
000049  2   F01KEY.
000050   3  F0101       PIC 9(4).         *> Numero indirizzo
000051  2   F0102       PIC X(30).        *> Cognome e nome
000052  2   F0103       PIC X(30).        *> Via
000053  2   F0104       PIC X(20).        *> Citta'
000054  2   F0105       PIC X(15).        *> Nazione
000052*
000053*

Campi di output uguali a quelli di input

I criteri di ordinamento per questo esempio sono:

Nazione.
Cognome e nome.
Numero.
Città

Questo è il programma

(Per chiarezza ho incluso solo i comandi essenziali)

000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  DEMO02.
000003*
000004*                        Esempio di sort di un file
000005*
000006 ENVIRONMENT DIVISION.
000007 CONFIGURATION SECTION.
000008 SOURCE-COMPUTER.  RMC10.
000009 OBJECT-COMPUTER.  RMC10.
000010 INPUT-OUTPUT SECTION.
000011 FILE-CONTROL.
000012*
000013*
000014     SELECT SORT-FILE ASSIGN  DISC
000015                      "sortwork".
000016*
000017*
000018     SELECT IN-FILE    ASSIGN DISC
000019                       "INDZZI.DAT"
000020                       ORGANIZATION INDEXED
000021                       ACCESS       SEQUENTIAL
000022                       RECORD KEY   F01KEY.
000023*
000024*
000025*
000026     SELECT OUT-FILE   ASSIGN DISC
000027                       "INDZZI.SEQ"
000028                       ORGANIZATION LINE SEQUENTIAL.
000029                       
000030/
000031 DATA DIVISION.
000032 FILE SECTION.
000033*
000034*
000035*                 File di lavoro
000036*
000037 SD  SORT-FILE.
000038*
000039 1   SORT-RECORD.
000040  2  S0101       PIC 9(4).         *> Numero indirizzo
000041  2  S0102       PIC X(30).        *> Cognome e nome
000042  2  S0103       PIC X(30).        *> Via
000043  2  S0104       PIC X(20).        *> Citta'
000044  2  S0105       PIC X(15).        *> Nazione
000045*
000046*
000047*
000048*
000049*
000050*
000051*                  File di input
000052*
000053 FD           IN-FILE  
000054                       LABEL RECORD STANDARD.
000055*
000056*
000057 1    IN-REC.
000058  2   F01KEY.
000059   3  F0101       PIC 9(4).         *> Numero indirizzo
000060  2   F0102       PIC X(30).        *> Cognome e nome
000061  2   F0103       PIC X(30).        *> Via
000062  2   F0104       PIC X(20).        *> Citta'
000063  2   F0105       PIC X(15).        *> Nazione
000064*
000065*
000066*
000067*
000068/
000069*                  File di output (ordinato)
000070*
000071 FD           OUT-FILE  
000072                        LABEL RECORD STANDARD.
000073*
000074 1   OUT-REC       PIC X(99).
000075/
000076 WORKING-STORAGE SECTION.
000077*
000078*
000079*
000080/
000081 PROCEDURE DIVISION.
000082*
000083*
000084*
000085 HAUPT SECTION.
000086*
000087 A-1.
000088*
000089     SORT SORT-FILE
000090             
000091             ON ASCENDING  KEY S0105       *> Nazione
000092                               S0102       *> Nome
000093                               S0101       *> Numero
000094                               S0104       *> Citta'
000095             INPUT  PROCEDURE  IS INPUT-SORT
000096             OUTPUT PROCEDURE  IS OUTPUT-SORT.
000097*
000098*
000099 A-9.
000100     GOBACK.
000101/
000102 INPUT-SORT SECTION.
000103*
000104 00.
000105     OPEN INPUT IN-FILE.
000106 01.
000107     MOVE SPACES TO IN-REC.
000108     READ IN-FILE AT END GO 90.
000109     MOVE IN-REC TO SORT-RECORD.
000110     RELEASE SORT-RECORD.
000111     GO 01.
000112*
000113 90.
000114     CLOSE IN-FILE.
000115*
000116  99.
000117     EXIT.
000118*
000119*
000120 OUTPUT-SORT SECTION.
000121*
000122 00.
000123     OPEN OUTPUT OUT-FILE.
000124 01.
000125     RETURN SORT-FILE RECORD AT END GO 90.
000126     MOVE SORT-RECORD TO OUT-REC.
000127     WRITE OUT-REC.
000128     GO 01.
000129*
000130 90.
000131     CLOSE OUT-FILE.
000132 99.
000133     EXIT.
000134*                       *** END DEMO02 ***

Il file ordinato si presenta in questo modo:

1065Cactus Comidas para llevar    Cerrito 333                   Buenos Aires        Argentina
1295Rancho grande                 Av. del Libertador 900        Buenos Aires        Argentina
1105Ernst Handel                  Kirchgasse 6                  Graz                Austria
1275Piccolo und mehr              Geislweg 14                   Salisburgo          Austria
1240Maison Dewey                  Rue Joseph Bens 532           Bruxells            Belgio
1350Suprêmes délices              Boulevard Tirou, 255          Charleroi           Belgio
1080Comércio Mineiro              Av. dos Lusíadas, 23          San Paolo           Brasile
1110Familia Arquibaldo            Rua Orós, 92                  San Paolo           Brasile
1160Gourmet Lanchonetes           Av. Brasil, 442               Campinas            Brasile
1175Hanari Carnes                 Rua do Paço, 67               Rio de Janeiro      Brasile
1280Que Delícia                   Rua da Panificadora, 12       Rio de Janeiro      Brasile
1285Queen Cozinha                 Alameda dos Canàrios, 891     San Paolo           Brasile
1305Ricardo Adocicados            Av. Copacabana, 267           Rio de Janeiro      Brasile
1370Tradição Hipermercados        Av. Inês de Castro, 414       San Paolo           Brasile
1400Wellington Importadora        Rua do Mercado, 12            Resende             Brasile
1055Bottom-Dollar Markets         23 Tsawassen Blvd.            Tsawassen           Canada
1245Mère Paillarde                43 rue St. Laurent            Montréal            Canada
1335Simons bistro                 Vinbæltet 34                  Copenaghen          Danimarca
1380Vaffeljernet                  Smagsløget 45                 Århus               Danimarca
1395Wartian Herkku                Torikatu 38                   Oulu                Finlandia
1405Wilman Kala                   Keskuskatu 45                 Helsinki            Finlandia
1040Blondel père et fils          24, place Kléber              Strasburgo          Francia
1050Bon app'                      12, rue des Bouchers          Marsiglia           Francia
1095Du monde entier               67, rue des Cinquante Otages  Nantes              Francia
1120Folies gourmandes             184, chaussée de Tournai      Lille               Francia
1130France restauration           54, rue Royale                Nantes              Francia
1195La corne d'abondance          67, avenue de l'Europe        Versailles          Francia
1200La maison d'Asie              1 rue Alsace-Lorraine         Tolosa              Francia
1265Paris spécialités             265, boulevard Charonne       Parigi              Francia
1340Spécialités du monde          25, rue Lauriston             Parigi              Francia
1385Victuailles en stock          2, rue du Commerce            Lione               Francia
1390Vins et alcools Chevalier     59 rue de l'Abbaye            Reims               Francia
1010Alfreds Futterkiste           Obere Str. 57                 Berlino             Germania
1035Blauer See Delikatessen       Forsterstr. 57                Mannheim            Germania
1085Die Wandernde Kuh             Adenauerallee 900             Stoccarda           Germania
1140Frankenversand                Berliner Platz 43             Monaco di B.        Germania
1190Königlich Essen               Maubelstr. 90                 Brandeburgo         Germania
1215Lehmanns Marktstand           Magazinweg 7                  Francoforte         Germania
1250Morgenstern Gesundkost        Heerstr. 22                   Lipsia              Germania
1260Ottilies Käseladen            Mehrheimerstr. 369            Colonia             Germania
1290QUICK-Stop                    Taucherstraße 10              Cunewalde           Germania
1360Toms Spezialitäten            Luisenstr. 48                 Münster             Germania
1025Around the Horn               120 Hanover Sq.               Londra              Gran Bret 
1060B's Beverages                 Fauntleroy Circus             Londra              Gran Bret
1100Eastern Connection            35 King George                Londra              Gran Bret
1330Seven Seas Imports            90 Wadhurst Rd.               Londra              Gran Bret
1185Hungry Owl All-Night Grocers  8 Johnstown Road              Cork                Irlanda
1090Drachenblut Delikatessen      Walserweg 21                  Aquisgrana          Italia
1135Franchi S.p.A.                Via Monte Bianco 34           Torino              Italia
1235Magazzini Alimentari Riuniti  Via Ludovico il Moro 22       Bergamo             Italia
1300Reggiani Caseifici            Strada Provinciale 124        Reggio Emilia       Italia
1020Antonio Moreno Taquería       Mataderos  2312               C. del Messico      Messico
1070Centro comercial Moctezuma    Sierras de Granada 9993       C. del Messico.     Messico
1270Pericles Comidas clásicas     Calle Dr. Jorge Cash 321      C. del Messico      Messico
1365Tortuga Restaurante           Avda. Azteca 123              C. del Messico      Messico
1320Santé Gourmet                 Erling Skakkes gate 78        Stavern             Norvegia
1410Wolski  Zajazd                ul. Filtrowa 68               Varsavia            Polonia
1045Bólido Comidas preparadas     C/ Araquil, 67                Madrid              Spagna
1150Galería del gastrónomo        Rambla de Cataluña, 23        Barcellona          Spagna
1155Godos Cocina Típica           C/ Romero, 33                 Siviglia            Spagna
1315Romero y tomillo              Gran Vía, 1                   Madrid              Spagna
1030Berglunds snabbköp            Berguvsvägen  8               Lule                Svezia
1125Folk och fä HB                Åkergatan 24                  Bräcke              Svezia
1075Chop-suey Chinese             Hauptstr. 29                  Berna               Svizzera
1310Richter Supermarkt            Grenzacherweg 237             Ginevra             Svizzera
1165Great Lakes Food Market       2732 Baker Blvd.              Eugene              USA
1210Lazy K Kountry Store          12 Orchestra Terrace          Walla Walla         USA
1230Lonesome Pine Restaurant      89 Chiaroscuro Rd.            Portland            USA
1255Old World Delicatessen        2743 Bering St.               Anchorage           USA
1325Save-a-lot Markets            187 Suffolk Ln.               Boise               USA
1345Split Rail Beer & Ale         P.O. Box 555                  Lander              USA
1355The Cracker Box               55 Grizzly Peak Rd.           Butte               USA
1170GROSELLA-Restaurante          5ª Ave. Los Palos Grandes     Caracas             Venezuela
1225LINO-Delicateses              Ave. 5 de Mayo Porlamar       I. de Margarita     Venezuela

Campi di output parte di quelli di input

È possibile mutare la struttura del file ordinato, ommettendo taluni campi e cambiando la loro sequenza.

000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  DEMO03.
000003*
000004*                        Esempio di sort di un file
000005*
000006 ENVIRONMENT DIVISION.
000007 CONFIGURATION SECTION.
000008 SOURCE-COMPUTER.  RMC10.
000009 OBJECT-COMPUTER.  RMC10.
000010 INPUT-OUTPUT SECTION.
000011 FILE-CONTROL.
000012*
000013*
000014     SELECT SORT-FILE ASSIGN  DISC
000015                      "sortwork".
000016*
000017*
000018*
000019     SELECT IN-FILE    ASSIGN DISC
000020                       "INDZZI.DAT"
000021                       ORGANIZATION INDEXED
000022                       ACCESS       SEQUENTIAL
000023                       RECORD KEY   F01KEY.
000024*
000025*
000026*
000027     SELECT OUT-FILE   ASSIGN DISC
000028                       "INDZZI-R.SEQ"
000029                       ORGANIZATION LINE SEQUENTIAL.
000030                       
000031/
000032 DATA DIVISION.
000033 FILE SECTION.
000034*
000035*
000036*
000037*                 File di lavoro
000038*
000039 SD  SORT-FILE.
000040*
000041 1   SORT-RECORD.
000042  2  S0101       PIC 9(4).         *> Numero indirizzo
000043  2  S0102       PIC X(30).        *> Cognome e nome
000044  2  S0103       PIC X(30).        *> Via
000045  2  S0104       PIC X(20).        *> Citta'
000046  2  S0105       PIC X(15).        *> Nazione
000047*
000048*
000049*
000050*                  File di input
000051*
000052 FD           IN-FILE  
000053                       LABEL RECORD STANDARD.
000054*
000055*
000056 1    IN-REC.
000057  2   F01KEY.
000058   3  F0101       PIC 9(4).         *> Numero indirizzo
000059  2   F0102       PIC X(30).        *> Cognome e nome
000060  2   F0103       PIC X(30).        *> Via
000061  2   F0104       PIC X(20).        *> Citta'
000062  2   F0105       PIC X(15).        *> Nazione
000063*
000064*
000065*
000066/
000067*                  File di output (ordinato)
000068*
000069 FD           OUT-FILE  
000070                        LABEL RECORD STANDARD.
000071*
000072 1   OUT-REC.
000073  2  F0202        PIC X(30).        *> Cognome e nome
000074  2  F0204        PIC X(30).        *> Citta'
000075  2  F0205        PIC X(15).        *> Nazione
000076*
000077*
000078/
000079 WORKING-STORAGE SECTION.
000080*
000081*
000082*
000083/
000084 PROCEDURE DIVISION.
000085*
000086*
000087*
000088 HAUPT SECTION.
000089*
000090 A-1.
000091*
000092     SORT SORT-FILE
000093             
000094             ON ASCENDING  KEY S0105       *> Nazione
000095                               S0102       *> Cognome e nome
000096                               S0104       *> Citta'
000097             INPUT  PROCEDURE  IS INPUT-SORT
000098             OUTPUT PROCEDURE  IS OUTPUT-SORT.
000099*
000100*
000101 A-9.
000102     GOBACK.
000103/
000104 INPUT-SORT SECTION.
000105*
000106 00.
000107     OPEN INPUT IN-FILE.
000108 01.
000109     MOVE SPACES TO IN-REC.
000110     READ IN-FILE AT END GO 90.
000111     MOVE IN-REC TO SORT-RECORD.
000112     RELEASE SORT-RECORD.
000113     GO 01.
000114*
000115 90.
000116     CLOSE IN-FILE.
000117*
000118  99.
000119     EXIT.
000120*
000121*
000122 OUTPUT-SORT SECTION.
000123*
000124 00.
000125     OPEN OUTPUT OUT-FILE.
000126 01.
000127     RETURN SORT-FILE RECORD AT END GO 90.
000128     MOVE S0102 TO F0202.
000129     MOVE S0104 TO F0204.
000130     MOVE S0105 TO F0205.
000131     WRITE OUT-REC.
000132     GO 01.
000133*
000134 90.
000135     CLOSE OUT-FILE.
000136 99.
000137     EXIT.
000138*                       *** END DEMO03 ***

La struttura del file di output include solamente i seguenti campi:

Cognome e nome.
Città.
Nazione.

Il nuovo file ordinato si presenta in questo modo:

Cactus Comidas para llevar    Buenos Aires                  Argentina      
Rancho grande                 Buenos Aires                  Argentina      
Ernst Handel                  Graz                          Austria        
Piccolo und mehr              Salisburgo                    Austria        
Maison Dewey                  Bruxells                      Belgio         
Suprêmes délices              Charleroi                     Belgio         
Comércio Mineiro              San Paolo                     Brasile        
Familia Arquibaldo            San Paolo                     Brasile        
Gourmet Lanchonetes           Campinas                      Brasile        
Hanari Carnes                 Rio de Janeiro                Brasile        
Que Delícia                   Rio de Janeiro                Brasile        
Queen Cozinha                 San Paolo                     Brasile        
Ricardo Adocicados            Rio de Janeiro                Brasile        
Tradição Hipermercados        San Paolo                     Brasile        
Wellington Importadora        Resende                       Brasile        
Bottom-Dollar Markets         Tsawassen                     Canada         
Mère Paillarde                Montréal                      Canada         
Simons bistro                 Copenaghen                    Danimarca      
Vaffeljernet                  Århus                         Danimarca      
Wartian Herkku                Oulu                          Finlandia      
Wilman Kala                   Helsinki                      Finlandia      
Blondel père et fils          Strasburgo                    Francia        
Bon app'                      Marsiglia                     Francia        
Du monde entier               Nantes                        Francia        
Folies gourmandes             Lille                         Francia        
France restauration           Nantes                        Francia        
La corne d'abondance          Versailles                    Francia        
La maison d'Asie              Tolosa                        Francia        
Paris spécialités             Parigi                        Francia        
Spécialités du monde          Parigi                        Francia        
Victuailles en stock          Lione                         Francia        
Vins et alcools Chevalier     Reims                         Francia        
Alfreds Futterkiste           Berlino                       Germania       
Blauer See Delikatessen       Mannheim                      Germania       
Die Wandernde Kuh             Stoccarda                     Germania       
Frankenversand                Monaco di B.                  Germania       
Königlich Essen               Brandeburgo                   Germania       
Lehmanns Marktstand           Francoforte                   Germania       
Morgenstern Gesundkost        Lipsia                        Germania       
Ottilies Käseladen            Colonia                       Germania       
QUICK-Stop                    Cunewalde                     Germania       
Toms Spezialitäten            Münster                       Germania       
Around the Horn               Londra                        Gran Bretagna  
B's Beverages                 Londra                        Gran Bretagna  
Eastern Connection            Londra                        Gran Bretagna  
Seven Seas Imports            Londra                        Gran Bretagna  
Hungry Owl All-Night Grocers  Cork                          Irlanda        
Drachenblut Delikatessen      Aquisgrana                    Italia         
Franchi S.p.A.                Torino                        Italia         
Magazzini Alimentari Riuniti  Bergamo                       Italia         
Reggiani Caseifici            Reggio Emilia                 Italia         
Antonio Moreno Taquería       C. del Messico                Messico        
Centro comercial Moctezuma    C. del Messico.               Messico        
Pericles Comidas clásicas     C. del Messico                Messico        
Tortuga Restaurante           C. del Messico                Messico        
Santé Gourmet                 Stavern                       Norvegia       
Wolski  Zajazd                Varsavia                      Polonia        
Bólido Comidas preparadas     Madrid                        Spagna         
Galería del gastrónomo        Barcellona                    Spagna         
Godos Cocina Típica           Siviglia                      Spagna         
Romero y tomillo              Madrid                        Spagna         
Berglunds snabbköp            Lule                          Svezia         
Folk och fä HB                Bräcke                        Svezia         
Chop-suey Chinese             Berna                         Svizzera       
Richter Supermarkt            Ginevra                       Svizzera       
Great Lakes Food Market       Eugene                        USA            
Lazy K Kountry Store          Walla Walla                   USA            
Lonesome Pine Restaurant      Portland                      USA            
Old World Delicatessen        Anchorage                     USA            
Save-a-lot Markets            Boise                         USA            
Split Rail Beer & Ale         Lander                        USA            
The Cracker Box               Butte                         USA            
GROSELLA-Restaurante          Caracas                       Venezuela      
LINO-Delicateses              I. de Margarita               Venezuela

Variante senza utilizzo del comando SORT

Nel caso sopra avrei preferito utilizzare un file di output index.
Optando per questa variante il programma deve essere rivisto completamente.

000067*                  File di lavoro
000068*
000069 FD           OUT-FILE  
000070                        LABEL RECORD STANDARD.
000071*
000072 1   OUT-REC.
000073  2  F02KEY.
000075  3  F0205        PIC X(15).        *> Nazione
000073  3  F0202        PIC X(30).        *> Cognome e nome
000074  3  F0204        PIC X(30).        *> Citta'
000076*
000077*

Come prelevare questi codici

Cobol in pratica

Sort di un file.

Campi di output uguali a quelli di input

Campi di output parte di quelli di input

Variante senza utilizzo del comando SORT