1 
 2 /* BEGIN INCLUDE FILE ...   cobol_reg_status.incl.pl1 */
 3 /* last modified Oct. 31,75 by tlf */
 4 
 5 /*
 6 1. This structure maintains the status of the object
 7    time A,Q and index registers.
 8 2. The caller should provide a dcl statement in the form.
 9    dcl 1 reg_status (0:9) based (  cobol_$reg_status_ptr) aligned,
10 */
11 
12            2 register_num bit (4),
13            2 r_lock fixed bin,
14            2 r_priority fixed bin,
15           02 save_stack_max fixed bin,
16           02 save_stack_count fixed bin,
17           02 save_stack (1:10) bit (36),
18           02 reloc_stack (1:10),
19                     03 left_reloc_info bit (5) aligned,
20                     03 right_reloc_info bit (5) aligned;
21 
22 
23 
24 /* END INCLUDE FILE ...   cobol_reg_status.incl.pl1 */
25