[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference azur::mcc

Title:DECmcc user notes file. Does not replace IPMT.
Notice:Use IPMT for problems. Newsletter location in note 6187
Moderator:TAEC::BEROUD
Created:Mon Aug 21 1989
Last Modified:Wed Jun 04 1997
Last Successful Update:Fri Jun 06 1997
Number of topics:6497
Total number of notes:27359

4787.0. "AM DVP: error message in 'deregister'" by TAVIS::ORNA () Wed Mar 31 1993 08:46

Hello,

When we operate the 'circle with 1 line on it' (delete),
it works ok; when we operate the circle with 2 lines on it
it also works ok but gives us an error message.


This is the output from the delete/deregister of an entity with no
child entities:

circle with one line:
---------------------
ILV dump of p_INQ
[  0 ] (
    [  3 ]     08 00 2b 2a d6 ec 8b 2d 04 d8 94 0e 96 00 11 00 01 0d 6d 61
    70 5f 6f 66 5f 69 73 72 61 65 6c 00 00
    )
After mcc_call_function, ILV dump of P_OUT
[  1 ] (
    )
ILV dump of P_Israel Id = 1 Dt = 5
Depth=1  Class = 88 Instance = bezeq:.bbbb Id = 1 Dt = 5


ILV dump of P_OUT_ENTITY
Depth=e = bezeq:.map_of_israel Id = 1 Dt = 5
Depth=1  Class = 88 Instance = bezeq:.bbbb Id = 1 Dt = 5
                                                                       

The entity disappears from the screen and ity's OK no messages.


circle with two lines:
----------------------
ILV dump of p_INQ
[  0 ] (
    [  3 ]     08 00 2b 2a d6 ec 8b 2d 04 d8 94 0e 96 00 11 00 01 0d 6d 61
    70 5f 6f 66 5f 69 73 72 61 65 6c 00 00
   5
Depth=1  Class = 88 Instance = bezeq:.bbbb Id = 1 Dt = 5


ILVth=0  Class = 8 Instance = bezeq:.map_of_israel Id = 1 Dt = 5
Depth=1  Class = 88 Instance = bezeq:.bbbb Id = 1 Dt = 5
                                                               

ILV dump of p_INQ
[  0 ] (
    [  3 ]     08 00 2b 2a d6 ec 8b 2d 04 d8 94 0e 96 00 11 00 01 0d 6d 61
    70 5f 6f 66 5f 69 73 72 61 65 6c 00 00
Entering DEREGISTER

IN_ENTITY:
        entity [0] wild = NOT_WILD class = 130      instance = ..+*Vl.-.X........bbbb..
        %X08002B2AD6EC8B2D04D8940E960008000104626262620000

IN_P:


IN_Q:

          
[  0 ] (
    [  3 ]     08 00 2b 2a d6 ec 8b 2d 04 d8 94 0e 96 00 11 00 01 0d 6d 61
    70 5f 6f 66 5f 69 73 72 61 65 6c 00 00
    )p_fullname_entity is

        entity [0] wild = NOT_WILD class = 130 id = 1 type= ..+*Vl.-.X........bbbb..
        %X08002B2AD6EC8B2D04D8940E960008000104626262620000



IN_P TO SHOW DOMAIN *:

[  1 ] (
    [  18 ] (
        [  1 ] (
        00 00 01 00 01 00 18 00 0e 02 30 00 00
00 18 00 00 01
            01 00 00 00 05 000 00 00 00 00 08 00 2b 2a d6 ec 8b 2d 04 d8 94 0e
            96 00 08 00 01 04 62 62 62 62 00  = INSTANCE_FULL class = 8

OUT_P FROM SHOW DOMAIN *:
                                                      
[  2 ] (
    [  1 ]     01
    [  2 ]     03 26 d8 5a
    )
OUT_E FROM SHOW DOMAIN *:
        entity [0] wild = INSTANCE_FULL class = 8
om DNS:

Global entity

        entity [0] wild = NOT_WILD class = 130 id = 1 TATE


                       
Global entity exists

registration state is 99

I am in exchange DEREGISTER routine

OUT_P FROM AM DEREGISTER:


OUT_P:


[  2 ] (
    [  1 ]     01
    [  2 ]     03 26 d1 12
    )
Returning from Deregister

    )
After mcc_call_function, ILV dump of P_OUT
[  2 ] (
    [  1 ]     01
    [  2 ]     03 26 d1 12
    )
ILV dump of P_IN_ENTITY
Depth=0  Class = 130 Instance = bezeq:.bbbb Id = 1bbbb Id = 1 Dt = 5


ILV dump of p_INQ
[  0 ] (
    [  3 ]     08 00 2b 2a d6 ec 8b 2d 04 d8 94 0e61
    70 5f 6f 66 5f 69 73 72 61 65 6c 00 00
I am in exchange DELETE routine
 r mcc_call_function, ILV dump of P_OUT
[  1 ] (
    )
ILV dump of P_IN_ENTITY
Depth=0  Class = 130 Instance = bezeq:.bbbb Id = 1 Dt = 5


ILV dump of P_OUT_ENTITY
Depth=0  Class = 130 Instance = bezeq:.bbbb
                                                            

ILV dump of P_OUT_ENTITY
Depth=0  Class = 130 Instance = bezeq:.bbbb Id = 1 Dt = 5


And I got the message:
%MCC-E-NOPARAMLIST, no parameter list was supplied in this ILV buffer


Can someone help and see what went wrong?

Thanks,
Orna.




T.RTitleUserPersonal
Name
DateLines
4787.1bad P_OUT param?BARREL::LEMMONWed Mar 31 1993 17:4529
    I am a bit confused.  Let me explain what the single line circle 
    and double line circle do first and then take if from there.
    
    
    The single line circle means delete the domain member.  The Iconic Map
    issues the command line equivalent of 
    
    	DELETE DOMAIN <domain> MEMBER <member-fullname>
    
    The double line circle means delete the domain member, deregister from 
    the registration database, and delete the entity itself.  The Iconic
    Map issues the following
    
    	DELETE DOMAIN <domain> MEMBER <member-fullname>
        DEREGISTER <class> <instance>
    	DELETE <class> <instance>
    	
    From your output it looks like the DELETE operation is returning a 
    bad P_OUT buffer.  I Have seen this error message when a NULL pointer
    is returned.  Make sure that your access module is returning a valid
    output buffer.
    
    Another thing you can do is check to see if you get the same 
    behavior issuing the above commands from FCL.  define MCC_FCL_PM_LOG 
    to 8 to have the parameters displayed to the terminal.
    
    /Jim
    
    p.s. If you reply to this message please forward it to TOOK::LEMMON.
4787.2Output from FCLTAVIS::ORNATue Apr 13 1993 07:30156
    
    
    Hi,
    
Sorry for the delay in the response: we had holidays here.
    
    
     This is the output from the delete/deregister of an entity with no
child entities:

circle with one line:
---------------------
ILV dump of p_INQ
[  0 ] (
    [  3 ]     08 00 2b 2a d6 ec 8b 2d 04 d8 94 0e 96 00 11 00 01 0d 6d 61
    70 5f 6f 66 5f 69 73 72 61 65 6c 00 00
    )
After mcc_call_function, ILV dump of P_OUT
[  1 ] (
    )
ILV dump of P_Israel Id = 1 Dt = 5
Depth=1  Class = 88 Instance = bezeq:.bbbb Id = 1 Dt = 5


ILV dump of P_OUT_ENTITY
Depth=e = bezeq:.map_of_israel Id = 1 Dt = 5
Depth=1  Class = 88 Instance = bezeq:.bbbb Id = 1 Dt = 5
                                                                       

The entity disappears from the screen and ity's OK no messages.


circle with two lines:
----------------------
ILV dump of p_INQ
[  0 ] (
    [  3 ]     08 00 2b 2a d6 ec 8b 2d 04 d8 94 0e 96 00 11 00 01 0d 6d 61
    70 5f 6f 66 5f 69 73 72 61 65 6c 00 00
   5
Depth=1  Class = 88 Instance = bezeq:.bbbb Id = 1 Dt = 5


ILVth=0  Class = 8 Instance = bezeq:.map_of_israel Id = 1 Dt = 5
Depth=1  Class = 88 Instance = bezeq:.bbbb Id = 1 Dt = 5
                                                               

ILV dump of p_INQ
[  0 ] (
    [  3 ]     08 00 2b 2a d6 ec 8b 2d 04 d8 94 0e 96 00 11 00 01 0d 6d 61
    70 5f 6f 66 5f 69 73 72 61 65 6c 00 00
Entering DEREGISTER

IN_ENTITY:
        entity [0] wild = NOT_WILD class = 130      instance = ..+*Vl.-.X........bbbb..
        %X08002B2AD6EC8B2D04D8940E960008000104626262620000

IN_P:


IN_Q:

          
[  0 ] (
    [  3 ]     08 00 2b 2a d6 ec 8b 2d 04 d8 94 0e 96 00 11 00 01 0d 6d 61
    70 5f 6f 66 5f 69 73 72 61 65 6c 00 00
    )p_fullname_entity is

        entity [0] wild = NOT_WILD class = 130 id = 1 type= ..+*Vl.-.X........bbbb..
        %X08002B2AD6EC8B2D04D8940E960008000104626262620000



IN_P TO SHOW DOMAIN *:

[  1 ] (
    [  18 ] (
        [  1 ] (
        00 00 01 00 01 00 18 00 0e 02 30 00 00
00 18 00 00 01
            01 00 00 00 05 000 00 00 00 00 08 00 2b 2a d6 ec 8b 2d 04 d8 94 0e
            96 00 08 00 01 04 62 62 62 62 00  = INSTANCE_FULL class = 8

OUT_P FROM SHOW DOMAIN *:
                                                      
[  2 ] (
    [  1 ]     01
    [  2 ]     03 26 d8 5a
    )
OUT_E FROM SHOW DOMAIN *:
        entity [0] wild = INSTANCE_FULL class = 8
om DNS:

Global entity

        entity [0] wild = NOT_WILD class = 130 id = 1 TATE


                       
Global entity exists

registration state is 99

I am in exchange DEREGISTER routine

OUT_P FROM AM DEREGISTER:


OUT_P:


[  2 ] (
    [  1 ]     01
    [  2 ]     03 26 d1 12
    )
Returning from Deregister

    )
After mcc_call_function, ILV dump of P_OUT
[  2 ] (
    [  1 ]     01
    [  2 ]     03 26 d1 12
    )
ILV dump of P_IN_ENTITY
Depth=0  Class = 130 Instance = bezeq:.bbbb Id = 1bbbb Id = 1 Dt = 5


ILV dump of p_INQ
[  0 ] (
    [  3 ]     08 00 2b 2a d6 ec 8b 2d 04 d8 94 0e61
    70 5f 6f 66 5f 69 73 72 61 65 6c 00 00
I am in exchange DELETE routine
 r mcc_call_function, ILV dump of P_OUT
[  1 ] (
    )
ILV dump of P_IN_ENTITY
Depth=0  Class = 130 Instance = bezeq:.bbbb Id = 1 Dt = 5


ILV dump of P_OUT_ENTITY
Depth=0  Class = 130 Instance = bezeq:.bbbb
                                                            

ILV dump of P_OUT_ENTITY
Depth=0  Class = 130 Instance = bezeq:.bbbb Id = 1 Dt = 5


And I got the message:
%MCC-E-NOPARAMLIST, no parameter list was supplied in this ILV buffer



Orna.




4787.3Turn on Command Line log bit...BARREL::LEMMONTue Apr 13 1993 10:3417
    Orna,
    
       Please do the following and post the results
    
    	1. setenv MCC_FCL_LOG_PM 8
        2. manage  (this runs command line interface)
        3. create your entity
    	4. add your entity to a domain
        5. delete your entity from the domain
        6. deregister your entity
        7. delete your entity
    
    The command line log bit will dump more information.  
    
    thanks
    /Jim
        
4787.4FCL outputTAVIS::ORNAWed Apr 14 1993 10:53205
Hi,
    
    Thanks for your quick reply.
    My customer has sent me just the delete and deregister
    part from the FCL. I hope it is enough. He'll be back in
    the office just next week. So, if it's not enough information
    for you, please let me know.
    
MCC> delete exchange aza


*****************************************************
*     FCL PM Arguments before call_function:        *
*****************************************************

VERB code:      13
PARTITpth=0  Class = 130 Instance = bezeq:.aza Id = 1 Dt = 5


ILV dump of IN_P: in_p is NULL
ILV dump of IN_Q: in_q is NULL
TIME SPEC is: 0, NOW
I am in exchange DELETE routine

**********************************************
FCL PM Arguments on return from call_function:

CVR returned:
%MCC-S-RESPONSE, success with response reply

ILV dump of OUT_P:

[  1 ] (

AES dump of ENTITY OUT:
    )
Depth=0  Class = 130 Instance = bezeq:.aza Id = 1 Dt = 5


Exchange bezeq:.aza
AT 1993-04-14-15:29:44.703

Entity deleted successfully
MCC>

-----------------------------------------
MCC> deregister exchange aza


*****************************************************
*     FCL PM Arguments before call_function:        *
*****************************************************

VERB code:      30
PARTITION code: 10
AES dump of ENTITY IN:

Depth=0  Class = 130 Instance = bezeq:.aza Id = 1 Dt = 5


ILV dump of IN_P: in_p is NULL
ILV dump of IN_Q: in_q is NULL
TIME SPEC is: 0, NOW
Entering DEREGISTER
                  
IN_ENTITY:
        entity [0] wild = NOT_WILD class = 130 id = 1 type = 5
        instance = ..+*Vl.-.X........aza..
        %X08002B2AD6EC8B2D04D8940E960007000103617A610000

IN_P:
      

IN_Q:

p_fullname_entity is

        entity [0] wild = NOT_WILD class = 130 id = 1 type = 5
        instance = ..+*Vl.-.X........aza..
        %X08002B2AD6EC8B2D04D8940E960007000103617A610000



IN_P TO SHOW DOMAIN *:
[  1 ] (
    [  18 ] (
        [  1 ] (
            [  65535 ]             82 00 00 00 01 00 01 00 18 00 0e 02 30 00 00 0
0 17 00 00 01
            01 00 00 00 05 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
            00 00 00 00 00 00 00 00 08 00 2b 2a d6 ec 8b 2d 04 d8 94 0e
            96 00 07 00 01 03 61 7a 61 00 00 00
            )
        )
    )
IN_E TO SHOW DOMAIN *:
        entity [0] wild = INSTANCE_FULL class = 8

OUT_P FROM SHOW DOMAIN *:


[  2 ] (
    [  1 ]     01
    [  2 ]     03 26 d8 5a
    )
OUT_E FROM SHOW DOMAIN *:
        entity [0] wild = INSTANCE_FULL class = 8
                                                           

Get registration state from DNS:

Global entity

        entity [0] wild = NOT_WILD class = 130 id = 1 type = 5
        instance = ..+*Vl.-.X........aza..
        %X08002B2AD6EC8B2D04D8940E960007000103617A610000

                                                                 
DNS attribute name is MCC_REGISTRATION_STATE



Global entity exists

registration state is 99
                                        
I am in exchange DEREGISTER routine

OUT_P FROM AM DEREGISTER:
                                                  


[  1 ] (
    )
OUT_P:


[  1 ] (
    )
Returning from Deregister
                                      

**********************************************
FCL PM Arguments on return from call_function:

CVR returned:
%MCC-S-RESPONSE, success with response reply

ILV dump of OUT_P:

[  1 ] (
                                        
AES dump of ENTITY OUT:
    )
Depth=0  Class = 130 Instance = bezeq:.aza Id = 1 Dt = 5



Exchange bezeq:.aza
AT 1993-04-14-15:31:08.652

Deregistration Successful
MCC>
-----------------------------

MCC> delete exchange aza


*****************************************************
*     FCL PM Arguments befoPARTITION code: 10
AES dump of ENTITY IN:

Depth=0  Class = 130 Instance = bezeq:.aza Id = 1 Dt = 5


ILV dump of IN_P: in_p is NULL
ILV dump of IN_Q: in_q is NULL
TIME SPEC is: 0 , NOW
I am in exchange DELETE routine

**********************************************
FCL PM Arguments on return from call_function:     

CVR returned:
%MCC-S-RESPONSE, success with response reply

ILV dump of OUT_P:

[  1 ] (

AES dump of ENTITY OUT:
    )
Depth=0  Class = 130 Instance = bezeq:.aza Id = 1 Dt = 5



Exchange bezeq:.aza
AT 1993-04-14-15:35:27.363

Entity deleted successfully
    
    
    
    Orna.
    
4787.5What about an answer?TAVIS::ORNATue Apr 20 1993 07:025
    Can someone pls give me an answer?
    
    Thanks,
    Orna.
    
4787.6order of commands importantTOOK::LEMMONWed Apr 21 1993 15:5622
Orna,

   The order in which the iconic map issues the commands is
important.  I looked at .4 and see that the delete domain member
was never issued and the delete was done before the deregister.

Please follow the order in reply 2.  Also, step 3 should say
create AND REGISTER your entity...

   In going through my notes I noticed I have seen this behavior
on VMS before when a management module corrupted memory which the 
iconic map uses.  If your customer is running VMS have them 
turn on FAKE_VM testing.  To do this define MCC_LOG to be 4020, 
set control_y, and try the commands in .2 from command line.  
See if FAKE_VM spots a corruption.  

   Also get ready to see memory usage displayed upon exiting 
the command line.  This is why you will need to set control_y.

/Jim


4787.7The right outputTAVIS::ORNATue May 04 1993 07:45236
Hi,
    
    Well, this is an ULTRIX 4.2a system on a DS5000/125.
    Here is the output you've asked: Please see what you can do.
    
    See in the next reply, the subroutine which we suspect causes
    the problem.
    
    Thanks, Orna.
    
-----------------------------------------------

manage
DECmcc (V1.3.0)

MCC> register exchange test24


*****************************************************
*     FCL PM Arguments before call_function:        *
*****************************************************

VERB code:      29
PARTITION code: 10
AES dump of ENTITY IN:

Depth=0  Class = 130 Instance = bezeq:.test24 Id = 1 Dt = 5


ILV dump of IN_P: in_p is NULL
ILV dump of IN_Q: in_q is NULL
TIME SPEC is: 0, NOW
I am in REGISTER routine
I am in show routine

**********************************************
FCL PM Arguments on return from call_function:

CVR returned:
%MCC-S-RESPONSE, success with response reply

ILV dump of OUT_P:

[  1 ] (
    )
AES dump of ENTITY OUT:

Depth=0  Class = 130 Instance = bezeq:.test24 Id = 1 Dt = 5



Exchange bezeq:.test24
AT 1993-05-02-09:53:37.613

Registration successful.
MCC> populate domain test1 SELECT LIST=(exchange test24)


*****************************************************
*     FCL PM Arguments before call_function:        *
*****************************************************

VERB code:      27
PARTITION code: 10
AES dump of ENTITY IN:
                              
Depth=0  Class = 8 Instance = bezeq:.test1 Id = 1 Dt = 5


ILV dump of IN_P:

[  0 ] (
    [  18 ] (
        [  1 ] (
            [  65535 ]             82 00 00 00 01 00 01 00 1c 00 0e 02
30 00 00
00 1a 00 00 01
            01 00 00 00 05 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00
            00 00 00 00 00 00 00 00 08 00 2b 2a d6 ec 8b 2d 04 d8 94 0e
            96 00 0a 00 01 06 74 65 73 74 32 34 00 00 00 00
            )
        )
    )
ILV dump of IN_Q: in_q is NULL
TIME SPEC is: 0, NOW
                                        
**********************************************
FCL PM Arguments on return from call_function:

CVR returned:
%MCC-S-RESPONSE, success with response reply

ILV dump of OUT_P:

[  1 ] (
    [  884 ]     01
    [  885 ]     08 00 2b 2a d6 ec 8b 2d 04 d8 94 0e 96 00 09 00 01 05
74 65
    73 74 31 00 00
    )
AES dump of ENTITY OUT:

Depth=0  Class = 8 Instance = bezeq:.test1 Id = 1 Dt = 5
                                                                      


Domain bezeq:.test1
AT 1993-05-02-09:54:48.715

1 members successfully populated to domain bezeq:.test1.
                                                          
MCC> delete domain test1 member test24


*****************************************************
*     FCL PM Arguments before call_function:        *
*****************************************************

VERB code:      13
PARTITION code: 10
AES dump of ENTITY IN:

Depth=0  Class = 8 Instance = bezeq:.test1 Id = 1 Dt = 5
Depth=1  Class = 88 Instance = bezeq:.test24 Id = 1 Dt = 5


ILV dump of IN_P: in_p is NULL
ILV dump of IN_Q: in_q is NULL
TIME SPEC is: 0, NOW

**********************************************
FCL PM Arguments on return from call_function:

CVR returned:
%MCC-S-RESPONSE, success with response reply

ILV dump of OUT_P:

[  1 ] (
    )
AES dump of ENTITY OUT:

Depth=0  Class = 8 Instance = bezeq:.test1 Id = 1 Dt = 5
Depth=1  Class = 88 Instance = bezeq:.test24 Id = 1 Dt = 5



Domain bezeq:.test1 Member bezeq:.test24
AT 1993-05-02-09:56:29.309

Delete Successful
MCC> deregister exchange test24


*****************************************************
*     FCL PM Arguments before call_function:        *
*****************************************************

VERB code:      30
PARTITION code: 10
AES dump of ENTITY IN:

Depth=0  Class = 130 Instance = bezeq:.test24 Id = 1 Dt = 5


ILV dump of IN_P: in_p is NULL
ILV dump of IN_Q: in_q is NULL
TIME SPEC is: 0, NOW
I am in exchange DEREGISTER routine

**********************************************
FCL PM Arguments on return from call_function:

CVR returned:
%MCC-S-COMMON_EXCEPTION, success with common exception reply

ILV dump of OUT_P:

[  2 ] (
    [  1 ]     01
    [  2 ]     03 26 d1 12
    )
AES dump of ENTITY OUT:

Depth=0  Class = 130 Instance = bezeq:.test24 Id = 1 Dt = 5



Exchange bezeq:.test24
AT 1993-05-02-09:57:24.207

The requested operation cannot be completed
                      MCC Routine Error = %MCC-E-NOPARAMLIST, no parameter list
                                          was supplied in this ILV buffer

MCC> delete exchange test24


*****************************************************
*     FCL PM Arguments before call_function:        *
*****************************************************

VERB code:      13
PARTITION code: 10
AES dump of ENTITY IN:

Depth=0  Class = 130 Instance = bezeq:.test24 Id = 1 Dt = 5

                                  
ILV dump of IN_P: in_p is NULL
ILV dump of IN_Q: in_q is NULL
TIME SPEC is: 0, NOW
I am in exchange DELETE routine

**********************************************
FCL PM Arguments on return from call_function:

CVR returned:
%MCC-S-RESPONSE, success with response reply

ILV dump of OUT_P:

[  1 ] (
    )
AES dump of ENTITY OUT:

Depth=0  Class = 130 Instance = bezeq:.test24 Id = 1 Dt = 5



Exchange bezeq:.test24
AT 1993-05-02-09:58:41.129

Entity deleted successfully

    
4787.8The routine which maybe cause the problemsTAVIS::ORNATue May 04 1993 07:49132
  This is the source of the routine that cause the problems.

  When I call mcc_mir_get_identifiers to find out if the global entity has 
any children , I get the response MCC_S_NOPARENT and that's the reason
why I get the message: 
"MCC Routine Error = %MCC-E-NOPARAMLIST, no parameter list was supplied in this ILV buffer"

----------------------------------------------------------

MCC_T_CVR exlib_deregister_exchange ( p_callargs , 
                                  p_mir_context , 
                                  p_context)

dt_callargs                  *p_callargs ;
struct EXLIB_R_MIR_CONTEXT  **p_mir_context ;
dt__LocalContext            **p_context ;
{

   MCC_T_Unsigned32       partition_code ;
   MCC_A_AES              entity_2_work_on = MCC_K_NULL_PTR ;
   unsigned long          level = 1 ;
   struct MCC_R_DB_RCODE  rcode ;
   MCC_T_CVR              status = MCC_S_NORMAL ;
   static MCC_A_HANDLE    inst_handle = 0 ;
   MCC_T_IDCode           class = MCC_K_CLASS_LINKSET ;
   MCC_T_UNSLONG          wild_type = MCC_K_AES_INSTANCE_FULL ;
   MCC_T_Unsigned32       datatype = MCC_K_DT_LATIN1STRING ;
   MCC_T_UID              ent_uid ;
   MCC_T_Descriptor       ent_id ;

   /*        Initialization       */
   ent_id.mcc_w_maxstrlen = 100 ;
   ent_id.mcc_b_class = MCC_K_CLASS_LINKSET ;
   ent_id.mcc_l_dt = MCC_K_DT_LATIN1STRING ;
   ent_id.mcc_b_flags = 0 ;
   ent_id.mcc_b_ver = MCC_K_VER_DESCRIPTOR ;
   ent_id.mcc_a_link = MCC_K_NULL_PTR ;
   ent_id.mcc_l_id = MCC_K_LINKSET_NAME ;
   ent_id.mcc_b_dtype = DSC_K_DTYPE_T ;
   ent_id.mcc_w_curlen = 0;
   ent_id.mcc_a_pointer =
        (unsigned char *)mcc_malloc(ent_id.mcc_w_maxstrlen) ;
   if ( ent_id.mcc_a_pointer == NULL )
      status = MCC_S_INSVIRMEM ;

   if (GOOD(status))
      status = mcc_aes_copy( &p_callargs->p_in_entity ,
                             &entity_2_work_on );

   if (GOOD(status))
      status = mcc_ahs_create ( &inst_handle );

   if (GOOD(status))
      status = mcc_aes_create ( &entity_2_work_on ,
                                &class ,
                                &ent_id ,
                                &wild_type ) ; 

   if (GOOD(status))
      status = mcc_mir_get_identifiers ( &(*p_mir_context)->mir_instance_id,
                                         entity_2_work_on ,        
                                         inst_handle ,
                                         &datatype ,
                                         &ent_id ,
                                         0 ,
                                         ent_uid ,
                                         NULL ) ;

   if ( status == MCC_S_NOENTITY )
   {
      /*        Initialization       */
      ent_id.mcc_w_maxstrlen = 100 ;
      ent_id.mcc_b_class = 1 ;
      ent_id.mcc_l_dt = MCC_K_DT_LATIN1STRING ;
      ent_id.mcc_b_flags = 0 ;
      ent_id.mcc_b_ver = 1 ;
      ent_id.mcc_a_link = MCC_K_NULL_PTR ;
      ent_id.mcc_l_id = MCC_K_BOARD_NAME ;
      ent_id.mcc_b_dtype = DSC_K_DTYPE_T ;
      class = MCC_K_CLASS_BOARD ;
      status = mcc_aes_prune ( &entity_2_work_on , &level ) ;

      if (GOOD(status))
         status = mcc_aes_create ( &entity_2_work_on ,
                                   &class ,
                                   MCC_K_NULL_PTR ,
                                   &wild_type ) ;

      if (GOOD(status))
         status = mcc_mir_get_identifiers ( &(*p_mir_context)->mir_instance_id,
                                            entity_2_work_on ,
                                            inst_handle ,
                                            &datatype ,
                                            &ent_id ,
                                            0 ,
                                            ent_uid ,
                                            NULL ) ;

      if ( status == MCC_S_NOENTITY )
         status = MCC_S_NORMAL ;
      else 
         status = MCC_S_CHILD_EXIST ;
   }
   else 
      status = MCC_S_CHILD_EXIST ;

   if (GOOD(status))
   {
      partition_code = MCC_K_PRT_STATUS ;
      status = exlib_del_attr_data ( p_mir_context , 
                                     partition_code ) ;
   }

   if (GOOD(status))
   {
      partition_code = MCC_K_PRT_IDENTIFIER ;
      status = exlib_del_attr_data ( p_mir_context , 
                                     partition_code ) ;
   }

   if (GOOD(status))
      status = mcc_mir_del_instance( &(*p_mir_context)->mir_instance_id ,
                                     p_callargs->p_in_entity ,
                                     NULL ,
                                     (*p_mir_context)->mir_instance_uid ,
                                     &rcode );

   return(status) ;

} /* end of exlib_deregister_exchange */

4787.9more info pleaseGOSTE::CALLANDERTue May 11 1993 17:005
    the code itself doesn't jump up and bite me. But...I would like
    to see the definition of EXLIB_R_MIR_CONTEXT and how you go
    about allocating the space in this construct.