EXTRA_INFO.TYP3.EC  := EC;

EXTRA_INFO.TYP3.TEXT:= 'CONNECT_SERVICE TO OAM FAILED';

G9PXYA1S!G9TE500_EHP_P(

'G9IBSA1C003',                      /*@@ID*/

G9PXYA1S!G9TE102_ERR_CLASS_SWERR,   /*@@CLASS*/

ADDR(EXTRA_INFO.ERROR_HANDLER),     /* EXTRA-INFO ADDR */

G9PXYA1S!G9TE100_GB_LM,             /* USER-ID */

NULL                                /* OPTIONAL-SWET-INFO ADDR */

);

/***@@@ END OF ERROR ***/

@K@FREEZE

917596041

@K@NAME

T_ERR4_1

@K@INSCRIPT

ERROR_HANDLING:

DB_OVERFLOW

MP/NSEI

@K@CODE

/***@@@ ERROR ***/

/*@@ERRORTEXT

*@ DB-OVERFLOW

*@

*@

*@@DESCRIPTION

*@ THE INSTANCE-CREATION WAS NOT POSSIBLE

*@ BECAUSE THE DATABASE WOULD OVERFLOW

*@

*@@EXTRA INFO

*@ (EXTRA_INFO_4_STRUCT)

*@  NSEI

*@  NSVCI

*@  TEXT

*@

*/

EXTRA_INFO.TYP4.NSEI := EVD_PTR->.KEYS.INT_ARR(0);

EXTRA_INFO.TYP4.NSVCI:= EVD_PTR->.KEYS.INT_ARR(1);

EXTRA_INFO.TYP4.TEXT := 'NSVC-HAND.: MP/NSEI-OVERFLOW';

G9PXYA1S!G9TE500_EHP_P(

'G9IBSA1C004',                          /*@@ID*/

G9PXYA1S!G9TE102_ERR_CLASS_ESC_MAX_ANY, /*@@CLASS*/

ADDR(EXTRA_INFO.ERROR_HANDLER),         /* EXTRA-INFO ADDR */

G9PXYA1S!G9TE100_GB_LM,                 /* USER-ID */

NULL                                    /* OPTIONAL-SWET-INFO ADDR */

);

/***@@@ END OF ERROR ***/

@K@FREEZE

920903219

@K@NAME

T_ERR4_2

@K@INSCRIPT

ERROR_HANDLING:

DB_OVERFLOW

MP/NSVCI

@K@CODE

/***@@@ ERROR ***/

/*@@ERRORTEXT

*@ DB-OVERFLOW

*@

*@

*@@DESCRIPTION

*@ THE INSTANCE-CREATION WAS NOT POSSIBLE

*@ BECAUSE THE DATABASE WOULD OVERFLOW

*@

*@@EXTRA INFO

*@ (EXTRA_INFO_4_STRUCT)

*@  NSEI

*@  NSVCI

*@  TEXT

*@

*/

EXTRA_INFO.TYP4.NSEI := EVD_PTR->.KEYS.INT_ARR(0);

EXTRA_INFO.TYP4.NSVCI:= EVD_PTR->.KEYS.INT_ARR(1);

EXTRA_INFO.TYP4.TEXT := 'NSVC-HAND.: MP/NSVCI-OVERFLOW';

G9PXYA1S!G9TE500_EHP_P(

'G9IBSA1C004',                          /*@@ID*/

G9PXYA1S!G9TE102_ERR_CLASS_ESC_MAX_ANY, /*@@CLASS*/

ADDR(EXTRA_INFO.ERROR_HANDLER),         /* EXTRA-INFO ADDR */

G9PXYA1S!G9TE100_GB_LM,                 /* USER-ID */

NULL                                    /* OPTIONAL-SWET-INFO ADDR */

);

/***@@@ END OF ERROR ***/

@K@FREEZE

920903222

@K@NAME

T_ERR4_3

@K@INSCRIPT

ERROR_HANDLING:

DB_OVERFLOW

NSEI/NSVCI

@K@CODE

/***@@@ ERROR ***/

/*@@ERRORTEXT

*@ DB-OVERFLOW

*@

*@

*@@DESCRIPTION

*@ THE INSTANCE-CREATION WAS NOT POSSIBLE

*@ BECAUSE THE DATABASE WOULD OVERFLOW

*@

*@@EXTRA INFO

*@ (EXTRA_INFO_4_STRUCT)

*@  NSEI

*@  NSVCI

*@  TEXT

*@

*/

EXTRA_INFO.TYP4.NSEI := EVD_PTR->.KEYS.INT_ARR(0);

EXTRA_INFO.TYP4.NSVCI:= EVD_PTR->.KEYS.INT_ARR(1);

EXTRA_INFO.TYP4.TEXT := 'NSVC-HAND.: NSEI/NSVC-OVERFLOW';

G9PXYA1S!G9TE500_EHP_P(

'G9IBSA1C004',                          /*@@ID*/

G9PXYA1S!G9TE102_ERR_CLASS_ESC_MAX_ANY, /*@@CLASS*/

ADDR(EXTRA_INFO.ERROR_HANDLER),         /* EXTRA-INFO ADDR */

G9PXYA1S!G9TE100_GB_LM,                 /* USER-ID */

NULL                                    /* OPTIONAL-SWET-INFO ADDR */

);

/***@@@ END OF ERROR ***/

@K@FREEZE

920903226

@K@NAME

TR_RESET

@K@INSCRIPT

RESTART_

TNS_RESET_

TIMER

@K@CODE

/* TIMER EVENT DESCRIPTOR STILL THERE */

/* INITIALIZATION OF THE TIMER-EVENT-DESCRIPTOR STILL VALID */

NSVCI_CON_PTR->.TIM_EVD_PTR->.TIMER:= TNS_RESET_MAP;

/* START TIMER */

G9PX508_START_TIMER_P

(

NSVCI_CON_PTR->.TIM_EVD_PTR

);

@K@FREEZE

924684867

@K@NAME

TX_AUDIT

@K@INSCRIPT

FOR

AUDIT

@K@NAME

M_BLKOACKM

@K@INSCRIPT

NS_

BLOCK_ACK

@K@CODE

/* GETTING THE EVENT DESCRIPTOR */

G9PB511_GET_MSG_BOUND_EV_DESCR_P

(

SID_GBNSVC,

(SIZE(G9IBDF4_NS_LM_M) + G9IBD44_NS_PDU_DATA_OFFSET_C),

TX_EVD_PTR

);

/* COMPOSING THE EVENT */

/* FIRST THE DESCRIPTOR */

TX_EVD_PTR->.EVENT_CMD:=         G9IBD40_NS_LM_PDU_C;

TX_EVD_PTR->.EVENT_DESTINATION:= GBDL_HANDLE;

IF

/* 'OTHER' ALIVE NSVC TO THIS NSEI EXISTING? */

NSVCI_CON_PTR->.OWN_NSEI_CON_PTR->.NEXT_ALIV_NSVCI_CON_PTR /= NULL

THEN

/* USE THIS 'OTHER' FOR TRANSPORT */

TX_EVD_PTR->.KEYS.INT_ARR(0):=

NSVCI_CON_PTR->.OWN_NSEI_CON_PTR->.NEXT_ALIV_NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSEI; 

/* NSEI TO BE USED FOR TRANSPORT */

TX_EVD_PTR->.KEYS.INT_ARR(1):=

NSVCI_CON_PTR->.OWN_NSEI_CON_PTR->.NEXT_ALIV_NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI;

/* NSVCI TO BE USED FOR TRANSPORT */

ELSE

/* USE AFFECTED NSVC AGAIN FOR TRANSPORT */

TX_EVD_PTR->.KEYS.INT_ARR(0):=

 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSEI;  /* NSEI TO BE USED FOR

TRANSPORT */

TX_EVD_PTR->.KEYS.INT_ARR(1):=

 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI; /* NSVCI TO BE USED FOR

TRANSPORT */

FI;

/* POINTER TO PDU IN POOL-ELEMENT */

NS_PDU_PTR:= NS_PDU_REF_M (INT(TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT)

                           + G9IBD44_NS_PDU_DATA_OFFSET_C);

/* OFFSET OF THE PDU IN POOL-ELEMENT */

TX_EVD_PTR->.BOUND.DATA_OFFSET:= G9IBD44_NS_PDU_DATA_OFFSET_C;

/* LENGTH OF THE PDU IN POOL-ELEMENT */

TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(NS_PDU_PTR->.G9IBDF4_PDU_TYPE) +

SIZE(NS_PDU_PTR->.D3);

/* NOW THE POOL-ELEMENT */

NS_PDU_PTR->.G9IBDF4_PDU_TYPE:= G9IBDR2_NS_BLOCK_ACK_C; /* PDU-TYPE */

NS_PDU_PTR->.D3.NSVCI_TLV.NSVCI_VAL :=

 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI; /* NSVC TO BE BLOCKED */

/* SENDING */

G9PX503_POST_EVENT_P(TX_EVD_PTR);

@K@FREEZE

938805885

@K@NAME

T_RCTRUE

@K@INSCRIPT

RC

=

TRUE

@K@CODE

RC:= TRUE;

@K@FREEZE

922176328

@K@NAME

M_AC_SBVCN

@K@INSCRIPT

G9IBME0_

ACT_

SIGN_BVC_C

@K@CODE

/* GETTING THE EVENT DESCRIPTOR */

G9PB512_GET_MSG_LESS_EV_DESCR_P

(

SID_GBNSVC,

TX_EVD_PTR

);

/* COMPOSING THE EVENT */

TX_EVD_PTR->.EVENT_CMD:=         G9IBME0_ACT_SIGN_BVC_C;

TX_EVD_PTR->.EVENT_DESTINATION:= GBBVC_HANDLE;

TX_EVD_PTR->.KEYS.INT_ARR(0):=   EVD_PTR->.KEYS.INT_ARR(0);

TX_EVD_PTR->.KEYS.INT_ARR(1):=   SIGN_BVCI;

/* SENDING */

G9PX503_POST_EVENT_P(TX_EVD_PTR);

@K@FREEZE

938788211

@K@NAME

T_RC_EOD

@K@INSCRIPT

RC

=

END OF DATA

@K@CODE

RC:= G9IBSM4_RC_END_OF_DATA;

@K@FREEZE

921083785

@K@NAME

T_RC_EMP

@K@INSCRIPT

RC

=

EMPTY

@K@CODE

RC:= G9IBSM4_RC_EMPTY;

@K@FREEZE

921083757

@K@NAME

T_RC_ERR

@K@INSCRIPT

RC

=

ERROR

@K@CODE

RC:= G9IBSM4_RC_ERROR;

@K@FREEZE

921083731

@K@NAME

S_UNUSED

@K@INSCRIPT

G9IBSM0_

UNUSED

@K@CODE

@K@FREEZE

919416670

@K@NAME

TA_UNBLOCK

@K@INSCRIPT

START_

TNS_UNBLOCK_

TIMER

@K@CODE

/* GET TIMER-EVENT DESCRIPTOR */

G9PB513_GET_TIMER_EV_DESCR_P

(

SID_GBNSVC,

NSVCI_CON_PTR->.TIM_EVD_PTR

);

/* INITIALIZATION OF THE TIMER-EVENT-DESCRIPTOR */

NSVCI_CON_PTR->.TIM_EVD_PTR->.EVENT_CMD:= G9IBSE4_TO_TNS_C;

NSVCI_CON_PTR->.TIM_EVD_PTR->.EVENT_DESTINATION:= GBNSVC_HANDLE;

NSVCI_CON_PTR->.TIM_EVD_PTR->.KEYS.INT_ARR(0):=

NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSEI;

NSVCI_CON_PTR->.TIM_EVD_PTR->.KEYS.INT_ARR(1):=

NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI;

NSVCI_CON_PTR->.TIM_EVD_PTR->.TIMER:= TNS_UNBLOCK_MAP;

/* START TIMER */

G9PX508_START_TIMER_P

(

NSVCI_CON_PTR->.TIM_EVD_PTR

);

@K@FREEZE

924686210

@K@NAME

M_BLK_ACKM

@K@INSCRIPT

NS_

BLOCK_ACK

@K@CODE

/* GETTING THE EVENT DESCRIPTOR */

G9PB511_GET_MSG_BOUND_EV_DESCR_P

(

SID_GBNSVC,

(SIZE(G9IBDF4_NS_LM_M) + G9IBD44_NS_PDU_DATA_OFFSET_C),

TX_EVD_PTR

);

/* COMPOSING THE EVENT */

/* FIRST THE DESCRIPTOR */

TX_EVD_PTR->.EVENT_CMD:=         G9IBD40_NS_LM_PDU_C;

TX_EVD_PTR->.EVENT_DESTINATION:= GBDL_HANDLE;

TX_EVD_PTR->.KEYS.INT_ARR(0):=  

NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSEI;  /* NSEI TO BE USED FOR

TRANSPORT */

TX_EVD_PTR->.KEYS.INT_ARR(1):=  

NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI; /* NSVCI TO BE USED FOR

TRANSPORT */

/* POINTER TO PDU IN POOL-ELEMENT */

NS_PDU_PTR:= NS_PDU_REF_M (INT(TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT)

                           + G9IBD44_NS_PDU_DATA_OFFSET_C);

/* OFFSET OF THE PDU IN POOL-ELEMENT */

TX_EVD_PTR->.BOUND.DATA_OFFSET:= G9IBD44_NS_PDU_DATA_OFFSET_C;

/* LENGTH OF THE PDU IN POOL-ELEMENT */

TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(NS_PDU_PTR->.G9IBDF4_PDU_TYPE) +

SIZE(NS_PDU_PTR->.D3);

/* NOW THE POOL-ELEMENT */

NS_PDU_PTR->.G9IBDF4_PDU_TYPE:= G9IBDR2_NS_BLOCK_ACK_C; /* PDU-TYPE */

NS_PDU_PTR->.D3.NSVCI_TLV.NSVCI_VAL :=

 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI; /* NSVC TO BE BLOCKED */

/* SENDING */

G9PX503_POST_EVENT_P(TX_EVD_PTR);

@K@FREEZE

926348442

@K@NAME

TA_NXTALIV

@K@INSCRIPT

DEFINE

NEW 'NEXT_

ALIVE'

@K@CODE

IF

/* ALIVE NSVC TO THE NSEI EXISTING? */

NSVCI_CON_PTR->.OWN_NSEI_CON_PTR->.NEXT_ALIV_NSVCI_CON_PTR /= NULL

THEN

/* TAKE NEXT ELEMENT IN THE LINKED LIST AS THE NEXT ALIVE NSVC */

NSVCI_CON_PTR->.OWN_NSEI_CON_PTR->.NEXT_ALIV_NSVCI_CON_PTR:=

NSVCI_CON_PTR->.OWN_NSEI_CON_PTR->.NEXT_ALIV_NSVCI_CON_PTR->.NEXT_ALV_NSVCI_CON_PTR;

FI;

@K@FREEZE

938801086

@K@NAME

M_DE_CBVCN

@K@INSCRIPT

G9IBME2_

DEACT_

CELL_BVC_C

@K@CODE

/* GETTING THE EVENT DESCRIPTOR */

G9PB512_GET_MSG_LESS_EV_DESCR_P

(

SID_GBNSVC,

TX_EVD_PTR

);

/* COMPOSING THE EVENT */

TX_EVD_PTR->.EVENT_CMD:=         G9IBME2_DEACT_CELL_BVC_C;

TX_EVD_PTR->.EVENT_DESTINATION:= GBBVC_HANDLE;

TX_EVD_PTR->.KEYS.INT_ARR(0):=  

NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSEI;

TX_EVD_PTR->.KEYS.INT_ARR(1):=   EVD_PTR->.ADD_DATA(3);

/* SENDING */

G9PX503_POST_EVENT_P(TX_EVD_PTR);

@K@FREEZE

933318270

@K@NAME

TA_NXTRESP

@K@INSCRIPT

DEFINE

NEW 'NEXT_

RESPONSIBLE'

@K@CODE

NSEI_CON_PTR->.NEXT_RESP_NSVCI_CON_PTR:=

 NSEI_CON_PTR->.NEXT_RESP_NSVCI_CON_PTR->.NEXT_LSP_NSVCI_CON_PTR;

@K@FREEZE

938005006

@K@NAME

TA_NXTSUBS

@K@INSCRIPT

DEFINE

NEW 'NEXT_

SUBSTITUTE'

@K@CODE

NSEI_CON_PTR->.NEXT_SUBS_NSVCI_CON_PTR:=

 NSEI_CON_PTR->.NEXT_SUBS_NSVCI_CON_PTR->.NEXT_UBL_NSVCI_CON_PTR;

@K@NAME

M_BLK_O__M

@K@INSCRIPT

NS_

BLOCK

@K@CODE

/* GETTING THE EVENT DESCRIPTOR */

G9PB511_GET_MSG_BOUND_EV_DESCR_P

(

SID_GBNSVC,

(SIZE(G9IBDF4_NS_LM_M) + G9IBD44_NS_PDU_DATA_OFFSET_C),

TX_EVD_PTR

);

/* COMPOSING THE EVENT */

/* FIRST THE DESCRIPTOR */

TX_EVD_PTR->.EVENT_CMD:=         G9IBD40_NS_LM_PDU_C;

TX_EVD_PTR->.EVENT_DESTINATION:= GBDL_HANDLE;

IF

/* 'OTHER' ALIVE NSVC TO THIS NSEI EXISTING? */

NSVCI_CON_PTR->.OWN_NSEI_CON_PTR->.NEXT_ALIV_NSVCI_CON_PTR /= NULL

THEN

/* USE THIS 'OTHER' FOR TRANSPORT */

TX_EVD_PTR->.KEYS.INT_ARR(0):=

NSVCI_CON_PTR->.OWN_NSEI_CON_PTR->.NEXT_ALIV_NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSEI; 

/* NSEI TO BE USED FOR TRANSPORT */

TX_EVD_PTR->.KEYS.INT_ARR(1):=

NSVCI_CON_PTR->.OWN_NSEI_CON_PTR->.NEXT_ALIV_NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI;

/* NSVCI TO BE USED FOR TRANSPORT */

ELSE

/* USE AFFECTED NSVC AGAIN FOR TRANSPORT */

TX_EVD_PTR->.KEYS.INT_ARR(0):=

 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSEI;  /* NSEI TO BE USED FOR

TRANSPORT */

TX_EVD_PTR->.KEYS.INT_ARR(1):=

 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI; /* NSVCI TO BE USED FOR

TRANSPORT */

FI;

/* POINTER TO PDU IN POOL-ELEMENT */

NS_PDU_PTR:= NS_PDU_REF_M (INT(TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT)

                           + G9IBD44_NS_PDU_DATA_OFFSET_C);

/* OFFSET OF THE PDU IN POOL-ELEMENT */

TX_EVD_PTR->.BOUND.DATA_OFFSET:= G9IBD44_NS_PDU_DATA_OFFSET_C;

/* LENGTH OF THE PDU IN POOL-ELEMENT */

TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(NS_PDU_PTR->.G9IBDF4_PDU_TYPE) +

SIZE(NS_PDU_PTR->.D2);

/* NOW THE POOL-ELEMENT */

NS_PDU_PTR->.G9IBDF4_PDU_TYPE:= G9IBDR1_NS_BLOCK_C; /* PDU-TYPE */

NS_PDU_PTR->.D2.CAUSE_TLV.CAUSE_VAL:=

 G9IBBA2_NS_TRANSIT_NETWORK_FAILURE;       /* CAUSE FOR BLOCK */

NS_PDU_PTR->.D2.NSVCI_TLV.NSVCI_VAL :=

 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI; /* NSVC TO BE BLOCKED */

/* SENDING */

G9PX503_POST_EVENT_P(TX_EVD_PTR);

@K@TEXT

GSM 8.16 CHAP. 7.2:

THE NS-BLOCK-PDU MAY BE SENT IN ANY ALIVE

(BLOCKED OR UNBLOCKED) NS-VC...

@K@FREEZE

938803215

@K@NAME

M_DE_SBVCN

@K@INSCRIPT

G9IBME1_

DEACT_

SIGN_BVC_C

@K@CODE

/* GETTING THE EVENT DESCRIPTOR */

G9PB512_GET_MSG_LESS_EV_DESCR_P

(

SID_GBNSVC,

TX_EVD_PTR

);

/* COMPOSING THE EVENT */

TX_EVD_PTR->.EVENT_CMD:=         G9IBME1_DEACT_SIGN_BVC_C;

TX_EVD_PTR->.EVENT_DESTINATION:= GBBVC_HANDLE;

TX_EVD_PTR->.KEYS.INT_ARR(0):=   EVD_PTR->.KEYS.INT_ARR(0);

TX_EVD_PTR->.KEYS.INT_ARR(1):=   SIGN_BVCI;

/* SENDING */

G9PX503_POST_EVENT_P(TX_EVD_PTR);

@K@FREEZE

938788201

@K@NAME

M_OAME401M

@K@INSCRIPT

ERROR_MESSAGE:

ERRONOUS_PDU

RESET_PDU

@K@CODE

/* GETTING THE EVENT DESCRIPTOR */

G9PB511_GET_MSG_BOUND_EV_DESCR_P

(

SID_GBNSVC,

(SIZE(G9OC109_REPORTED_EVENT_STR_M)),

TX_EVD_PTR

);

/* COMPOSING THE EVENT */

/* FIRST THE DESCRIPTOR */

TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;

TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;

TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;

TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;

TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);

/* NOW THE POOL-ELEMENT */

/* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */

OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);

/* COMPOSING THE MESSAGE */

/* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSE */

OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSE;

OAM_MSG_PTR->.HANDLED_OBJECT.NSE_ID:=      EVD_PTR->.KEYS.INT_ARR(0); /*

USED NSEI (FROM ECI) */

/* ERROR-CAUSE = ERRONEOUS_PDU */

OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_ERRONEOUS_PDU;

/* ADDITIONAL_PDU_INFO */

OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_PDU_TYPE:=

 G9OC124_RESET_PDU;

OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_REPORTED_NSEI:=

 EVD_PTR->.ADD_DATA(0); /* AFFECTED NSEI (FROM PDU) */

OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_REPORTED_NSVC:=

 EVD_PTR->.ADD_DATA(1); /* AFFECTED NSVCI (FROM PDU) */

/* SENDING */

G9PX503_POST_EVENT_P(TX_EVD_PTR);

@K@FREEZE

935766108

@K@NAME

M_OAME402M

@K@INSCRIPT

ERROR_MESSAGE:

ERRONOUS_PDU

RESET_PDU

@K@CODE

/* GETTING THE EVENT DESCRIPTOR */

G9PB511_GET_MSG_BOUND_EV_DESCR_P

(

SID_GBNSVC,

(SIZE(G9OC109_REPORTED_EVENT_STR_M)),

TX_EVD_PTR

);

/* COMPOSING THE EVENT */

/* FIRST THE DESCRIPTOR */

TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;

TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;

TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;

TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;

TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);

/* NOW THE POOL-ELEMENT */

/* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */

OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);

/* COMPOSING THE MESSAGE */

/* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSVC */

OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSVC;

OAM_MSG_PTR->.HANDLED_OBJECT.NSVC_ID:=     EVD_PTR->.KEYS.INT_ARR(1); /*

USED NSVCI (FROM ECI) */

/* ERROR-CAUSE = ERRONEOUS_PDU */

OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_ERRONEOUS_PDU;

/* ADDITIONAL_PDU_INFO */

OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_PDU_TYPE:=

 G9OC124_RESET_PDU;

OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_REPORTED_NSEI:=

 EVD_PTR->.ADD_DATA(0); /* NSEI FROM PDU */

OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_REPORTED_NSVC:=

 EVD_PTR->.ADD_DATA(1); /* NSVCI FROM PDU */

/* SENDING */

G9PX503_POST_EVENT_P(TX_EVD_PTR);

@K@FREEZE

935766407

@K@NAME

M_OAME411M

@K@INSCRIPT

ERROR_MESSAGE:

ERRONOUS_PDU

RESET_ACK_PDU

@K@CODE

/* GETTING THE EVENT DESCRIPTOR */

G9PB511_GET_MSG_BOUND_EV_DESCR_P

(

SID_GBNSVC,

(SIZE(G9OC109_REPORTED_EVENT_STR_M)),

TX_EVD_PTR

);

/* COMPOSING THE EVENT */

/* FIRST THE DESCRIPTOR */

TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;

TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;

TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;

TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;

TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);

/* NOW THE POOL-ELEMENT */

/* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */

OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);

/* COMPOSING THE MESSAGE */

/* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSE */

OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSE;

OAM_MSG_PTR->.HANDLED_OBJECT.NSE_ID:=      EVD_PTR->.KEYS.INT_ARR(0); /*

USED NSEI (FROM ECI) */

/* ERROR-CAUSE = ERRONEOUS_PDU */

OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_ERRONEOUS_PDU;

/* ADDITIONAL_PDU_INFO */

OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_PDU_TYPE:=

 G9OC124_RESET_ACK_PDU;

OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_REPORTED_NSEI:=

 EVD_PTR->.ADD_DATA(0); /* NSEI FROM PDU */

OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_REPORTED_NSVC:=

 EVD_PTR->.ADD_DATA(1); /* NSVCI FROM PDU */

/* SENDING */

G9PX503_POST_EVENT_P(TX_EVD_PTR);

@K@FREEZE

935767332

@K@NAME

M_OAME412M

@K@INSCRIPT

ERROR_MESSAGE:

ERRONOUS_PDU

RESET_ACK_PDU

@K@CODE

/* GETTING THE EVENT DESCRIPTOR */

G9PB511_GET_MSG_BOUND_EV_DESCR_P

(

SID_GBNSVC,

(SIZE(G9OC109_REPORTED_EVENT_STR_M)),

TX_EVD_PTR

);

/* COMPOSING THE EVENT */

/* FIRST THE DESCRIPTOR */

TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;

TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;

TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;

TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;

TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);

/* NOW THE POOL-ELEMENT */

/* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */

OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);

/* COMPOSING THE MESSAGE */

/* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSVC */

OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSVC;

OAM_MSG_PTR->.HANDLED_OBJECT.NSVC_ID:=     EVD_PTR->.KEYS.INT_ARR(1); /*

USED NSVCI (FROM ECI) */

/* ERROR-CAUSE = ERRONEOUS_PDU */

OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_ERRONEOUS_PDU;

/* ADDITIONAL_PDU_INFO */

OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_PDU_TYPE:=

 G9OC124_RESET_ACK_PDU;

OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_REPORTED_NSEI:=

 EVD_PTR->.ADD_DATA(0); /* NSEI FROM PDU */

OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_REPORTED_NSVC:=

 EVD_PTR->.ADD_DATA(1); /* NSVCI FROM PDU */

/* SENDING */

G9PX503_POST_EVENT_P(TX_EVD_PTR);

@K@FREEZE

935767189

@K@NAME

C_CON

@K@INSCRIPT

RC_DB

@K@CODE

RC_DB

@K@FREEZE

922176673

@K@NAME

M_BLK____M

@K@INSCRIPT

NS_

BLOCK

@K@CODE

/* GETTING THE EVENT DESCRIPTOR */

G9PB511_GET_MSG_BOUND_EV_DESCR_P

(

SID_GBNSVC,

(SIZE(G9IBDF4_NS_LM_M) + G9IBD44_NS_PDU_DATA_OFFSET_C),

TX_EVD_PTR

);

/* COMPOSING THE EVENT */

/* FIRST THE DESCRIPTOR */

TX_EVD_PTR->.EVENT_CMD:=         G9IBD40_NS_LM_PDU_C;

TX_EVD_PTR->.EVENT_DESTINATION:= GBDL_HANDLE;

TX_EVD_PTR->.KEYS.INT_ARR(0):=  

NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSEI;  /* NSEI TO BE USED FOR

TRANSPORT */

TX_EVD_PTR->.KEYS.INT_ARR(1):=  

NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI; /* NSVCI TO BE USED FOR

TRANSPORT */

/* POINTER TO PDU IN POOL-ELEMENT */

NS_PDU_PTR:= NS_PDU_REF_M (INT(TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT)

                           + G9IBD44_NS_PDU_DATA_OFFSET_C);

/* OFFSET OF THE PDU IN POOL-ELEMENT */

TX_EVD_PTR->.BOUND.DATA_OFFSET:= G9IBD44_NS_PDU_DATA_OFFSET_C;

/* LENGTH OF THE PDU IN POOL-ELEMENT */

TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(NS_PDU_PTR->.G9IBDF4_PDU_TYPE) +

SIZE(NS_PDU_PTR->.D2);

/* NOW THE POOL-ELEMENT */

NS_PDU_PTR->.G9IBDF4_PDU_TYPE:= G9IBDR1_NS_BLOCK_C; /* PDU-TYPE */

NS_PDU_PTR->.D2.CAUSE_TLV.CAUSE_VAL:=

 G9IBBA2_NS_OAM_INTERVENTION;              /* CAUSE FOR BLOCK */

NS_PDU_PTR->.D2.NSVCI_TLV.NSVCI_VAL :=

 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI; /* NSVC TO BE BLOCKED */

/* SENDING */

G9PX503_POST_EVENT_P(TX_EVD_PTR);

@K@TEXT

GSM 8.16 CHAP. 7.2:

THE NS-BLOCK-PDU MAY BE SENT IN ANY ALIVE

(BLOCKED OR UNBLOCKED) NS-VC...

@K@FREEZE

926348613

@K@NAME

S_BLOCKED

@K@INSCRIPT

G9IBSM0_

BLOCKED

@K@CODE

@K@FREEZE

922176496

@K@NAME

D_CON

@K@INSCRIPT

CONTEXT

GOT

@K@CODE

RC_DB = G9IBSR0_RC_OK

@K@FREEZE

921772339

@K@NAME

M_OAME901M

@K@INSCRIPT

ERROR_MESSAGE:

OPERATIONAL_STATE_CHANGE

UBL->BLK

@K@CODE

/* GETTING THE EVENT DESCRIPTOR */

G9PB511_GET_MSG_BOUND_EV_DESCR_P

(

SID_GBNSVC,

(SIZE(G9OC109_REPORTED_EVENT_STR_M)),

TX_EVD_PTR

);

/* COMPOSING THE EVENT */

/* FIRST THE DESCRIPTOR */

TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;

TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;

TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;

TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;

TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);

/* NOW THE POOL-ELEMENT */

/* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */

OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);

/* COMPOSING THE MESSAGE */

/* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSVC */

OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSVC;

OAM_MSG_PTR->.HANDLED_OBJECT.NSVC_ID:=    

NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI;

/* ERROR_CAUSE = OPERATIONAL_STATE_CHANGE */