1 /*        BEGIN INCLUDE FILE comp_areas.incl.pl1            */
2 
3 dcl comp_area       area (sys_info$max_seg_size) /* compose no freeing area */
4                     based (const.comp_area_ptr);
5 dcl comp_free       area (sys_info$max_seg_size) /* compose freeing area */
6                     based (const.comp_free_ptr);
7 
8 /*        END INCLUDE FILE comp_areas.incl.pl1     */