1 
 2 /* BEGIN INCLUDE FILE ... cobol_type30.incl.pl1 */
 3 /* Last modified on 11/19/76 by ORN */
 4 
 5 /*
 6 An internal tag token is created in the procedure division minpral file by
 7 the procedure division syntax phase whenever the introduction of a
 8 compiler-generated procedure definition is required to maintain the proper
 9 logical flow between minpral statements.  A typical usage of type 30 tokens
10 is as labels of simple conditions within a compound condition.
11 */
12 
13 dcl tag_ptr ptr;
14 
15 /* BEGIN DECLARATION OF TYPE30 (INTERNAL TAG) TOKEN */
16 dcl 1 int_tag based (tag_ptr),
17           /* header */
18           2 size fixed bin (15),
19           2 line fixed bin (15),
20           2 column fixed bin (15),
21           2 type fixed bin (15),
22           /* body */
23           2 filler1 ptr,
24           2 filler2 ptr,
25           2 perform_bit bit (1),
26           2 true_path bit (1),
27           2 filler3 bit (6),
28           2 filler4 char (2),
29           2 filler5 bit (8),
30           2 filler6 fixed bin (15),
31           2 proc_num fixed bin (15),
32           2 filler7 fixed bin (15),
33           2 filler8 char (1);
34 /* END DECLARATION OF TYPE30 (INTERNAL TAG) TOKEN */
35 
36 /*
37 FIELD     CONTENTS
38 
39 size      The total size in bytes of this internal tag token.
40 line      0
41 column    0
42 type      30
43 filler1   Available for future use.
44 filler2   Available for future use.
45 perform_bit         Set to "1"b when this token is issued at the
46           end of a condition in a format #3 or format #4
47           perform.
48 true_path This field is significant only when perform_bit is
49           "1"b. Set to "1"b when this token represents the true
50           path of a condition. Set to "0"b when this token
51           represents the false path of a condition.
52 filler3   Available for future use.
53 filler4   Available for future use.
54 filler5   Available for future use.
55 filler6   Available for future use.
56 proc_num  The internally generated procedure number of the tag
57           defined by this token.
58 filler7   Available for future use.
59 filler8   Available for future use.
60 */
61 
62 /* END INCLUDE FILE ... cobol_type30.incl.pl1 */
63