-
Notifications
You must be signed in to change notification settings - Fork 0
/
02-tables.cob
59 lines (48 loc) · 1.81 KB
/
02-tables.cob
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
IDENTIFICATION DIVISION.
PROGRAM-ID. Tables.
****************************
DATA DIVISION.
WORKING-STORAGE SECTION.
01 idx-1 USAGE IS INDEX.
01 sub PIC 9 USAGE BINARY.
01 simple-array VALUE "abcdefghij".
02 array-entry PIC X OCCURS 10 INDEXED BY idx.
01 personnel-table.
02 personnel-record OCCURS 30.
05 first-name PIC X(20).
05 last-name PIC X(20).
05 department PIC X(20).
01 matrix.
02 matrix-row OCCURS 3.
03 matrix-column OCCURS 2.
05 matrix-entry PIC 9999v99.
01 long-vector REDEFINES matrix.
02 vector-entry PIC 9999v99 OCCURS 6.
****************************
PROCEDURE DIVISION.
DISPLAY array-entry(1).
DISPLAY array-entry(5).
DISPLAY array-entry(10).
MOVE 1.1 TO matrix-entry(1,1).
MOVE 2.1 TO matrix-entry(2,1).
MOVE 3.1 TO matrix-entry(3,1).
MOVE 1.2 TO matrix-entry(1,2).
MOVE 2.2 TO matrix-entry(2,2).
MOVE 3.2 TO matrix-entry(3,2).
DISPLAY matrix-row(1).
DISPLAY matrix-row(2).
DISPLAY matrix-row(3).
DISPLAY matrix-column(1,2).
DISPLAY matrix-entry(1,2).
DISPLAY matrix.
DISPLAY long-vector.
DISPLAY vector-entry(6).
SET idx TO 1.
DISPLAY array-entry(idx).
SET idx-1 TO idx.
SET idx-1 UP BY 2.
DISPLAY array-entry(idx-1).
DISPLAY idx.
MOVE 5 TO sub.
DISPLAY array-entry(sub).
STOP RUN.