1 /*        BEGIN INCLUDE FILE comp_column.incl.pl1 */
 2 
 3 /* format: style2,ind2,ll79,dclind4,idind15,comcol41,linecom */
 4 
 5      dcl 1 col                          /* the text column */
 6                         aligned based (shared.colptr),
 7            2 blkptr     (100) ptr,      /* pointers to text blocks */
 8            2 depth_adj  fixed bin (31), /* for variable start depth */
 9            2 ftrptr     ptr,            /* -> column footer */
10            2 ftrusd     fixed bin (31), /* column footer space used */
11            2 gutter     fixed bin (31), /* column separation */
12            2 hdr        like colhdr,    /* column control stuff */
13            2 hdrptr     ptr,            /* -> column header */
14            2 hdrusd     fixed bin (31), /* column header space used */
15            2 margin,                    /* margin settings for column */
16              3 left     fixed bin (31),
17              3 right    fixed bin (31),
18            2 parms,                     /* text parms for the column */
19              3 measure  fixed bin (31); /* column width */
20 
21      dcl 1 colhdr       aligned based (const.colhdrptr),
22                                         /* an empty column header */
23            2 balblk     fixed bin,      /* block to begin column balancing */
24            2 baldepth   fixed bin (31), /* page depth at balance point */
25            2 balftn,                    /* footnotes at balance point */
26              3 ct       fixed bin,      /* count */
27              3 usd      fixed bin (31), /* space used */
28              3 blkndx   (40) fixed bin, /* block index values */
29            2 balusd     fixed bin (31), /* space used up to balance point */
30            2 blkct      fixed bin,      /* text block count */
31            2 depth      fixed bin (31), /* current page depth in the column */
32            2 ftn        like balftn,    /* footnotes */
33            2 pspc       fixed bin (31), /* current white space */
34            2 net        fixed bin (31), /* net usable space in the column */
35            2 used       fixed bin (31); /* space used in this column */
36                                         /* for quick reference */
37      dcl 1 col0         aligned like col based (page.column_ptr (0));
38 
39 /*        END INCLUDE FILE comp_column.incl.pl1   */