         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
$PAGE "Include File : Object Identifier Format"                         00010000
<<=========================================================             00015000
=                                                         =             00020000
=                  INCLOBJ - H4       * MPE V *           =             00025000
=                                                         =             00030000
=========================================================>>             00035000
                                                                        00040000
                                                                        00045000
                                                                        00050000
<<  Begin Include File  :  INCLOBJ  >>                                  00055000
                                                                        00060000
COMMENT                                                                 00065000
                                                                        00070000
   The format of the MPE5 object descriptor is as follows:              00075000
                                                                        00080000
           0     3 4                    15                              00085000
          ---------------------------------                             00090000
        0 | Type  |      CSTBLK           |                             00095000
          |_______|_______________________|                             00100000
        1 |     Number field              |                             00105000
          |                               |                             00110000
          ---------------------------------                             00115000
                                                                        00120000
   Where :                                                              00125000
             0.(0:4) is the object type:                                00130000
                     0 => Data segment                                  00135000
                     1 => SL segment                                    00140000
                     2 => Program segment                               00145000
                     3 => Cache Domain                                  00150000
                                                                        00155000
             0.(4:12) is the program index into the CSTBLK              00160000
                                                                        00165000
             1.(0:16) is the segment number, or DST entry number,       00170000
                      or SL entry number, or CDT entry number.          00175000
                                                                        00180000
;                                                                       00185000
                                                                        00190000
EQUATE                                                                  00195000
                                                                        00200000
   ObjIDdataType      = 0,                                              00205000
   ObjIDslType        = 1,                                              00210000
   ObjIDpgmType       = 2,                                              00215000
   ObjIDcdType        = 3;                                              00220000
                                                                        00225000
                                                                        00230000
DEFINE                                                                  00235000
                                                                        00240000
   ObjIDType          = (0:4)#,                                         00245000
   ObjIDdescField     = 0#,                                             00250000
   ObjIDTypeField     = ObjIDdescField).(0:4#,                          00255000
   ObjIDpbxField      = ObjIDdescField).(4:12#,                         00260000
   ObjIDnumField      = 1#;                                             00265000
                                                                        00270000
EQUATE                                                                  00275000
                                                                        00280000
   DataObject         = ObjIDdataType,                                  00285000
   SlObject           = ObjIDslType,                                    00290000
   PbxObject          = ObjIDpgmType,                                   00295000
   MappedDomainObject = ObjIDcdType;                                    00300000
                                                                        00305000
                                                                        00310000
                                                                        00315000
<<=========================================================             00320000
=                                                         =             00325000
=                End of INCLOBJ                           =             00330000
=                                                         =             00335000
=========================================================>>             00340000
$TITLE " "                                                              00345000
