1 
 2 /* BEGIN INCLUDE FILE ...   cobol_ptr_status.incl.pl1 */
 3 /* Last modified June 3, 76 by bc */
 4 /* last modified Oct. 31,75 by tlf */
 5 
 6 /*
 7 1. This structure contains the status of the object time
 8    pointer registers.
 9 2. The caller should provide a dcl statement in the form:
10    dcl 1 ptr_status (0:7) based (  cobol_$ptr_status_ptr) aligned,
11 */
12 
13            2 pointer_num bit (3),
14            2 usage fixed bin,
15            2 contents_sw fixed bin,
16            2 seg_num fixed bin,
17            2 wd_offset fixed bin (24),
18            2 p_lock fixed bin,
19            2 p_priority fixed bin,
20            2 p_reset fixed bin,
21            2 reset_seg_num fixed bin,
22            2 reset_wd_offset fixed bin (24),
23           02 save_stack_max fixed bin,
24           02 save_stack_count fixed bin,
25           02 save_stack (1:10) bit (36),
26           02 reloc_stack (1:10),
27                     03 left_reloc_info bit (5) aligned,
28                     03 right_reloc_info bit (5) aligned;
29 
30 
31 
32 /* END INCLUDE FILE ...   cobol_ptr_status.incl.pl1 */
33