Parte ii - IIS Marconi Latina - Area didattica

872 volume V Programmazione
|000000 ENVIRONMENT DIVISION.
|000000 CONFIGURATION SECTION.
|000000 SPECIAL-NAMES. DECIMAL-POINT IS COMMA
|000000 CURRENCY SIGN IS "E".
L’attribuzione di un nome mnemonico a una parola non standard che però fa parte delle funzionalità
specifiche del compilatore utilizzato, consente di limitare a questa sezione le modifiche
per l’adattamento del programma a un compilatore che ha funzioni simili, ma descritte
da parole diverse. Nell’esempio seguente, compilabile con OpenCOBOL, si sostituisce la
parola ‘CONSOLE’ con ‘STANDARD-INPUT’, per identificare la fonte dei dati in ingresso per
l’istruzione ‘ACCEPT’:
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. TEST-ACCEPT.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 DATE-WRITTEN. 2005-02-27.
|000500*
|000600 ENVIRONMENT DIVISION.
|000700 CONFIGURATION SECTION.
|000800 SOURCE-COMPUTER.
|000900 OPENCOBOL.
|001000 SPECIAL-NAMES.
|001100 CONSOLE IS STANDARD-INPUT.
|001200*
|001300 DATA DIVISION.
|001400*
|001500 WORKING-STORAGE SECTION.
|001600 77 MESSAGGIO PIC X(30).
|001700*
|001800 PROCEDURE DIVISION.
|001900*
|002000 MAIN.
|002100 DISPLAY "INSERISCI IL MESSAGGIO".
|002200 ACCEPT MESSAGGIO FROM STANDARD-INPUT.
|002300 DISPLAY "HAI INSERITO: ", MESSAGGIO.
|002400*
|002500 STOP RUN.
|002600*
Nell’esempio appena mostrato sono evidenziate le righe più importanti per la comprensione
del meccanismo; si può comprendere che l’istruzione ‘ACCEPT’ avrebbe potuto essere scritta
semplicemente così:
|002200 ACCEPT MESSAGGIO FROM CONSOLE.
Tuttavia, avendo utilizzato il nome mnemonico ‘STANDARD-INPUT’, se con un altro compilatore
la console fosse identificata dalla sigla ‘SPO’ (Supervisory printer output, come avveniva
nel COBOL CMS (Computer management system della Burroughs negli anni 1980),
basterebbe modificare la dichiarazione iniziale: