The Common Business - Oriented Language , COBOL , erbjuder en mängd olika sätt att komma åt data i minnet . I COBOL , definierar du dataelement såsom register , räknare och tillfälliga variabler matematik i ett område som kallas arbetsminnet avsnitt av Data Division . När du har definierat , använd dig variablerna enbart genom att hänvisa till dem vid namn . Om du behöver referera till ett byte i en variabel , inrätta en efterföljande variabel med COBOL s " omdefinierar " klausul . Om du skapar en ny variabel som en matris , kan du referera något enstaka byte i den första variabeln . Instruktioner
en
Skapa ett minne variabel i arbetsminne , som i följande exempel :
WORKING- LAGRING SECTION.01 DISPLAY - VARIABLES.05 DISPLAY - OMRÅDE PIC X ( 30 ) .
Detta ställer in en variabel som heter " display area . "
2
Definiera en ny variabel efter första användning av omdefinierar klausulen . Denna variabel är en array . Den refererar samma uppgifter som den första variabeln med det nya namnet .
05 DISPLAY-BY TES omdefinierar DISPLAY - AREAOCCURS 30 gånger indexeras av DISPLAY - INDEXPIC X ( 1 ) .
" Indexeras av klausul " definierar en indexvariabel . Du definierar inte det någon annanstans i arbetsminne , detta kommer att generera ett fel . Storleken på det ursprungliga området , display area , är det samma som DISPLAY -BYTES som omdefinierar den . Ett fält med en byte förekommer 30 gånger är det samma som en 30 - bitars fält .
3
Inrätta en en- byte arbetsminne fält där för att ta emot data , eftersom detta exempel visar : .
05 SINGLE-BYT E - FIELD PIC X ( 1 )
4
Flytta vissa uppgifter till den första variabeln i " Procedure Division " i ditt program , som i följande exempel : .
MOVE INPUT - RECORD för att visa - OMRÅDE
5
Ange värdet i arrayen index för att välja det byte du vill . Denna linje bör följa den tidigare i din programmets Procedure Division . I COBOL, till skillnad från de flesta andra språk förutom Fortran , har det första elementet ett index på en , inte är noll. Så om du vill referera till den första byten på fältet , ange indexet till en , vilket visas i följande exempel :
SET DISPLAY - index till 1
6
Move . byte du just valt till fältet som du satt upp för att ta emot data . För att göra detta anger du arrayen fältet och dess tillhörande index som i följande uttalande :
flytta visa - byte ( DISPLAY - Index) för att enbytes - OMRÅDET
.
