De Common Business - Oriented Language , COBOL , biedt een verscheidenheid aan manieren om toegang te krijgen tot de gegevens in het geheugen . In COBOL , je data elementen zoals registers , tellers en tijdelijke wiskunde variabelen in een gebied genaamd de Working Sectie Opslag van de divisie gegevens te definiëren . De variabelen eenmaal gedefinieerd , gebruikt u gewoon door te verwijzen naar hun naam . Als u nodig hebt om te verwijzen naar een byte in een variabele , het opzetten van een volgende variabele met behulp van COBOL 's " herdefinieert " -clausule . Als u de nieuwe variabele als een array te maken , kunt u een enkele byte in de eerste variabele verwijzen . Instructies
1 Maak een geheugenvariabele in het werken opslag , zoals in het volgende voorbeeld :
WERKEN - OPSLAG SECTION.01 DISPLAY - VARIABLES.05 DISPLAY - GEBIED PIC X ( 30 ) .
Dit stelt een variabele genaamd " DISPLAY - AREA . " kopen van 2 Definieer een nieuwe variabele na het eerste gebruik van de herdefinieert clausule . Deze variabele is een array. Het verwijst naar dezelfde gegevens als de eerste variabele met de nieuwe naam . 05 DISPLAY-BY TES herdefinieert DISPLAY - AREAOCCURS 30 TIJDEN geïndexeerd door DISPLAY - INDEXPIC X ( 1 ) .
De " geïndexeerd door " clausule definieert een index variabele . Je hoeft het niet elders in Werken Opslag definiëren ; doen zal een foutmelding genereren . De grootte van het originele veld , DISPLAY - AREA , is hetzelfde als DISPLAY - BYTES die zij herdefinieert . Een veld met een byte zich 30 maal is hetzelfde als een 30 - byte gebied .
3 Stel een byte Werkveld Storage waarin de gegevens te ontvangen , aangezien dit voorbeeld illustreert : .
05 SINGLE-BYT E - FIELD PIC X ( 1 )
4 Verplaats een aantal gegevens naar de eerste variabele in de " Procedure Division " van uw programma , zoals in het volgende voorbeeld : . MOVE
INPUT - RECORD TO DISPLAY - GEBIED
5 Stel de waarde van de array -index om de byte die u wilt kiezen . Deze regel moet de vorige in orde Division uw programma 's te volgen . In COBOL tegenstelling tot de meeste andere talen naast Fortran , het eerste element heeft een index van een, niet nul . Dus als je wilt verwijzen naar de eerste byte in het veld, de index op een, zoals in het volgende voorbeeld : SET
DISPLAY - INDEX TO 1
Move 6 . de byte je net gekozen om het veld dat u ingesteld om de gegevens te ontvangen . Om dit te doen , je het veld matrix en de bijbehorende index opgeven als in de volgende verklaring : MOVE DISPLAY - BYTES
( DISPLAY - INDEX ) TO SINGLE - BYTE - VELD
.
|
