COBOL è solo un altro linguaggio di computer di terza generazione. È solo un po 'più vecchio della maggior parte di ciò che non significa che sia in qualche modo incompleto (in realtà viene fornito con un bel po' di bagaglio - ma questa è un'altra storia).
Come con qualsiasi altro linguaggio di terza generazione, COBOL manipola i file di dati più o meno nello stesso modo in cui si farebbe in un programma C. Niente di strano, misterioso o magico. I file vengono aperti, letti, scritti e chiusi utilizzando le funzionalità I/O del file della lingua.
Diversi meccanismi sono utilizzati per creare un collegamento tra un file effettivo e il programma. I dettagli qui sono spesso specifici del sistema operativo su cui stai lavorando. In generale, le implementazioni COBOL cercano di isolarsi dall'ambiente operativo tramite un nome file logico anziché un nome effettivo. Questa aggiunta indiretta è importante quando si scrivono programmi che verranno trasferiti su piattaforme diverse (ad esempio, scrivere e testare all'interno di un IDE su una piattaforma Windows e quindi eseguire su un mainframe).
I seguenti esempi riguardano un ambiente IBM Mainframe.
All'interno del mondo mainframe IBM, i programmi vengono eseguiti come batch o on-line (ad esempio CICS). Non descriverò come configurare i file I/O sotto CICS (è una lunga storia). I programmi che vengono utilizzati per manipolare i file sono in genere batch. Ecco un'illustrazione approssimativa di come funziona un programma batch:
I programmi batch vengono eseguiti tramite JCL. JCL viene utilizzato per identificare il programma da eseguire ('istruzione EXEC') e per identificare i file che il programma farà riferimento usando le istruzioni 'DD'. La funzione di un'istruzione DD consiste nel formare una connessione logica tra un file effettivo e un nome che il programma COBOL farà riferimento quando desidera fare riferimento al file (questo è il meccanismo di isolamento menzionato in precedenza). Ad esempio,
JCLDDNAM DD DSN='HLQ.MY.FILE'...
sarebbe associare il nome 'DD' 'JCLDDNAM' per il file denominato 'HLQ.MY.FILE'. Questa parte dipende dalla piattaforma, quindi i dettagli sono specifici per l'ambiente operativo.
Nella sezione 'FILE-CONTROL' del programma COBOL, si collega 'DD NAME' definito nel proprio JCL con il nome che si utilizzerà su ciascuna istruzione I/O per fare riferimento a quel file. Questa connessione è definita usando l'istruzione 'SELECT'.
Per esempio,
SELECT MYFILE
ASSIGN JCLDDNAM
remainder of select
fa un collegamento tra qualsiasi file che è legato al 'JCLDDNAM' nel vostro 'JCL' a 'MYFILE' che si farà riferimento successivamente nelle dichiarazioni COBOL di I/O. L'istruzione SELECT fa parte dello standard ISO COBOL. Tuttavia, molte implementazioni COBOL definiscono alcune estensioni non standard per facilitare i vari quirk ai loro sottosistemi di file.
aprire, leggere, scrivere, chiudere i file all'interno del 'PROCEDURA DIVISIONE' di si programma utilizzando il nome 'MYFILE' come in:
OPEN MYFILE
READ MYFILE
CLOSE MYFILE
Quanto sopra è molto semplificata, e ci sono una moltitudine di modi per farlo all'interno di COBOL. Capire il quadro completo richiederà un po 'di sforzo, tempo e pratica. Le istruzioni I/O illustrate sopra fanno parte dello standard COBOL, ma ogni fornitore avrà le proprie estensioni.
IBM COBOL supporta una vasta gamma di organizzazioni di file e metodi di accesso. È possibile rivedere il manuale di riferimento IBM Enterprise COBOL here per ottenere la sintassi e le regole per la manipolazione dei file, tuttavia lo User Guide fornisce molti buoni esempi per la lettura/scrittura di file (dovrete scavare un po ', ma è tutto posato fuori per te).
L'installazione per fare riferimento a un database SQL tramite un programma COBOL è leggermente diversa ma comporta l'impostazione di una connessione tra il programma e il sottosistema del database. All'interno del mondo IBM questo viene fatto tramite JCL, altri ambienti useranno meccanismi diversi.
IBM COBOL utilizza un pre-processore o coprocessore per integrare l'accesso al database e lo scambio di dati. Ad esempio, il seguente codice sarebbe recuperare alcuni dati da un database DB2:
MOVE 1234 TO PERSON-ID
EXEC SQL
SELECT FIRST_NAME, LAST_NAME
INTO :FIRST-NAME, :LAST-NAME
FROM PERSON
WHERE PERSON_ID = :PERSON-ID
END-EXEC
DISPLAY PERSON-ID FIRST-NAME LAST-NAME
La roba tra il EXEC SQL e END-EXEC è un piuttosto semplice select SQL. I nomi preceduti dai due punti sono le variabili host COBOL utilizzate per passare i dati a DB2 o per riceverli di nuovo. Se hai mai programmato le routine di accesso al database prima di questo dovrebbe sembrarti molto familiare. Questo link fornisce una semplice introduzione all'inserimento di istruzioni SQL in un programma IBM Enterpirse COBOL.
A proposito, IBM Enterprise COBOL è anche in grado di lavorare con documenti XML. Ci scusiamo per la pesante inclinazione dell'IBM, ma questo è l'ambiente con cui ho più familiarità.
Spero che questo ti aiuti nella giusta direzione.
ti colpisca in modo determinante. Grazie per aver dedicato del tempo a scrivere così tanto! –
@MC Emperor, quando si effettuano modifiche, si prega di includere il motivo nella casella fornita. Se cambi una parola, assicurati di farlo correttamente. –
@BillWoodger Puoi facilmente vederlo nella cronologia delle revisioni. –