Ako sa k nám Dĺžka záznamu v COBOL

Existuje mnoho spôsobov , ako sa vysporiadať s neistými dlhý záznam v súbore dát a ich spracovanie . COBOL má jeden z najviac výrečný a charakteristické spôsoby , ako to dosiahnuť . Môžete si prečítať súbor s mnohými záznamy, každý z neurčitej veľkosti , pomocou jedného z natívnych príkazov COBOL je . Za predpokladu , že máte súbor , kde veľkosť každého záznamu v rámci sa môže líšiť od jednej postavy do 400 znakov , môže váš COBOL aplikácie zvládne za vás . Pomocou tejto techniky sa dostať na dĺžku záznamu , vráti počet znakov a presunúť variabilné záznamy do iného súboru , ak si to želá . Pokyny dovolená 1

Začnite tým , že posúdenie maximálnu dĺžku záznamov v súbore . V príklade tu , to môže byť až 400 bytov a tak nízke, ako jeden bajt , kvalifikáciu súbor ako premennej dĺžky .
2

Prejsť na sekciu " File " programu a nastavenie do štruktúry súborov pre evidenciu váš program číta zo vstupného súboru . Váš " Descriptor File " štruktúra by mala vyzerať takto : " FD In - File " " Záznam obsahuje 1 až 400 znakov v závislosti na WS - Character - Counter "
3

Zadajte nasledujúce Beneath . FD : " . 01. In - Rec " " 05 Input - Field - 01 Pic X ( 98 ) . " " 05 Input - Field - 02 Pic S9 ( 9 ) V99 Comp - 3 . " To je jednoducho vstupný záznam v príklade citovanom . Pole musí byť najmenej jeden a nie viac ako 400 bytov v tomto príklade
4

Zadajte premenné pre súbor znakových čítača ako pracovný - Storage : . " 05 WS - Character Counter Pic 9 ( 5 ) . " Táto premenná bude mať dĺžku vstupného záznamu po každom " čítať " vyhlásenie a mal by byť nepodpísaný číselné pole . Po " v závislosti na " vyhlásenie , bude toto pole vráti číselnú hodnotu dĺžky záznamu je . Po každom " Read " , COBOL automaticky vyplní do tohto počtu .
5

Prejsť na riadenie divízie a zadajte " čítať " vyhlásenie po príslušnom otvorení súboru " Otvoriť " uzávierky . Môžete použiť premennú " WS - postavy - counter " načítať dĺžku záznamu .
6

Zostaviť program a uistite sa , že zoznam je bez syntaktických chýb .
7

spustite program ako test a pozrite si výstup .

• Predchádzajúca strana: Ako používať konštruktor Bound Podtyp 
• Ďalšia strana: Ako inicializovať plaváku premenné