Parte ii - IIS Marconi Latina - Area didattica

Manuale COBOL 927
|004900 DISPLAY "PICTURE: +Z(7)9.9(5)DB VALUE: ", D,
|005000 " DATA: ", RECORD-D.
|005100 DISPLAY "PICTURE: *(9)9.9(5)+ VALUE: ", E,
|005200 " DATA: ", RECORD-E.
|005300 DISPLAY "PICTURE: +*(9)9.9(4)$ VALUE: ", F,
|005400 " DATA: ", RECORD-F.
|005500 DISPLAY "PICTURE: +*(9)9,9(4)$ VALUE: ", G,
|005600 " DATA: ", RECORD-G.
|005700 DISPLAY "PICTURE: -(10)9,9(4)$ VALUE: ", H,
|005800 " DATA: ", RECORD-H.
|005900 DISPLAY "PICTURE: +(10)9,9(4)$ VALUE: ", I,
|006000 " DATA: ", RECORD-I.
|006100 STOP RUN.
|006200*
Compilando il programma con TinyCOBOL, l’avvio dell’eseguibile che si ottiene genera il
risultato seguente:
|SOURCE VALUE IS: +123456.789
|PICTURE: S9(10)V9(5) VALUE: 0000123456.78900 DATA: 00001234567890{
|PICTURE: +Z(9)9.9(5) VALUE: + 123456.78900 DATA: + 123456.78900
|PICTURE: CR+Z(7)9.9(5) VALUE: CR+ 123456.78900 DATA: CR+ 123456.78900
|PICTURE: +Z(7)9.9(5)DB VALUE: + 123456.78900DB DATA: + 123456.78900DB
|PICTURE: *(9)9.9(5)+ VALUE: ****123456.78900+ DATA: ****123456.78900+
|PICTURE: +*(9)9.9(4)$ VALUE: +****123456.7890$ DATA: +****123456.7890$
|PICTURE: +*(9)9,9(4)$ VALUE: +********12,3456$ DATA: +********12,3456$
|PICTURE: -(10)9,9(4)$ VALUE: 12,3456$ DATA: 12,3456$
|PICTURE: +(10)9,9(4)$ VALUE: +12,3456$ DATA: +12,3456$
Tra i vari risultati, si può osservare che la virgola è stata interpretata come un segno senza un
ruolo preciso, pertanto si colloca semplicemente prima delle ultime quattro cifre, secondo la
previsione del modello.
Intervenendo nella sezione ‘CONFIGURATION SECTION’ è possibile invertire il ruolo del punto
e della virgola, nella rappresentazione dei numeri; nello stesso modo, è possibile attribuire
un simbolo differente per la valuta. L’esempio seguente è una variante di quello appena mostrato,
con le modifiche necessarie per questo scopo. Si osservi che come simbolo di valuta è
stata scelta la lettera «E».
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. PICTURE-NUMERIC-EDITED-BIS.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 DATE-WRITTEN. 2005-02-25.
|000500*
|000600 ENVIRONMENT DIVISION.
|000700 CONFIGURATION SECTION.
|000800 SPECIAL-NAMES. DECIMAL-POINT IS COMMA
|000900 CURRENCY SIGN IS "E".
|001000*
|001100 DATA DIVISION.
|001200*
|001300 WORKING-STORAGE SECTION.