1 /*  START OF:       object_lib_defs.incl.pl1                 *  *  *  *  *  */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(86-05-02,Elhard), approve(86-05-02,MCR7391),
 6      audit(86-10-03,DGHowe), install(86-11-20,MR12.0-1222):
 7      Written to define structure returned by object_lib_$get_component_info.
 8                                                    END HISTORY COMMENTS */
 9 
10   /********************************************************************/
11   /*                                                                  */
12   /*      Name:     object_lib_defs                                   */
13   /*                                                                  */
14   /*      Function: This include file defines constants & structures  */
15   /*                used and returned by the object_lib_ subroutines. */
16   /*                                                                  */
17   /********************************************************************/
18 
19   dcl 01 component_info       aligned based (comp_infop),
20        02 version             char (8),
21        02 flags               aligned,
22         03 msf                bit (1) unaligned,
23         03 mbz                bit (35) unaligned,
24        02 max                 fixed bin,
25        02 comp                (0:max_component refer (component_info.max)),
26         03 segp               ptr,
27         03 bc                 fixed bin (24),
28         03 mbz                bit (36),
29         03 info               like object_info;
30 
31   dcl comp_infop              ptr;
32   dcl max_component           fixed bin;
33   dcl component_info_version_1
34                               char (8) static options (constant)
35                               init ("cinfo1.0");
36 
37 /*  END OF:         object_lib_defs.incl.pl1                  *  *  *  *  *  */