Kako brati datoteko s spremenljivo razširitvijo v COBOL-u

Avtor: Charles Brown
Datum Ustvarjanja: 1 Februarjem 2021
Datum Posodobitve: 1 November 2024
Anonim
Sequential File Read in COBOL
Video.: Sequential File Read in COBOL

Vsebina

IBM-ov COBOL (Common Business Oriented Language) uporabnikom omogoča obdelavo različnih vrst podatkov v poslovnih in finančnih programskih aplikacijah. COBOL podpira podatkovne tipe s spremenljivo dolžino za uporabo v datotekah zbirke podatkov, shranjenih na trdih diskih; uporabnik poda največjo in najmanjšo dolžino zapisov za opisovanje datotek diska z zapisi s spremenljivo dolžino. Branje podatkovnih datotek s spremenljivo dolžino omogoča obdelavo informacij v bazi podatkov brez nastavitve natančne velikosti zapisa v vašem programu COBOL.


Navodila

Programi COBOL lahko obdelujejo zapise spremenljive dolžine, shranjene v datotekah baze podatkov (Jupiterimages / Photos.com / Getty Images)

  1. Vnesite "Edit" v konzolo za upravljanje z / OS360 in pritisnite tipko "Enter", da uredite program COBOL.

  2. Dodajte naslednjo kodo na začetek programa:

    IDENTIFIKACIJSKA DEJAVNOST. ID PROGRAMA. COBVAR. ODDELEK OKOLJA. ODDELEK VHOD-IZHOD. FILE-CONTROL. SELECT IFILE ASSIGN TO "IFILE".

    ODDELEK DATUMA. ODDELEK DATOTEKE. FD IFILE RECORD se spreminja od 10 do 50 glede na LEN. 01 IREC. 05 IZPOLNITE PIC X ZADEVI OD 10 DO 50 DATUMOV V ZVEZI Z LENOM.

    POSTOPEK. P1. ZASLON "PRIMER 1 OSTAJA V ZADEVI V SISTEMU REC" ODPRTO INPUT IFILE IZPOLNITE DO LEN = -1 PREBERITE IFILE NA KONCU MOVE -1 DO LENJA NA KONČNEM PRIKAZU PRIKAZ IREC LEN END-READ END-PERFORM ZAPRTO


    DISPLAY "PRIMER FIKSNI REC" ODPRTO INPUT IFILE MOVE ALL "X" V IREC PREBERI IFILE NA KONCU PREMIK -1 DO LEN DISPLAY IREC DISPLAY SPACE

  3. Na konzoli vnesite "Save" in pritisnite tipko "Enter", da omogočite programu obdelavo zapisov spremenljive dolžine.