1 /*  BEGIN INCLUDE   vrm_com.incl.pl1               */
 2 
 3 /*  Written 82-08-23 by R. Harvey                  */
 4 
 5      dcl     vrm_com_ptr            ptr;
 6      dcl     1 vrm_com              aligned based (vrm_com_ptr),
 7                2 get_seg_ptr        ptr,                    /* temp seg for retrieve routines */
 8                2 put_seg_ptr        ptr,                    /* temp seg for store routines */
 9                2 mod_seg_ptr        ptr,                    /* temp seg for modify routines */
10                2 work_area_ptr      ptr,                    /* freeing area for oid_table sections and rel_descriptors */
11                2 highest_oid        bit (36) aligned,       /* highest valid oid */
12                2 next_free_oid      bit (36) aligned,       /* offset of first in free chain */
13                2 first_assigned_oid bit (36) aligned,       /* offset of first in assigned chain */
14                2 oid_area           area (sys_info$max_seg_size - fixed (rel (addr (vrm_com.work_area_ptr))));
15 
16 /*  END INCLUDE    vrm_com.incl.pl1                */