Parte ii - IIS Marconi Latina - Area didattica

900 volume V Programmazione
|000000 01 MIO-RECORD.
|000000 02 A
|000000 03 B PIC X(10).
|000000 03 C PIC X(10).
|000000 02 D REDEFINES A.
|000000 03 E PIC X(5).
|000000 03 F PIC X(10).
|000000 03 G PIC X(5).
|000000 02 H ...
|...
L’esempio mostra che il campo ‘A’ è composto complessivamente da 20 caratteri, a cui si
accede con i campi ‘B’ e ‘C’ per i primi 10 e gli ultimi 10 rispettivamente. La ridefinizione
successiva, consente di accedere a una porzione centrale, a cavallo dei campi ‘B’ e ‘C’, con il
campo ‘F’.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. PICTURE-REDEFINES.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 DATE-WRITTEN. 2005-02-25.
|000500*
|000600 ENVIRONMENT DIVISION.
|000700*
|000800 DATA DIVISION.
|000900*
|001000 WORKING-STORAGE SECTION.
|001100 01 RECORD-A.
|001200 02 P PICTURE X(10) USAGE IS DISPLAY.
|001300 02 Q PICTURE X(10) USAGE IS DISPLAY.
|001400 01 RECORD-B REDEFINES RECORD-A.
|001500 02 R PICTURE X(5) USAGE IS DISPLAY.
|001600 02 S PICTURE X(10) USAGE IS DISPLAY.
|001700 02 T PICTURE X(5) USAGE IS DISPLAY.
|001800*
|001900 PROCEDURE DIVISION.
|002000*
|002100 MAIN.
|002200 MOVE "ABCDEFGHIJKLMNOPQRST" TO RECORD-A.
|002300 DISPLAY "P: ", P.
|002400 DISPLAY "Q: ", Q.
|002500 DISPLAY "R: ", R.
|002600 DISPLAY "S: ", S.
|002700 DISPLAY "T: ", T.
|002800*
|002900 STOP RUN.
|003000*
Questo esempio ulteriore mostra un piccolo programma completo, che dimostra il funzionamento
della ridefinizione, visualizzando le variabili associate a ‘RECORD-A’ e a ‘RECORD-B’,
che ridefinisce il primo. Se si compila questo programma con TinyCOBOL o con
OpenCOBOL, l’avvio dell’eseguibile che si ottiene genera il risultato seguente: