Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
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
.