Ako Odkaz bajtu v pracovnom Skladovanie v COBOL

Common Business Oriented Language , COBOL , ponúka rad spôsobov , ako pristupovať k dátam v pamäti . V COBOL , môžete definovať dátové prvky , ako sú záznamy , pulty a dočasných matematiky premenných v oblasti zvanej pracovnej Skladovanie sekcie divízie dát . Akonáhle sa raz určí , môžete použiť premenné jednoducho odkazom na ne podľa mena . Ak potrebujete odkazovať bajt vnútri premenné , nastaviť následné premennú pomocou COBOL je " redefinuje " klauzula . Ak vytvoríte novú premennú ako pole , môžete odkazovať na ľubovoľný jeden bajt v prvej premennej . Pokyny dovolená 1

Vytvorte pamäti premenné v pracovnom skladovania , ako v nasledujúcom príklade :

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

nastaví premennú s názvom " DISPLAY - AREA . "
2

Definovať novú premennú po prvom použití klauzuly redefinuje . Táto premenná je pole . To sa odkazuje na rovnaké dáta za prvý premenné pomocou nový názov .

05 DISPLAY-BY TES redefinuje display - AREAOCCURS 30krát indexované display - INDEXPIC X ( 1 ) .

" Indexovaný " klauzula definuje index premennej . Nemusíte definovať ju inde v pracovnom skladovanie , tým bude generovať chybu . Veľkosť pôvodného poľa , DISPLAY - AREA , je rovnaký ako DISPLAY bajtov , ktoré sa novo definuje . Pole má jeden bajt vyskytujúce sa 30krát je rovnaký ako jeden 30 -byte pole .
3

Nastaviť jeden bajt pracovné Storage pole , v ktorom chcete prijímať dáta , ako je napríklad ilustruje :

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

Presuňte niektoré údaje na prvej premennej v " riadení divízie " svojho programu , ako v. nasledujúci príklad :

MOVE INPUT - záznam na display - AREA
5

Nastavte hodnotu indexu poľa vybrať byte , ktoré chcete .. Táto linka by mala nasledovať predchádzajúce v riadení divízie vášho programu . V COBOL , na rozdiel od väčšiny ostatných jazykov okrem Fortran , prvý prvok má index jedného , nie nula . Takže ak chcete odkazovať na prvý bajt v poli , nastaviť index na jeden , ako je znázornené v nasledujúcom príklade : .

SET DISPLAY - index 1
6

Presunúť byte , ktorý ste práve vybrali na pole , nastaviť pre príjem dát . Ak to chcete vykonať , zadajte na pole pole a jeho pridružené index ako v nasledujúcom výpise :

MOVE DISPLAY bajtov ( DISPLAY - index ) na jednotlivé byte pole
.

• Predchádzajúca strana: IDE Debugging Tools 
• Ďalšia strana: Ako písať vonkajšie spojenie v AFD v WebFOCUS