Parte ii - IIS Marconi Latina - Area didattica

Manuale COBOL 921
viene assegnato lo stesso valore, in modo da poter confrontare come questo valore viene inteso
e rappresentato.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. PICTURE-ALPHANUMERIC.
|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 9(5)A(5)X(5) USAGE IS DISPLAY.
|001500 01 RECORD-C.
|001600 02 C PICTURE A(5)X(5)9(5) USAGE IS DISPLAY.
|001700*
|001800 PROCEDURE DIVISION.
|001900*
|002000 MAIN.
|002100 MOVE " 1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ" TO A.
|002200 MOVE " 1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ" TO B.
|002300 MOVE " 1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ" TO C.
|002400 DISPLAY "SOURCE VALUE IS: ", QUOTE,
|002500 " 1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ", QUOTE.
|002600 DISPLAY "PICTURE: X(15) VALUE: ", QUOTE, A, QUOTE,
|002700 " DATA: ", QUOTE, RECORD-A, QUOTE.
|002800 DISPLAY "PICTURE: 9(5)A(5)X(5) VALUE: ", QUOTE, B, QUOTE,
|002900 " DATA: ", QUOTE, RECORD-B, QUOTE.
|003000 DISPLAY "PICTURE: A(5)X(5)9(5) VALUE: ", QUOTE, C, QUOTE,
|003100 " DATA: ", QUOTE, RECORD-C, QUOTE.
|003200*
Compilando il programma con TinyCOBOL, l’avvio dell’eseguibile che si ottiene genera il
risultato seguente, dove si può vedere che l’uso dei simboli ‘A’ e ‘9’ non comporta alcuna
differenza di funzionamento rispetto a ‘X’; tuttavia, un compilatore più sofisticato potrebbe
segnalare qualche tipo di errore:
|SOURCE VALUE IS: " 1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|PICTURE: X(15) VALUE: " 1234567890ABCD" DATA: " 1234567890ABCD"
|PICTURE: 9(5)A(5)X(5) VALUE: " 1234567890ABCD" DATA: " 1234567890ABCD"
|PICTURE: A(5)X(5)9(5) VALUE: " 1234567890ABCD" DATA: " 1234567890ABCD"