Så här läser du en variabel fil i COBOL

Författare: John Pratt
Skapelsedatum: 11 Januari 2021
Uppdatera Datum: 23 November 2024
Anonim
Så här läser du en variabel fil i COBOL - Artiklar
Så här läser du en variabel fil i COBOL - Artiklar

Innehåll

IBMs COBOL (Common Business Oriented Language) gör det möjligt för användare att bearbeta olika typer av data i affärs- och finansiella program. COBOL stöder olika datatyper för variabel längd för användning i databasfiler som lagras på hårddiskar. användaren anger maxi- och minimilängden för poster för att beskriva filerna på disken med poster med variabel längd. Läsning av variabel längd Datafiler ger dig möjlighet att bearbeta databasinformation utan att ange den exakta storleken på en post i ditt COBOL-program.


vägbeskrivning

COBOL-program kan bearbeta variabellängdsposter som lagras i databasfiler (Jupiterimages / Photos.com / Getty Images)

  1. Skriv "Redigera" i z / OS360 mainframe systemhanteringskonsolen och tryck på "Enter" -knappen för att redigera ditt COBOL-program.

  2. Lägg till följande kod till början av ditt program:

    IDENTIFIERINGSDIVISION. PROGRAM-ID. COBVAR. MILJÖAVDELNING. INGÅNG UTGÅNG AVSNITT. FILE-CONTROL. VÄLJ IFILE ASSIGN TO "IFILE".

    DATUMAVDELNING. FIL AVSNITT. FD IFILE RECORD VÄRDERAR FRÅN 10 till 50 AVSÄTTNING PÅ LEN. 01 IREC. 05 FILLER PIC X OCCURSER 10 till 50 TIDER SOM SKYLLER PÅ LEN.

    FÖRFARANDESDELNING. P1. DISPLAY "EXEMPEL 1 ANVÄNDAR AVSLUTNING PÅ REC" OPEN INPUT IFILE PERFORM TILL LEN = -1 LÄS IFILE AT END FLYTA -1 ATT LÄNDA INTE PÅ END DISPLAY IREC DISPLAY LEN END-READ END-PERFORM CLOSE IFILE DISPLAY RUM


    DISPLAY "EXEMPEL FIXED REC" ÖPPEN INPUT IFILE Flytta ALL "X" till IREC LÄS IFILE AT END MOVE -1 FÖR ATT LÄNDA DISPLAY IREC DISPLAY SPACE

  3. Skriv "Spara" på konsolen och tryck på "Enter" -knappen så att programmet kan bearbeta variabellängdsposter.