1 
 2 /*  BEGIN INCLUDE FILE ...   cobol_alter_list.incl.pl1                   */
 3 
 4 /*  Last modified July 17, 1974 by AEG                         */
 5 
 6 
 7 declare 1 alter_list aligned based(  cobol_$alter_list_ptr),
 8           2 n fixed bin aligned,
 9           2 goto (0 refer(alter_list.n)) aligned,
10             3 proc_num fixed bin aligned,
11             3 priority fixed bin aligned,
12             3 target_a_segno fixed bin aligned,
13             3 target_a_offset fixed bin(24) aligned;
14 
15 
16 /*
17 alter_list_ptr is a pointer upon which the structure alter_list
18                is based.  It is declared in mc_.incl.pl1.
19 
20 n              is the number of alterable GO's in the source
21                program.
22 
23 goto           is an array of alter_list.n structures containing
24                information about the alterable GO's.
25 
26 proc_num       is the tag number associated with a COBOL procedure
27                containing an alterable GO.
28 
29 priority       is the COBOL segment number of the section con-
30                taining COBOL procedure proc_num.
31 
32 target_a_segno and target_a_offset are the artificial MCOBOL
33                segment number and character offset, respectively,
34                of a 36-bit variable, allocated in the COBOL data
35                segment on a word boundary, which contains trans-
36                fer address information for the alterable GO con-
37                tained in COBOL procedure proc_num.
38 
39                                                                */
40 /*  END INCLUDE FILE ...   cobol_alter_list.incl.pl1                     */
41