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.
928 volume V Programmazione<br />
|001400 01 RECORD-A.<br />
|001500 02 A PICTURE S9(10)V9(5) USAGE IS DISPLAY.<br />
|001600 01 RECORD-B.<br />
|001700 02 B PICTURE +Z(9)9.9(5) USAGE IS DISPLAY.<br />
|001800 01 RECORD-C.<br />
|001900 02 C PICTURE CR+Z(7)9.9(5) USAGE IS DISPLAY.<br />
|002000 01 RECORD-D.<br />
|002100 02 D PICTURE +Z(7)9.9(5)DB USAGE IS DISPLAY.<br />
|002200 01 RECORD-E.<br />
|002300 02 E PICTURE *(9)9.9(5)+ USAGE IS DISPLAY.<br />
|002400 01 RECORD-F.<br />
|002500 02 F PICTURE +*(9)9.9(4)E USAGE IS DISPLAY.<br />
|002600 01 RECORD-G.<br />
|002700 02 G PICTURE +*(9)9,9(4)E USAGE IS DISPLAY.<br />
|002800 01 RECORD-H.<br />
|002900 02 H PICTURE -(10)9,9(4)E USAGE IS DISPLAY.<br />
|003000 01 RECORD-I.<br />
|003100 02 I PICTURE +(10)9,9(4)E USAGE IS DISPLAY.<br />
|003200*<br />
|003300 PROCEDURE DIVISION.<br />
|003400*<br />
|003500 MAIN.<br />
|003600 MOVE +123456,789 TO A.<br />
|003700 MOVE +123456,789 TO B.<br />
|003800 MOVE +123456,789 TO C.<br />
|003900 MOVE +123456,789 TO D.<br />
|004000 MOVE +123456,789 TO E.<br />
|004100 MOVE +123456,789 TO F.<br />
|004200 MOVE +123456,789 TO G.<br />
|004300 MOVE +123456,789 TO H.<br />
|004400 MOVE +123456,789 TO I.<br />
|004500 DISPLAY "SOURCE VALUE IS: +123456.789".<br />
|004600 DISPLAY "PICTURE: S9(10)V9(5) VALUE: ", A,<br />
|004700 " DATA: ", RECORD-A.<br />
|004800 DISPLAY "PICTURE: +Z(9)9.9(5) VALUE: ", B,<br />
|004900 " DATA: ", RECORD-B.<br />
|005000 DISPLAY "PICTURE: CR+Z(7)9.9(5) VALUE: ", C,<br />
|005100 " DATA: ", RECORD-C.<br />
|005200 DISPLAY "PICTURE: +Z(7)9.9(5)DB VALUE: ", D,<br />
|005300 " DATA: ", RECORD-D.<br />
|005400 DISPLAY "PICTURE: *(9)9.9(5)+ VALUE: ", E,<br />
|005500 " DATA: ", RECORD-E.<br />
|005600 DISPLAY "PICTURE: +*(9)9.9(4)E VALUE: ", F,<br />
|005700 " DATA: ", RECORD-F.<br />
|005800 DISPLAY "PICTURE: +*(9)9,9(4)E VALUE: ", G,<br />
|005900 " DATA: ", RECORD-G.<br />
|006000 DISPLAY "PICTURE: -(10)9,9(4)E VALUE: ", H,<br />
|006100 " DATA: ", RECORD-H.<br />
|006200 DISPLAY "PICTURE: +(10)9,9(4)E VALUE: ", I,<br />
|006300 " DATA: ", RECORD-I.<br />
|006400 STOP RUN.<br />
|006500*