1 /* BEGIN INCLUDE FILE linus_forced_scope_info.incl.pl1 */
 2 
 3 /*
 4      This include file is to keep track of scope that must be forced,
 5      and then later changed back to what it originally was.
 6 */
 7 /****^  HISTORY COMMENTS:
 8   1) change(86-04-23,Dupuis), approve(86-05-23,MCR7188), audit(86-07-23,GWMay),
 9      install(86-07-29,MR12.0-1106):
10      Written: Al Dupuis - 01/23/85.
11                                                    END HISTORY COMMENTS */
12 
13 dcl 1 forced_retrieve_scope_info aligned based (forced_retrieve_scope_info_ptr),
14       2 number_of_relations_scope_is_set_for fixed bin,
15       2 relations (frsi_init_number_of_relations refer
16         (forced_retrieve_scope_info.number_of_relations_scope_is_set_for)),
17         3 name char (32) unaligned,
18         3 retrieve_scope_was_forced bit (1) unaligned;
19 
20 dcl forced_retrieve_scope_info_ptr ptr;
21 dcl frsi_init_number_of_relations fixed bin;
22 
23 /* END INCLUDE FILE linus_forced_scope_info.incl.pl1 */