View previous topic :: View next topic
|
Author |
Message |
bharath.kalli
New User
Joined: 13 May 2010 Posts: 7 Location: Chennai
|
|
|
|
01 Sample-Table.
05 Table-X occurs 3 times indexed by INX-A.
10 Table-Row occurs 4 times indexed by INX-B.
15 Tab-Col occurs 8 times indexed by INX-C PIC X(8).
How many bytes will Table-X will occupy?
8, 64, 256…? |
|
Back to top |
|
|
Kurt Deininger
New User
Joined: 13 Jul 2010 Posts: 19 Location: Frankfurt/Germany
|
|
|
|
Try this:
Code: |
IDENTIFICATION DIVISION.
PROGRAM-ID. ANYPROG.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 SAMPLE-TABLE.
05 TABLE-X OCCURS 3 TIMES INDEXED BY INX-A.
10 TABLE-ROW OCCURS 4 TIMES INDEXED BY INX-B.
15 TAB-COL OCCURS 8 TIMES INDEXED BY INX-C PIC X(8).
PROCEDURE DIVISION.
DISPLAY 'LENGTH=' LENGTH OF SAMPLE-TABLE
STOP RUN.
|
which produces:
Code: |
LENGTH=000000768
***
|
Cheers Kurt |
|
Back to top |
|
|
bharath.kalli
New User
Joined: 13 May 2010 Posts: 7 Location: Chennai
|
|
|
|
Thx for the reply.
Now I can get the perfect answer. |
|
Back to top |
|
|
GuyC
Senior Member
Joined: 11 Aug 2009 Posts: 1281 Location: Belgium
|
|
|
|
8(x) * 8(occurs) * 4(occurs) * 3 (occurs) = 8 * 8 * 4 * 3 = 768 |
|
Back to top |
|
|
|