IBMs Common Forretninger Oriented Language ( COBOL ) programmeringsspråk tillater brukere å behandle ulike typer data i finans og business programmer. COBOL støtter variabel lengde poster datatype for bruk i databasen er lagret på harddisker , og brukeren angir maksimum og minimum rekord lengder for å beskrive disk filer med variabel lengde poster. Lese variabel lengde data fra en fil lar deg behandle databasen informasjon uten å definere den eksakte størrelsen på en post i din COBOL -programmet . Instruksjoner
en
Type " Edit " på z/OS360 mainframe system -management konsoll og trykk på "Enter "-tasten for å redigere COBOL -programmet .
2
Legg til etter koden til begynnelsen av programmet : .
IDENTIFIKASJON DIVISJON
pROGRAM - ID . COBVAR .
MILJØ DIVISJON .
Input-output DEL .
FIL -CONTROL .
SELECT iFile tilordne til " iFile " .
< p> DATA divisjon.
FIL DEL .
FD iFile
posten er varierende fra 10 til 50 AVHENGIG LEN .
01 IREC .
05 FILLER PIC X inntreffer 10 til 50 ganger avhengig LEN .
PROSEDYRE DIVISJON .
P1 .
DISPLAY " EKSEMPEL 1 oppstår avhengig REC"
åpen inngang iFile
utfører inntil LEN = -1
LES iFile
AT END MOVE -1 TIL LEN
IKKE AT END
DISPLAY IREC
DISPLAY LEN
END - LES
END - PERFORM
LUKK iFile
vise plass
DISPLAY " EKSEMPEL FAST REC"
åpen inngang iFile
MOVE ALL " X " TO IREC
LES iFile AT END MOVE -1 TIL LEN
DISPLAY IREC
vise plass
3
Type " Lagre" på konsollen , og trykk på "Enter "-tasten for å aktivere programmet til å behandle variabel lengde poster .
