La sintassi di Cobol

Altre pagine:	1] Sintassi Cobol		3] Struttura e organizzazione dei file
	2] Poche righe non bastano		4] Accesso ai file Cobol

La sintassi di Cobol

Vi sarà sicuramente capitato di dover mettere il naso in qualche programma scritto in un linguaggio a voi sconosciuto per scoprirne le funzioni o il motivo di un messaggio di errore.
A volte è una impresa ardua e non si ha ne la voglia ne il tempo di mettersi a sfogliare manuali.
In queste pagine vorrei facilitare questo compito illustrando in modo semplice e conciso la struttura e i comandi principali del linguaggio Cobol.

Organizzazione del programma

Il linguaggio COBOL è di facile interpretazione poichè le istruzioni sono basate su parole o frasi della lingua inglese.

Caratteristica fondamentale dei programmi scritti in COBOL è la struttura sempre formata da
quattro divisioni (DIVISION) divise a loro volta in sezioni (SECTION), che debbono sempre essere collocate nel seguente ordine:

Le DIVISION del programma

Bullet IDENTIFICATION DIVISION.
   Che contiene i dati identificativi del programma come nome, autore, data, scopo del programma e commenti vari.

Bullet ENVIRONMENT DIVISION.
   Che contiene i dati relativi alle macchine su cui è stato sviluppato e su cui girerà il programma.
   Le periferiche utilizzate quali ad esempio dischi, stampanti.
   I file con la loro organizzazione, le chiavi di accesso, il modo di accesso, il nome fisico, la locazione.

Bullet DATA DIVISION.
   Che contiene la struttura dei dati (che è organizzata in modo gerarchico).
   In particolare la struttura dei record di singoli file.
   I campi (costanti, variabili, tabelle) utilizzati nel programma.

Bullet PROCEDURE DIVISION.
   Che contiene le istruzioni vere e proprie.
   Personalmente ritengo che questa sia la parte del programma di più facile interpretazione
   a condizione che il programma sia ben strutturato.
   Un programmi realizzato nel modo spaghetti può essere un rompicapo anche per un buon conoscitore di Cobol.

Le SECTION del programma

Mi limiterò ad indicare le più utilizzate o obbligatorie.

Nella ENVIRONMENT DIVISION.

Troviamo la CONFIGURATION SECTION dove viene indicato il computer su cui è stato compilato il programma e su quello su quale dovrà girare.

000001*
000002 CONFIGURATION SECTION.
000003*
000004 SOURCE-COMPUTER. HP-D310.
000005 OBJECT-COMPUTER. HP-D310.
000006*

Nella stessa divisione troviamo pure la INPUT-OUTPUT SECTION.
in cui in FILE-CONTROL. vengono definite le periferiche.

000001*
000002 INPUT-OUTPUT SECTION.
000003*
000004 FILE-CONTROL.
000005     SELECT E-DATEI ASSIGN  TO DISC
000006                    "C:\Dati\ueb1e1.dat"
000007                        ORGANIZATION INDEXED
000008                        ACCESS       DYNAMIC
000009                        RECORD   KEY F89KEY.
000010*
000011     SELECT LO ASSIGN       TO PRINTER
000012                    "Printer".
000013*

Nella DATA DIVISION.

Troviamo la FILE SECTION. dove viene specificato il tracciato record dei singoli file.

000001*
000002 FILE SECTION.
000003*
000004*
000005*
000006 FD  E-DATEI       BLOCK   3 RECORDS
000007                   LABEL RECORD STANDARD.
000008*
000009 1    F89REC.
000010  2   F89KEY.
000011   3  F89RA       PIC       9.
000012   3  F89FC       PIC      99.
000013   3  F89RES      PIC      S9(7)      COMP-3.
000014   3  F89RES2     PIC      S9(7)      COMP-3.
000015   3  F89RES3     PIC       9.
000016  2   F89MC       PIC       9.
000017  2   F89MDAT     PIC      S9(6)      COMP-3.
000018  2   F8910       PIC       9.
000019  2   F89RES4     PIC       X.
000020  2   F8912       PIC       X.
000021  2   F8913       PIC      S9(6)      COMP-3.
000022*
000023*
000024*
000025*
000026 FD     LO        BLOCK  132
000027                  RECORD 132
000028                  LABEL RECORD OMITTED.
000029*
000030*
000031*
000032 1     RIGA        PIC X(132).
000033*

Nella stessa divisione troviamo pure la WORKING-STORAGE SECTION.
in cui vengono definiti tutti i campi che verranno utilizzati nel programma.

000001 WORKING-STORAGE SECTION.
000002*
000003*
000004 1   PROGRAMMA.
000005  2  FILLER       PIC  X(09)     VALUE "RIMSPEXX-".
000006  2  VE           PIC  XX        VALUE "01".
000007  2  FILLER       PIC  X         VALUE "-".
000008  2  COMPILATO    PIC  9(6).
000009*
000010 78  DATE-COMP                   VALUE IS DATE-COMPILED.
000011*
000012 1   PROG-ID.
000013  2  FILLER       PIC X(9)       VALUE "RI90?DI00".
000015*
000016 1   H90KEY.
000017  2  H90APL       PIC XX.
000018  2  H90PR        PIC XX.
000019  2  H90SP        PIC 9.
000020  2  H90TY        PIC XX.
000021  2  H90LI        PIC XX.
000022*
000023*
000024 1   CRT-TAB.
000025  2  CRT-POSTEN    PIC 99 COMP-6.
000026  2  CRT-DATEN     OCCURS 6.
000027  3  CRT-LINE      PIC 99 COMP-6.
000028  3  CRT-SIZE      PIC 99 COMP-6.
000029  3  CRT-TXT       PIC X(80).
000030 1   CRT-WORK      PIC 99.
000031 1   CRT-WORKLINE  PIC 99.

La struttura del linguaggio

Il programma sorgente COBOL è costruito con stringhe di caratteri e separatori.
Le stringhe di caratteri possono essere istruzioni (comandi) o nomi di campi (costanti, nomi di file) e parole riservate di Cobol.
I separatori comunemente usati sono lo spazio, la virgola, il punto e virgola, le parentesi, il doppi punti, i doppi apici.
Le regole sotto non si applicano al contenuto delle costanti e ai commenti.

     immagine Ogni istruzione termina con un punto.
     La virgola ed il punto e virgola sono di carattere indicativo o di separazione (tranne nella definizione dei campi).
     L’ uso del trattino basso ( _ ) non è ammesso.
     Le parentesi tonde vanno usate in coppia servono per delimitare indici, espressioni aritmetiche o condizioni.
     immagine Le doppie apici vanno usate in coppie e servono per delimitare costanti alfanumeriche.

La codifica del programma

Il programma cobol è costituito da un file di testo a 80 colonne.
Le colonne sono suddivise secondo questo schema:

Colonna	Utilizzo
1...6	Le prime sei colonne servono a indicare un numero di sequenza delle righe.
7	La settima colonna serve a inserire un simbolo indicatore quale: * Per specificare che si tratta di un commento. - Per specificare che si tratta di una continuazione di stringhe. / In fase di compilazione forza un salto pagina.
8...11	Rappresenta la colonna «A» dove iniziano le dichiarazioni più importanti e le label.
12...72	Rappresenta la colonna «B» dove si trovano le direttive, in pratica i comandi.
73...80	Eventuale etichetta o riferimento (di solito metto la data della modifica)

Come prelevare questi codici

Pagina successiva

Cobol in pratica