Sådan læses en variabel udvidelsesfil i COBOL

Forfatter: Tamara Smith
Oprettelsesdato: 21 Januar 2021
Opdateringsdato: 1 December 2024
Anonim
Sådan læses en variabel udvidelsesfil i COBOL - Artikler
Sådan læses en variabel udvidelsesfil i COBOL - Artikler

Indhold

IBMs COBOL (Common Business Oriented Language) gør det muligt for brugere at behandle forskellige typer data i forretnings- og finansielle softwareapplikationer. COBOL understøtter registrerede datatyper med variabel længde til brug i databasefiler gemt på harddiske; brugeren angiver de maksimale og mindste længder af poster for at beskrive diskens filer med poster med variabel længde. Læsning af variabel længde Datafiler giver dig mulighed for at behandle databaseoplysninger uden at angive den nøjagtige størrelse af en post i dit COBOL-program.


retninger

COBOL-programmer kan behandle variabellængde-poster, der er gemt i databasefiler (Jupiterimages / Photos.com / Getty Images)

  1. Skriv "Rediger" i z / OS360 mainframe system management konsollen og tryk på "Enter" tasten for at redigere dit COBOL program.

  2. Tilføj følgende kode til begyndelsen af ​​dit program:

    IDENTIFIKATION AFDELING. PROGRAM-ID. COBVAR. MILJØAFDELING. INDGANGS-UDGANG AFSNIT. FILE-CONTROL. Vælg IFILE ASSIGN TIL "IFILE".

    DATO AFDELING. FIL AFSNIT. FD IFILE RECORD FREMRAGER FRA 10 TIL 50 AFSLUTNING PÅ LEN. 01 IREC. 05 FILLER PIC X OCCURSER 10 TIL 50 TIDER AFHÆNGENDE PÅ LEN.

    PROCEDURE DIVISION. P1. DISPLAY "EKSEMPEL 1 OPFØRER AFSLUTNING PÅ REC" ÅBEN INDGANG IFILE PERFORM TIL LEN = -1 LÆS IFILE I SLUT VÆLG -1 AT LÅNE IKKE PÅ END DISPLAY IREC DISPLAY LEN END-READ END-PERFORM LUKKER IFILE DISPLAY RUM


    DISPLAY "EKSEMPEL FIXED REC" ÅBEN INDGANG IFILE FLYT ALLE "X" TIL IREC READ IFILE AT END FLYT -1 TIL LEN DISPLAY IREC DISPLAY SPACE

  3. Skriv "Gem" på konsollen og tryk på "Enter" tasten for at tillade programmet at behandle variabellængde poster.