Slik leser du en variabel lengde fil i COBOL
IBMs felles virksomhet Oriented Language (COBOL) programmeringsspråk tillater brukere å behandle forskjellige typer data i finans- og forretningsapplikasjoner. COBOL støtter variabel lengde poster datatype for bruk i databasefiler som er lagret på harddisker; brukeren spesifiserer maksimums- og minimumsrekordlengder for å beskrive disk filer med variabel lengde poster. Lese variabel lengde data fra en fil lar deg behandle databaseinformasjon uten å definere den eksakte størrelsen på en post i ditt COBOL-programmet.
Bruksanvisning
1 Skriv "Edit" på z / OS360 stormaskin systemadministrasjonskonsoll og trykk "Enter" -tasten for å redigere COBOL-programmet.
2 Legg til følgende kode i begynnelsen av programmet:
IDENTIFIKASJON DIVISION.
PROGRAM-ID. COBVAR.
MILJØ DIVISION.
Input-output DEL.
FIL-CONTROL.
VELG ifile Tilordne til "iFile".
DATA DIVISION.
FILE SECTION.
FD ifile
Record er varierende fra 10 til 50, avhengig av LEN.
01 IREC.
05 FILLER PIC X OPPSTÅR 10 til 50 ganger avhengig av LEN.
PROSEDYRE DIVISION.
P1.
DISPLAY "Eksempel 1 oppstår avhengig REC"
OPEN INPUT ifile
PERFORM TIL LEN = -1
LES ifile
Ved utgangen MOVE -1 til LEN
IKKE AT END
DISPLAY IREC
DISPLAY LEN
SLUTT LES
END-PERFORM
CLOSE ifile
DISPLAY SPACE
DISPLAY "Eksempel FAST REC"
OPEN INPUT ifile
Flytt alle "X" TO IREC
LES ifile AT END FLYTT -1 til LEN
DISPLAY IREC
DISPLAY SPACE
3 Skriv "Lagre" på konsollen, og trykk "Enter" -tasten for å aktivere programmet til å behandle variabel lengde poster.