1 
 2 /* BEGIN INCLUDE FILE ... cobol_occurs_ext.incl.pl1 */
 3 /* Last modified on 01/19/77 by ORN */
 4 
 5 /*
 6 An occurs extension is included in a type 9 data name token when the data
 7 name is described with an occurs clause or is subordinate to an item
 8 described with an occurs clause.
 9 */
10 
11 /*        ***STRUCTURE SIZE INFORMATION***        */
12 /*     THE SIZE OF THIS STRUCTURE IN BYTES, (EXCLUDING VARIABLE
13        LENGTH ENTITIES), FOR EACH HARDWARE IMPLEMENTATION IS:
14 
15           HARDWARE  |         SIZE (BYTES)
16           ---------------------------------
17           6180      |         12 + 24 * dimensions
18           P7        |         6 + 14 * dimensions
19           ---------------------------------
20 */
21 
22 /*   THE OCCURS EXTENSION STRUCTURE   */
23 
24 dcl occurs_ptr ptr;
25 
26 dcl       1 occurs based (occurs_ptr),
27                     2 keyed fixed bin,
28                     2 key_number fixed bin,
29                     2 dimensions fixed bin,
30                     2 level (occurs.dimensions),
31                               3 index_no fixed bin,
32                               3 min fixed bin,
33                               3 max fixed bin,
34                               3 struc_length fixed bin,
35                               3 cswd_seg fixed bin,
36                               3 cswd_offset fixed bin(24);
37 
38 
39 
40 /* END INCLUDE FILE ...   cobol_occurs_ext.incl.pl1 */
41