IBMs Common Business Oriented Language ( COBOL ) programmeringsspråk tillåter användare att hantera olika typer av data i finansiella och affärsmässiga program . COBOL stöder variabel längd datatyp för användning i databasfiler lagras på hårddiskar , användaren anger de högsta och lägsta rekord längder för att beskriva diskfiler med variabel längd . Läsa variabel längd från en fil kan du bearbeta databas uppgifter utan att definiera den exakta storleken på en post i din COBOL -program . Instruktioner
1
Type " Redigera " på z/OS360 stordatorsystem - management console och tryck på " Enter " -tangenten för att redigera din COBOL -program .
2
Lägg till följande kod i början av ditt program : .
NAMNET DIVISION
pROGRAM - ID . COBVAR .
MILJÖ DIVISION .
INPUT - utsektion .
FILE - CONTROL .
VÄLJ ifile TILLSKRIVA " ifile " .
DATA DIVISION .
filavsnittet .
FD ifile
rekord är varierar från 10 till 50 BEROENDE PÅ LEN .
01 IREC .
05 FILLER PIC X INTRÄFFAR 10 till 50 gånger beroende på LEN .
FÖRFARANDE DIVISION .
P1 .
DISPLAY " EXEMPEL 1 sker därefter beroende av REC "
öppen ingång ifile
att vara tills LEN = -1
LÄS ifile
AT END Flytta -1 till LEN
Inte i slutet
DISPLAY IREC
DISPLAY LEN
END - LÄS
END - UTFÖR
STÄNG ifile
SPACE
DISPLAY
DISPLAY " EXEMPEL FAST REC "
öppen ingång ifile
FLYTTA ALLA " X " TILL IREC
LÄS ifile AT END Flytta -1 till LEN
DISPLAY IREC
skyltningsutrymmen
3
Type " Spara " på konsolen och tryck på " Enter " -tangenten för att aktivera ditt program för att bearbeta rörlig - längd.