Den fælles Business- Oriented Language, COBOL , tilbyder en række forskellige måder at adgang til data i hukommelsen. I COBOL definerer du dataelementer såsom optegnelser, tællere og midlertidige matematiske variabler i et område kaldet arbejdsgruppen Opbevaring afdeling af data divisionen. Når defineret, skal du bruge variabler blot ved at henvise til dem ved navn. Hvis du har brug for at referere til en byte i en variabel , der er nedsat en efterfølgende variabel ved hjælp COBOL er " omdefinerer " klausul. Hvis du opretter en ny variabel som et array, kan du referere til en enkelt byte i første variabel. Instruktioner
1
Opret en hukommelsesvariabel i at arbejde opbevaring, som i det følgende eksempel : Hej
erhvervsaktive STORAGE SECTION.01 DISPLAY - VARIABLES.05 DISPLAY - OMRÅDE PIC X ( 30) .
Dette opstiller en variabel kaldet "DISPLAY - området. "
2
Definer en ny variabel efter den første brug af omdefinerer klausul. Denne variabel er et array. Det henviser til de samme data som den første variabel ved hjælp det nye navn .
05 DISPLAY-BY TES redefinerer DISPLAY - AREAOCCURS 30 gange indekseret af DISPLAY - INDEXPIC X (1) .
" Indekseret af "-klausul definerer et indeks variabel. Du behøver ikke definere det andre steder i Working Opbevaring , da dette vil generere en fejl. Størrelsen af den oprindelige felt , DISPLAY - område er det samme som Display BYTES der omdefinerer det. Et område, der har en byte forekommende 30 gange er det samme som en 30 -byte felt.
3
Opsæt en en-byte Working Opbevaring felt, hvor at modtage data, da dette eksempel illustrerer : .
05. SINGLE-BYT E- FIELD PIC X (1)
4
Flyt nogle data til den første variabel i " Procedure Division " af dit program , som i den følgende eksempel: .
MOVE INPUT - RECORD TO DISPLAY - OMRÅDET
5
Indstil værdien af array indeks til at vælge den byte , du ønsker. Denne linje bør følge den foregående i dit program s Procedure Division . I COBOL modsætning til de fleste andre sprog end Fortran det første element har et indeks på én , ikke nul . Så hvis du vil referere til den første byte i marken, sætte indekset til en, som vist i følgende eksempel : Hej
SET DISPLAY - indeks til 1
6
Move. byte , du lige har valgt til det felt, du har oprettet til at modtage data. For at gøre dette , skal du angive array felt og dets tilknyttede indeks som i følgende erklæring:
MOVE Display byte ( DISPLAY - Indeks) for at enkelt-byte - FIELD
fotos .
