Ako čítať premennú dĺžku súboru v COBOL

Common Business Oriented Language IBM ( COBOL ) programovací jazyk umožňuje užívateľom spracovávať rôzne typy dát vo finančných a obchodných softwarových aplikácií . COBOL podporuje dátový typ premennej dĺžky záznamy pre použitie v databázových súborov uložených na pevnom disku , používateľ špecifikuje minimálne a maximálne dĺžky záznamu pre popis disku súbory s premenlivou dĺžkou záznamov . Čítanie dát premennej dĺžky zo súboru umožňuje spracovávať informácie z databázy , bez toho by bol definovaný presný formát záznamu v COBOL programe . Návod dovolená 1

typ " Edit " na z/OS360 sálového počítača konzoly systému riadenia podnikov a stlačte " Enter " upravovať svoje COBOL program .
2

Pridať nasledujúci kód na začiatok programu :

IDENTIFIKÁCIA DIVISION

pROGRAM - ID .. COBVAR .

ŽIVOTNÉ PROSTREDIE DIVISION .

INPUT - OUTPUT ODDIEL .

FILE - CONTROL .

SELECT iFile Priradiť " iFile " .

DATA DIVISION .

FILE ODDIEL .

FD iFile

záznam sa pohybujú od 10 do 50 V ZÁVISLOSTI NA LEN .

01. IREC .

05 FILLER PIC x dÔJDE 10 50 x V ZÁVISLOSTI NA LEN .

POSTUP DIVISION .

P1 .

DISPLAY " Príklad 1 dÔJDE V ZÁVISLOSTI NA REC "

otvoriť vstupné iFile

SPRAVIŤ DO LEN = -1

Prečítajte si iFile

na konci MOVE -1 TO LEN

NIE JE nA kONCI

DISPLAY IREC

DISPLAY LEN

END - READ

END - PERFORM

úzke iFile

priestoru zobrazenie

DISPLAY " Príklad FIXED REC "

otvoriť vstupné IFIL

presunúť všetky " X " IREC

ČÍTAJTE iFile na konci MOVE -1 TO LEN

DISPLAY IREC

Display Priestor
3

zadajte " Uložiť " na ovládacom paneli a stlačte " Enter " k tomu , aby svoj program spracovať variabilný záznamy dĺžka .

• Predchádzajúca strana: VB6 : Ako čítať Computer Name z registra 
• Ďalšia strana: Ako previesť BigInteger int