Parte ii - IIS Marconi Latina - Area didattica
Parte ii - IIS Marconi Latina - Area didattica
Parte ii - IIS Marconi Latina - Area didattica
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
926 volume V Programmazione<br />
Come esempio viene mostrato un piccolo programma con alcune variabili scalari numeriche<br />
modificate (edited), aventi modelli diversi, abbinate ognuna a una variabile strutturata. Alle<br />
variabili scalari viene assegnato lo stesso valore, in modo da poter confrontare come questo<br />
valore viene inteso e rappresentato.<br />
|000100 IDENTIFICATION DIVISION.<br />
|000200 PROGRAM-ID. PICTURE-NUMERIC-EDITED.<br />
|000300 AUTHOR. DANIELE GIACOMINI.<br />
|000400 DATE-WRITTEN. 2005-02-25.<br />
|000500*<br />
|000600 ENVIRONMENT DIVISION.<br />
|000700*<br />
|000800 DATA DIVISION.<br />
|000900*<br />
|001000 WORKING-STORAGE SECTION.<br />
|001100 01 RECORD-A.<br />
|001200 02 A PICTURE S9(10)V9(5) USAGE IS DISPLAY.<br />
|001300 01 RECORD-B.<br />
|001400 02 B PICTURE +Z(9)9.9(5) USAGE IS DISPLAY.<br />
|001500 01 RECORD-C.<br />
|001600 02 C PICTURE CR+Z(7)9.9(5) USAGE IS DISPLAY.<br />
|001700 01 RECORD-D.<br />
|001800 02 D PICTURE +Z(7)9.9(5)DB USAGE IS DISPLAY.<br />
|001900 01 RECORD-E.<br />
|002000 02 E PICTURE *(9)9.9(5)+ USAGE IS DISPLAY.<br />
|002100 01 RECORD-F.<br />
|002200 02 F PICTURE +*(9)9.9(4)$ USAGE IS DISPLAY.<br />
|002300 01 RECORD-G.<br />
|002400 02 G PICTURE +*(9)9,9(4)$ USAGE IS DISPLAY.<br />
|002500 01 RECORD-H.<br />
|002600 02 H PICTURE -(10)9,9(4)$ USAGE IS DISPLAY.<br />
|002700 01 RECORD-I.<br />
|002800 02 I PICTURE +(10)9,9(4)$ USAGE IS DISPLAY.<br />
|002900*<br />
|003000 PROCEDURE DIVISION.<br />
|003100*<br />
|003200 MAIN.<br />
|003300 MOVE +123456.789 TO A.<br />
|003400 MOVE +123456.789 TO B.<br />
|003500 MOVE +123456.789 TO C.<br />
|003600 MOVE +123456.789 TO D.<br />
|003700 MOVE +123456.789 TO E.<br />
|003800 MOVE +123456.789 TO F.<br />
|003900 MOVE +123456.789 TO G.<br />
|004000 MOVE +123456.789 TO H.<br />
|004100 MOVE +123456.789 TO I.<br />
|004200 DISPLAY "SOURCE VALUE IS: +123456.789".<br />
|004300 DISPLAY "PICTURE: S9(10)V9(5) VALUE: ", A,<br />
|004400 " DATA: ", RECORD-A.<br />
|004500 DISPLAY "PICTURE: +Z(9)9.9(5) VALUE: ", B,<br />
|004600 " DATA: ", RECORD-B.<br />
|004700 DISPLAY "PICTURE: CR+Z(7)9.9(5) VALUE: ", C,<br />
|004800 " DATA: ", RECORD-C.