![Kuidas lugeda COBOLis muutuvat laiendust - Artiklid Kuidas lugeda COBOLis muutuvat laiendust - Artiklid](https://a.laermfeuer.org/articles/como-ler-um-arquivo-de-extenso-varivel-no-cobol-1.jpg)
Sisu
IBM COBOL (Common Business Oriented Language) võimaldab kasutajatel töödelda erinevaid andmeid äri- ja finantstarkvara rakendustes. COBOL toetab muutuva pikkusega salvestusandmete tüüpe, mida kasutatakse kõvakettale salvestatud andmebaasifailides; kasutaja määrab muutuva pikkusega kirjetega plaadi failide kirjeldamiseks maksimaalsed ja minimaalsed kirjete pikkused. Muutuva pikkusega andmefailide lugemine võimaldab töödelda andmebaasi teavet ilma COBOLi programmi rekordi täpse suuruse määramata.
Juhised
-
Tippige z / OS360 suurarvuti süsteemi halduskonsooli "Edit" ja vajutage COBOL programmi redigeerimiseks klahvi "Enter".
-
Lisage oma programmi algusse järgmine kood:
IDENTIFITSEERIMINE PROGRAM-ID. COBVAR. KESKKONNA JÄRELEVALVE. INPUT-OUTPUT OSA. FILE-CONTROL. VALI IFILE NIMETUS "IFILE".
DATE DIVISION. FILE OSA. FD IFILE RECORD KASUTATAKSE 10-lt 50-le LENNIGA. 01 IREC. 05 FILLER PIC X OCCURS 10 kuni 50 AJAL, MIS ON LENNU LENNU.
MENETLUSE LIIKUMINE. P1. NÄIDIS "NÄIDE 1 VÄLJALÜLITAMINE VÄLJALÜLITAMISEL AVATUD INPUT IFILE PERFORM UNTIL LEN = -1 LUGEGE LÜLITAGE LÕPP-LÄBI LEN END-READ END-PERFORM CLOSE IFILE DISPLAY SPACE
DISPLAY "NÄIDIS FIKSEERITUD REC" AVATUD INPUT IFILE MOVE ALL "X" IREC'le LUGEGE IFILE LÕPPE LÕPP-1 - LEN DISPLAY IREC DISPLAY SPACE
-
Tippige konsoolile "Salvesta" ja vajutage "Enter" klahvi, et võimaldada programmil töödelda muutuva pikkusega kirjeid.