Come fare riferimento a un byte nella memoria di lavoro in COBOL

Il Common Business- Oriented Language , COBOL , offre una varietà di modi per accedere ai dati in memoria. In COBOL , si definiscono gli elementi di dati, come dischi, i contatori e le variabili temporanee di matematica in una zona chiamata il Lavoro Sezione Conservazione della divisione di dati . Una volta definito , si utilizzano le variabili semplicemente facendo riferimento al loro nome . Se avete bisogno di fare riferimento a un byte all'interno di una variabile, impostare una variabile successiva utilizzando clausola " ridefinisce " del COBOL . Se si crea una nuova variabile come una matrice, è possibile fare riferimento a un singolo byte nella prima variabile . Istruzioni
1

Creare una variabile di memoria nella memoria di lavoro , come nel seguente esempio :

WORKING-STORAGE SECTION.01 DISPLAY - VARIABLES.05 DISPLAY - AREA PIC X ( 30 ) .

Questo imposta una variabile chiamata " DISPLAY - AREA ".
2

Definire una nuova variabile dopo il primo utilizzo della clausola ridefinisce . Questa variabile è un array . Fa riferimento gli stessi dati della prima variabile con il nuovo nome.

05 DISPLAY-BY TES ridefinisce DISPLAY - AREAOCCURS 30 volte indicizzato da DISPLAY - INDEXPIC X ( 1) .

Il " indicizzato da "clausola definisce una variabile indice . Non si definisce altrove in memoria di lavoro , in questo modo si genera un errore . Il formato dell'originale campo , DISPLAY - AREA , è lo stesso DISPLAY -bytes che lo ridefinisce . Un campo con un byte si verificano 30 volte è la stessa di un campo di 30 byte .
3

Impostare un uno- byte di lavoro campo di stoccaggio in cui ricevere i dati , come nell'esempio illustra : .

05 SINGLE-BYT E- FIELD PIC X ( 1 ) economici 4

spostare alcuni dati per la prima variabile del " Divisione Procedura" del vostro programma , come nel seguente esempio: .

SPOSTA INPUT- record per visualizzare - AREA
5

Impostare il valore dell'indice dell'array di scegliere il byte che si desidera. Questa linea dovrebbe seguire la precedente in Divisione procedura del programma. In COBOL , a differenza di molti altri linguaggi oltre Fortran , il primo elemento ha un indice di uno, non zero. Quindi, se si desidera fare riferimento al primo byte nel campo , impostare l'indice di uno, come mostrato nel seguente esempio :

DISPLAY - INDICE DI 1
6

Move. il byte che hai appena selezionato per il campo viene impostato per ricevere i dati . Per fare questo , è necessario specificare il campo di pannelli e il suo indice associato come nella seguente dichiarazione :

MOVIMENTO DISPLAY - byte ( DISPLAY - Index) per singolo byte - CAMPO
.

• IDE Debugging Tools 
• Come scrivere un outer join nella AFD in WebFOCUS