IBMs Common Erhverv Oriented Language ( COBOL ) programmeringssprog tillader brugere at behandle forskellige typer af data i de finansielle og business software -applikationer. COBOL understøtter variabel længde records datatype til brug i databasefiler gemt på harddiske, brugeren angiver den maksimale og minimale rekord længder for at beskrive disk filer med variabel længde poster. Læsning variabel længde af data fra en fil giver dig mulighed for at behandle database information uden at definere den nøjagtige størrelse af en post i din COBOL program. Instruktioner
1

Type " Edit" på z/OS360 mainframe -systemet -management konsol , og tryk på "Enter" -tasten for at redigere din COBOL program.
2

Tilføj følgende kode til starten af dit program : .

IDENTIFIKATION DIVISION

pROGRAM - ID . COBVAR .

MILJØ DIVISION .

INPUT - OUTPUT DEL .

FILE -CONTROL .

SELECT iFile tildeler " iFile " .
< p> DATA DIVISION .

filafsnittet .

FD iFile

RECORD er varierende fra 10 til 50 AFHÆNGIG LEN .

01. IREC . < br >

05 FILLER PIC X OPSTÅR 10 til 50 gange, afhængig af LEN .

PROCEDURE DIVISION .

P1.

DISPLAY " EKSEMPEL 1 SKER AFHÆNGIG REC" < br >

ÅBEN INPUT iFile

PERFORM INDTIL LEN = -1

LÆS iFile

ULTIMO MOVE -1 til LEN

ikke i slutningen

DISPLAY IREC

DISPLAY LEN

END - READ

END - PERFORM

LUK iFile

udstillingsplads

DISPLAY " EKSEMPEL FIXED REC "

OPEN INPUT iFile

MOVE ALL " X " TO IREC

LÆS iFile ULTIMO MOVE -1 til LEN < br >

DISPLAY IREC

udstillingsplads
3

Type " Gem " på konsollen , og tryk på "Enter" tasten for at aktivere dit program til at behandle variabel længde optegnelser.