Parte ii - IIS Marconi Latina - Area didattica

954 volume V Programmazione
È bene ricordare che in alcuni casi la copia dei dati non può essere eseguita; per esempio non
si può assegnare a una variabile numerica un’informazione alfanumerica (tenendo conto che
una variabile numerica che contiene delle regole di modifica, all’atto della sua lettura offre
un’informazione alfanumerica).
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. TEST-MOVE.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 DATE-WRITTEN. 2005-02-28.
|000500
|000600 ENVIRONMENT DIVISION.
|000700
|000800 DATA DIVISION.
|000900
|001000 WORKING-STORAGE SECTION.
|001100 01 RECORD-1.
|001200 02 A PIC 999V99.
|001300 02 B PIC X(10).
|001400 02 C PIC 99999.
|001500
|001600 01 RECORD-2.
|001700 02 C PIC 9999999.
|001800 02 B PIC X(12).
|001900 02 A PIC 9999V999.
|002000
|002100 PROCEDURE DIVISION.
|002200
|002300 MAIN.
|002400 MOVE 123.45 TO A OF RECORD-1.
|002500 MOVE "ABCDEFGHIJ" TO B OF RECORD-1.
|002600 MOVE 12345 TO C OF RECORD-1.
|002700 DISPLAY "RECORD-1: ", RECORD-1.
|002800 DISPLAY " A: ", A OF RECORD-1.
|002900 DISPLAY " B: ", B OF RECORD-1.
|003000 DISPLAY " C: ", C OF RECORD-1.
|003100
|003200 MOVE RECORD-1 TO RECORD-2.
|003300 DISPLAY "RECORD-2: ", RECORD-2
|003400 DISPLAY " A: ", A OF RECORD-2.
|003500 DISPLAY " B: ", B OF RECORD-2.
|003600 DISPLAY " C: ", C OF RECORD-2.
|003700
|003800 MOVE CORRESPONDING RECORD-1 TO RECORD-2.
|003900 DISPLAY "RECORD-2: ", RECORD-2
|004000 DISPLAY " A: ", A OF RECORD-2.
|004100 DISPLAY " B: ", B OF RECORD-2.
|004200 DISPLAY " C: ", C OF RECORD-2.
|004300
|004400 STOP RUN.
L’esempio mostra un programma in cui ci sono due variabili strutturate, contenenti campi,
simili, con lo stesso nome, ordinati in modo differente. Dopo aver assegnato dei valori ai campi