Parte ii - IIS Marconi Latina - Area didattica

922 volume V Programmazione
«
82.9.3 Variabili alfanumeriche modificate
Il modello di definizione di una variabile alfanumerica può contenere simboli che applicano
una modifica al valore stesso. La modifica avviene nel momento in cui il valore viene ricevuto.
|Tabella 82.114. Simboli del modello di definizione di una variabile alfanumerica che
descrivono una modifica del valore ricevuto.
Simbolo
Descrizione
| B Richiede l’inserimento di uno spazio.
| 0 Richiede l’inserimento di uno zero.
| / Se il compilatore lo permette, inserisce una barra obliqua.
| , Se il compilatore lo permette, inserisce una virgola. Si osservi comunque che
non può apparire la virgola come simbolo conclusivo del modello, perché in tal
caso assumerebbe il significato di un delimitatore.
Teoricamente, ogni altro simbolo che non abbia un significato preciso per la realizzazione
dei modelli di definizione delle variabili, dovrebbe essere aggiunto
tale e quale; in pratica, molto dipende dalle caratteristiche del compilatore.
A titolo di esempio, viene mostrato un piccolo programma con due variabili scalari alfanumeriche,
aventi modelli diversi, abbinate ognuna a una variabile strutturata. Alle variabili scalari
viene assegnato lo stesso valore, in modo da poter confrontare come questo viene inteso e rappresentato.
Nell’esempio si tenta in particolare di inserire in un modello una barra obliqua e
una virgola.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. PICTURE-ALPHANUMERIC-EDITED.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 DATE-WRITTEN. 2005-02-23.
|000500*
|000600 ENVIRONMENT DIVISION.
|000700*
|000800 DATA DIVISION.
|000900*
|001000 WORKING-STORAGE SECTION.
|001100 01 RECORD-A.
|001200 02 A PICTURE X(15) USAGE IS DISPLAY.
|001300 01 RECORD-B.
|001400 02 B PICTURE ABX09,/X(8) USAGE IS DISPLAY.
|001500*
|001600 PROCEDURE DIVISION.
|001700*
|001800 MAIN.
|001900 MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ" TO A.
|002000 MOVE "ABCDEFGHIJKLMNOPQRSTUVWXYZ" TO B.
|002100 DISPLAY "SOURCE VALUE IS: ", QUOTE,
|002200 "ABCDEFGHIJKLMNOPQRSTUVWXYZ", QUOTE.
|002300 DISPLAY "PICTURE: X(15) VALUE: ", QUOTE, A, QUOTE,
|002400 " DATA: ", QUOTE, RECORD-A, QUOTE.
|002500 DISPLAY "PICTURE: ABX09,/X(8) VALUE: ", QUOTE, B, QUOTE,