Parte ii - IIS Marconi Latina - Area didattica

924 volume V Programmazione
|000500*
|000600 ENVIRONMENT DIVISION.
|000700*
|000800 DATA DIVISION.
|000900*
|001000 WORKING-STORAGE SECTION.
|001100 01 RECORD-A.
|001200 02 A PICTURE 99999 USAGE IS DISPLAY.
|001300 01 RECORD-B.
|001400 02 B PICTURE 999V99 USAGE IS DISPLAY.
|001500 01 RECORD-C.
|001600 02 C PICTURE S999V99 USAGE IS DISPLAY.
|001700 01 RECORD-D.
|001800 02 D PICTURE 999V99PP USAGE IS DISPLAY.
|001900 01 RECORD-E.
|002000 02 E PICTURE PP99999 USAGE IS DISPLAY.
|002100*
|002200 PROCEDURE DIVISION.
|002300*
|002400 MAIN.
|002500 MOVE -1234.5678 TO A.
|002600 MOVE -1234.5678 TO B.
|002700 MOVE -1234.5678 TO C.
|002800 MOVE -1234.5678 TO D.
|002900 MOVE -1234.5678 TO E.
|003000 DISPLAY "SOURCE VALUE IS -1234.5678".
|003100 DISPLAY "PICTURE: 99999 VALUE: ", A,
|003200 " DATA: ", RECORD-A.
|003300 DISPLAY "PICTURE: 999V99 VALUE: ", B,
|003400 " DATA: ", RECORD-B.
|003500 DISPLAY "PICTURE: S999V99 VALUE: ", C,
|003600 " DATA: ", RECORD-C.
|003700 DISPLAY "PICTURE: 999V99PP VALUE: ", D,
|003800 " DATA: ", RECORD-D.
|003900 DISPLAY "PICTURE: PP99999 VALUE: ", E,
|004000 " DATA: ", RECORD-E.
|004100 STOP RUN.
|004200*
Compilando il programma con TinyCOBOL, l’avvio dell’eseguibile che si ottiene genera il
risultato seguente:
|SOURCE VALUE IS -1234.5678
|PICTURE: 99999 VALUE: 01234 DATA: 01234
|PICTURE: 999V99 VALUE: 234.56 DATA: 23456
|PICTURE: S999V99 VALUE: -234.56 DATA: 2345O
|PICTURE: 999V99PP VALUE: 004.5678 DATA: 45678
|PICTURE: PP99999 VALUE: .0078000 DATA: 78000
Facendo la stessa cosa con OpenCOBOL: