1 
 2 /* BEGIN INCLUDE FILE ... cobol_type100.incl.pl1 */
 3 /* Last modified on 11/19/76 by ORN */
 4 
 5 /*
 6 The internal register token is used only during the code generation phase.
 7 */
 8 
 9 dcl cobol_type100_ptr ptr;
10 
11 /* BEGIN DECLARATION OF TYPE100 (INTERNAL REGISTER) TOKEN */
12 dcl 1 cobol_type100 based (cobol_type100_ptr) aligned,
13           /* header */
14            2 size fixed bin (15),
15            2 line fixed bin (15),
16            2 column fixed bin (7),
17            2 type fixed bin (7),
18           /* body */
19            2 register bit (4) unaligned;
20 /* END DECLARATION OF TYPE100 (INTERNAL REGISTER) TOKEN */
21 
22  /*
23 FIELD               CONTENTS
24 
25 size                The total size in bytes of this token.
26 line                Generated sequence number of source line.
27                     Always 0.
28 column              The column number on the source image.
29                     Always 0.
30 type                100
31 register            The register number in the following form.
32                               "0001"b - A register.
33                               "0010"b - Q register.
34                               "0011"b - A and Q registers.
35                               "1nnn"b - index register nnn.
36 */
37 
38 /* END INCLUDE FILE ... cobol_type100.incl.pl1 */
39