Ako čítať plochý súbor viackrát v COBOL

Čítanie plochý súbor viackrát v tretej generácie programovací jazyk spoločnom podnikaní orientovaného jazyka ( COBOL ) je jednoduchý proces . To vyžaduje nejaký programovací zručnosti , však, rovnako ako niektoré znalosti COBOL . Vyvinuté o 1960 Dr Milosť Murray Hooper , COBOL je ešte široko používaný , predovšetkým podnikateľskou sférou . Bolo navrhnuté , sčasti spracovávať veľké množstvo dát s minimálnymi alebo jednoduchých obchodných výpočtov . Veci , ktoré budete potrebovať manuál
aktuálneho užívateľa COBOL prostredie klipart Aktuálne COBOL ručné
Zobraziť ďalšie inštrukcie Cestuj 1

Prihláste sa k počítaču prostredie , kde budete kódu , kompiláciu a vykonávať svoje COBOL program . Vyvolajte editor , kde budete kľúč a upravovať svoj ​​program . Splnenie tejto úlohy sa líšia v závislosti od typu prostredia . Pozrite sa na aktuálne užívateľská príručka pre COBOL prostredie
2

Opište programu šablónu , pre ktoré budú údaje vyplnené počas nasledujúcich krokov : .

IDENTIFIKÁCIA DIVISION.Program - ID . Program ID here.Author . Vaše meno Here.Installation . Moja firma computer.Date Napísali . MM /DD /Popis YYYY.REMARKS.Program tu

ŽIVOTNÉ PROSTREDIE SECTION.INPUT - OUTPUT SECTION.FILE - Control.Select Input - FileASSIGN TO " C : \\ TMP \\ SAMPIN.TXT " . Organizácia LINE SEQUENTIAL .

vyberte položku TLAČ - fileASSIGN TO " C : \\ TMP \\ SAMPOUT.TXT " organizácie LINE SEQUENTIAL

DATA DIVISION.FILE SECTION.FD RECORD Vstupný súbor obsahuje 10 znakov 0,01 . INPUT - REC.05 LAST - NAME pIC X ( 10 ) . FD RECORD tlače Súbor obsahuje 10 znakov .01 OUTPUT - REC pIC X ( 10 ) . WORKING SKLADOVANIE SECTION.01 čítanie cnt pic 9 ( 9 ) hodnota je rovná nule . 01 čítanie LMT pic 9 ( 9 ) hodnota je rovná nule .

POSTUP DIVISION.OPEN INPUT Input - fileOUTPUT Print - file.Set čítanie cnt na 0.Set čítanie LMT na 5.Read - file.READ vstupný súbor nA kONCI Prejsť na koniec - PGM . Pridať 1 pre čítanie CNT . MOVE INPUT - RECORD na výstup - RECORD . WRITE OUTPUT - RECORD.Add 1 pre čítanie lmt.If Read - Limit = 5. Prejdite na koniec - of - PGMElseGo pre čítanie file.End - of - PGM.If čítanie CNT = 0 Display " Vstupný súbor je prázdny " . CLOSE Vstupné súbor , Print - file.STOP RUN .
3

pozbierate čo najviac informácií z rôznych zdrojov pre identifikáciu divízie programu šablóny ste zadali . Zmažte text v poli Identifikácia divízie , a nahradiť ho informáciou , ktoré ste zhromažďovať . Zmena názvu programu , správny názov programu by mala byť v špecifikáciách programu . Pridať svoje meno ako autora . Pre napísané dátum , použiť aktuálny dátum pomocou dvoch znakov pre mesiac a deň a štyri znaky na rok . Pre oblasti inštalácie , do prostredia , v ktorom budete spustiť svoj ​​program , ktorý by mal byť v návode na použitie . Zadajte popis programu v časti " Poznámky " . Pozrite sa na aktuálne COBOL na obsluhu a tento návod a kľúč na všetky ostatné informácie potrebné na identifikáciu programu na konkrétnom operačnom prostredí . Pre tento krok a následné kroky ,
4

Zadajte informácie o životnom prostredí § oblastiach programu šablóny . Prvá časť životného prostredia Sekcia je konfigurácia oddiel . Na účely tohto príkladu , aj keď sa predpokladá , že u zdroje počítača a objekt počítače sú rovnaké . Z tohto dôvodu sa do sekcie Konfigurácia je vylúčená .

Nahradiť dáta pre vstupné - výstupné sekcie , ktorá je druhá časť sekcie životného prostredia . Pomocou " SELECT " vyhlásenie , zadajte identifikačné údaje o vstupných a výstupných súborov používaných . Nájdite informácie a špecifikácie v užívateľskej príručke . Dáta pre " priradiť " klauzula závisí na konkrétnom prostredí .
5.

Pozrite sa na špecifikácie , a zistiť , koľkokrát bude plochý súbor čítať . Keď údaje naznačujú určitý počet opakovaní súboru je potrebné čítať , a potom zmeniť Read - LMT premennú v oddelení dát od " nuly " na číslo uvedené v súťažných podkladoch . Tiež zmeniť Read -Limit = 5 pult z " 5 " na hodnotu uvedenú v špecifikáciách v riadení divízie .

- Li súbor pre čítanie , kým " End - of - File " a potom odstráňte prečítajte si , LMT premennú z divízie dát . Odstráňte dva riadky kódu v oddelení riadenia " Ak Read - LMT = 5 Choď na End - of - PGM Else . "

• Predchádzajúca strana: Ako zviazať Embedded formuláre v symfony 
• Ďalšia strana: Ako vložiť ComboBox do C - Sharp