Slik leser du en variabel utvidelsesfil i COBOL

Forfatter: Tamara Smith
Opprettelsesdato: 23 Januar 2021
Oppdater Dato: 23 November 2024
Anonim
Slik leser du en variabel utvidelsesfil i COBOL - Artikler
Slik leser du en variabel utvidelsesfil i COBOL - Artikler

Innhold

IBMs COBOL (Common Business Oriented Language) gjør at brukere kan behandle ulike typer data i forretnings- og finansprogrammer. COBOL støtter registrerte datatyper med variabel lengde for bruk i databasefiler som er lagret på harddisker; brukeren spesifiserer maksimums- og minimumslengden av poster for å beskrive filene på disken med poster med variabel lengde. Lese variabel lengde Datafiler lar deg behandle databaseinformasjon uten å angi nøyaktig størrelse på en plate i COBOL-programmet.


retninger

COBOL-programmer kan behandle variabellengde-poster lagret i databasefiler (Jupiterimages / Photos.com / Getty Images)

  1. Skriv "Rediger" i styringskonsollen for z / OS360 mainframe system og trykk på "Enter" -tasten for å redigere COBOL-programmet.

  2. Legg til følgende kode i begynnelsen av programmet ditt:

    IDENTIFIKASJONSDIVISION. PROGRAM-ID. COBVAR. MILJØAFDELING. INGANGS-UTGANGSAVSNITT. FIL-CONTROL. VELG IFILE ASSIGN TIL "IFILE".

    DATO DIVISION. FILSNITT. FD IFILE RECORD ER VARYING FRA 10 TIL 50 AVSLUTNING PÅ LEN. 01 IREC. 05 FILLER PIC X OCCURSER 10 TIL 50 TIDER AVHENGER PÅ LEN.

    PROSEDYREDELING. P1. DISPLAY "EKSEMPEL 1 OCCURS DEPENDING ON REC" OPEN INPUT IFILE PERFORM TIL LEN = -1 LES IFILE AT END FLYTT -1 Å LEN IKKE PÅ END DISPLAY IREC DISPLAY LEN END-READ END-PERFORM CLOSE IFILE DISPLAY SPACE


    DISPLAY "EKSEMPEL FIXED REC" ÅPEN INPUT IFILE Flytt ALLE "X" TIL IREC READ IFILE PÅ SLUTSVENDIG -1 Å LEN DISPLAY IREC DISPLAY SPACE

  3. Skriv "Lagre" på konsollen og trykk "Enter" -tasten for å tillate programmet å behandle variabellengde-poster.