1 
 2 /*  BEGIN INCLUDE FILE ... cobol_perform_list.incl.pl1                 */
 3 /*  Last modified July 17, 1974 by AEG                         */
 4 
 5 
 6 declare 1 perform_list aligned based(  cobol_$perform_list_ptr),
 7           2 n fixed bin aligned,
 8           2 perf (0 refer(perform_list.n)) aligned,
 9             3 proc_num fixed bin aligned,
10             3 priority fixed bin aligned,
11             3 target_a_segno fixed bin aligned,
12             3 target_a_offset fixed bin(24) aligned,
13             3 int_tag_no fixed bin aligned;
14 
15 
16 /*
17 perform_list_ptr is a pointer upon which the structure
18                  perform_list is based.  It is declared in
19                    cobol_.incl.pl1.
20 
21 n                is the number of COBOL procedures which
22                  terminate perform ranges.
23 
24 perf             is an array of perform_list.n structures which
25                  contain information about end of perform range
26                  procedures.
27 
28 proc_num         is a tag number by which the end of perform
29                  range procedure is identified.
30 
31 priority         is the COBOL segment number of the section con-
32                  taining COBOL procedure proc_num.
33 
34 target_a_segno and target_a_offset are the artificial MCOBOL seg-
35                  ment number and character offset, respectively,
36                  of a 36-bit variable, allocated in the COBOL
37                  data segment on a word boundary, which contains
38                  transfer address information for the alterable
39                  GO contained in COBOL procedure proc_num.
40 
41 int_tag_no       is an internal tag number assigned to the in-
42                  struction to which control is transferred by the
43                  end of perform range alterable GO when the pro-
44                  cedure which it terminates is not being performed.
45 
46 
47                                                                */
48 /*  END INCLUDE FILE ... cobol_perform_list.incl.pl1                   */
49