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
-
Skriv "Rediger" i styringskonsollen for z / OS360 mainframe system og trykk på "Enter" -tasten for å redigere COBOL-programmet.
-
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
-
Skriv "Lagre" på konsollen og trykk "Enter" -tasten for å tillate programmet å behandle variabellengde-poster.