contrib/awk/test/getlnbuf.in

   1 EXTRA_INFO.TYP3.EC  := EC;
   2 EXTRA_INFO.TYP3.TEXT:= 'CONNECT_SERVICE TO OAM FAILED';
   3
   4 G9PXYA1S!G9TE500_EHP_P(
   5 'G9IBSA1C003',                      /*@@ID*/
   6 G9PXYA1S!G9TE102_ERR_CLASS_SWERR,   /*@@CLASS*/
   7 ADDR(EXTRA_INFO.ERROR_HANDLER),     /* EXTRA-INFO ADDR */
   8 G9PXYA1S!G9TE100_GB_LM,             /* USER-ID */
   9 NULL                                /* OPTIONAL-SWET-INFO ADDR */
  10 );
  11 /***@@@ END OF ERROR ***/
  12
  13 @K@FREEZE
  14 917596041
  15 @K@NAME
  16 T_ERR4_1
  17 @K@INSCRIPT
  18 ERROR_HANDLING:
  19 DB_OVERFLOW
  20 MP/NSEI
  21 @K@CODE
  22 /***@@@ ERROR ***/
  23 /*@@ERRORTEXT
  24 *@ DB-OVERFLOW
  25 *@
  26 *@
  27 *@@DESCRIPTION
  28 *@ THE INSTANCE-CREATION WAS NOT POSSIBLE
  29 *@ BECAUSE THE DATABASE WOULD OVERFLOW
  30 *@
  31 *@@EXTRA INFO
  32 *@ (EXTRA_INFO_4_STRUCT)
  33 *@  NSEI
  34 *@  NSVCI
  35 *@  TEXT
  36 *@
  37 */
  38
  39 EXTRA_INFO.TYP4.NSEI := EVD_PTR->.KEYS.INT_ARR(0);
  40 EXTRA_INFO.TYP4.NSVCI:= EVD_PTR->.KEYS.INT_ARR(1);
  41 EXTRA_INFO.TYP4.TEXT := 'NSVC-HAND.: MP/NSEI-OVERFLOW';
  42
  43 G9PXYA1S!G9TE500_EHP_P(
  44 'G9IBSA1C004',                          /*@@ID*/
  45 G9PXYA1S!G9TE102_ERR_CLASS_ESC_MAX_ANY, /*@@CLASS*/
  46 ADDR(EXTRA_INFO.ERROR_HANDLER),         /* EXTRA-INFO ADDR */
  47 G9PXYA1S!G9TE100_GB_LM,                 /* USER-ID */
  48 NULL                                    /* OPTIONAL-SWET-INFO ADDR */
  49 );
  50 /***@@@ END OF ERROR ***/
  51
  52 @K@FREEZE
  53 920903219
  54 @K@NAME
  55 T_ERR4_2
  56 @K@INSCRIPT
  57 ERROR_HANDLING:
  58 DB_OVERFLOW
  59 MP/NSVCI
  60 @K@CODE
  61 /***@@@ ERROR ***/
  62 /*@@ERRORTEXT
  63 *@ DB-OVERFLOW
  64 *@
  65 *@
  66 *@@DESCRIPTION
  67 *@ THE INSTANCE-CREATION WAS NOT POSSIBLE
  68 *@ BECAUSE THE DATABASE WOULD OVERFLOW
  69 *@
  70 *@@EXTRA INFO
  71 *@ (EXTRA_INFO_4_STRUCT)
  72 *@  NSEI
  73 *@  NSVCI
  74 *@  TEXT
  75 *@
  76 */
  77
  78 EXTRA_INFO.TYP4.NSEI := EVD_PTR->.KEYS.INT_ARR(0);
  79 EXTRA_INFO.TYP4.NSVCI:= EVD_PTR->.KEYS.INT_ARR(1);
  80 EXTRA_INFO.TYP4.TEXT := 'NSVC-HAND.: MP/NSVCI-OVERFLOW';
  81
  82 G9PXYA1S!G9TE500_EHP_P(
  83 'G9IBSA1C004',                          /*@@ID*/
  84 G9PXYA1S!G9TE102_ERR_CLASS_ESC_MAX_ANY, /*@@CLASS*/
  85 ADDR(EXTRA_INFO.ERROR_HANDLER),         /* EXTRA-INFO ADDR */
  86 G9PXYA1S!G9TE100_GB_LM,                 /* USER-ID */
  87 NULL                                    /* OPTIONAL-SWET-INFO ADDR */
  88 );
  89 /***@@@ END OF ERROR ***/
  90
  91 @K@FREEZE
  92 920903222
  93 @K@NAME
  94 T_ERR4_3
  95 @K@INSCRIPT
  96 ERROR_HANDLING:
  97 DB_OVERFLOW
  98 NSEI/NSVCI
  99 @K@CODE
 100 /***@@@ ERROR ***/
 101 /*@@ERRORTEXT
 102 *@ DB-OVERFLOW
 103 *@
 104 *@
 105 *@@DESCRIPTION
 106 *@ THE INSTANCE-CREATION WAS NOT POSSIBLE
 107 *@ BECAUSE THE DATABASE WOULD OVERFLOW
 108 *@
 109 *@@EXTRA INFO
 110 *@ (EXTRA_INFO_4_STRUCT)
 111 *@  NSEI
 112 *@  NSVCI
 113 *@  TEXT
 114 *@
 115 */
 116
 117 EXTRA_INFO.TYP4.NSEI := EVD_PTR->.KEYS.INT_ARR(0);
 118 EXTRA_INFO.TYP4.NSVCI:= EVD_PTR->.KEYS.INT_ARR(1);
 119 EXTRA_INFO.TYP4.TEXT := 'NSVC-HAND.: NSEI/NSVC-OVERFLOW';
 120
 121 G9PXYA1S!G9TE500_EHP_P(
 122 'G9IBSA1C004',                          /*@@ID*/
 123 G9PXYA1S!G9TE102_ERR_CLASS_ESC_MAX_ANY, /*@@CLASS*/
 124 ADDR(EXTRA_INFO.ERROR_HANDLER),         /* EXTRA-INFO ADDR */
 125 G9PXYA1S!G9TE100_GB_LM,                 /* USER-ID */
 126 NULL                                    /* OPTIONAL-SWET-INFO ADDR */
 127 );
 128 /***@@@ END OF ERROR ***/
 129
 130 @K@FREEZE
 131 920903226
 132 @K@NAME
 133 TR_RESET
 134 @K@INSCRIPT
 135 RESTART_
 136 TNS_RESET_
 137 TIMER
 138 @K@CODE
 139 /* TIMER EVENT DESCRIPTOR STILL THERE */
 140
 141 /* INITIALIZATION OF THE TIMER-EVENT-DESCRIPTOR STILL VALID */
 142 NSVCI_CON_PTR->.TIM_EVD_PTR->.TIMER:= TNS_RESET_MAP;
 143
 144 /* START TIMER */
 145 G9PX508_START_TIMER_P
 146 (
 147 NSVCI_CON_PTR->.TIM_EVD_PTR
 148 );
 149
 150 @K@FREEZE
 151 924684867
 152 @K@NAME
 153 TX_AUDIT
 154 @K@INSCRIPT
 155 FOR
 156 AUDIT
 157
 158 @K@NAME
 159 M_BLKOACKM
 160 @K@INSCRIPT
 161 NS_
 162 BLOCK_ACK
 163 @K@CODE
 164 /* GETTING THE EVENT DESCRIPTOR */
 165 G9PB511_GET_MSG_BOUND_EV_DESCR_P
 166 (
 167 SID_GBNSVC,
 168 (SIZE(G9IBDF4_NS_LM_M) + G9IBD44_NS_PDU_DATA_OFFSET_C),
 169 TX_EVD_PTR
 170 );
 171
 172 /* COMPOSING THE EVENT */
 173 /* FIRST THE DESCRIPTOR */
 174 TX_EVD_PTR->.EVENT_CMD:=         G9IBD40_NS_LM_PDU_C;
 175 TX_EVD_PTR->.EVENT_DESTINATION:= GBDL_HANDLE;
 176
 177 IF
 178 /* 'OTHER' ALIVE NSVC TO THIS NSEI EXISTING? */
 179 NSVCI_CON_PTR->.OWN_NSEI_CON_PTR->.NEXT_ALIV_NSVCI_CON_PTR /= NULL
 180 THEN
 181 /* USE THIS 'OTHER' FOR TRANSPORT */
 182 TX_EVD_PTR->.KEYS.INT_ARR(0):=
 183
 184 NSVCI_CON_PTR->.OWN_NSEI_CON_PTR->.NEXT_ALIV_NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSEI;
 185 /* NSEI TO BE USED FOR TRANSPORT */
 186 TX_EVD_PTR->.KEYS.INT_ARR(1):=
 187
 188 NSVCI_CON_PTR->.OWN_NSEI_CON_PTR->.NEXT_ALIV_NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI;
 189 /* NSVCI TO BE USED FOR TRANSPORT */
 190 ELSE
 191 /* USE AFFECTED NSVC AGAIN FOR TRANSPORT */
 192 TX_EVD_PTR->.KEYS.INT_ARR(0):=
 193  NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSEI;  /* NSEI TO BE USED FOR
 194 TRANSPORT */
 195 TX_EVD_PTR->.KEYS.INT_ARR(1):=
 196  NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI; /* NSVCI TO BE USED FOR
 197 TRANSPORT */
 198 FI;
 199
 200
 201 /* POINTER TO PDU IN POOL-ELEMENT */
 202 NS_PDU_PTR:= NS_PDU_REF_M (INT(TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT)
 203                            + G9IBD44_NS_PDU_DATA_OFFSET_C);
 204 /* OFFSET OF THE PDU IN POOL-ELEMENT */
 205 TX_EVD_PTR->.BOUND.DATA_OFFSET:= G9IBD44_NS_PDU_DATA_OFFSET_C;
 206 /* LENGTH OF THE PDU IN POOL-ELEMENT */
 207 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(NS_PDU_PTR->.G9IBDF4_PDU_TYPE) +
 208 SIZE(NS_PDU_PTR->.D3);
 209
 210 /* NOW THE POOL-ELEMENT */
 211 NS_PDU_PTR->.G9IBDF4_PDU_TYPE:= G9IBDR2_NS_BLOCK_ACK_C; /* PDU-TYPE */
 212
 213 NS_PDU_PTR->.D3.NSVCI_TLV.NSVCI_VAL :=
 214  NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI; /* NSVC TO BE BLOCKED */
 215
 216
 217 /* SENDING */
 218 G9PX503_POST_EVENT_P(TX_EVD_PTR);
 219
 220 @K@FREEZE
 221 938805885
 222 @K@NAME
 223 T_RCTRUE
 224 @K@INSCRIPT
 225 RC
 226 =
 227 TRUE
 228 @K@CODE
 229 RC:= TRUE;
 230
 231 @K@FREEZE
 232 922176328
 233 @K@NAME
 234 M_AC_SBVCN
 235 @K@INSCRIPT
 236 G9IBME0_
 237 ACT_
 238 SIGN_BVC_C
 239 @K@CODE
 240 /* GETTING THE EVENT DESCRIPTOR */
 241 G9PB512_GET_MSG_LESS_EV_DESCR_P
 242 (
 243 SID_GBNSVC,
 244 TX_EVD_PTR
 245 );
 246
 247
 248 /* COMPOSING THE EVENT */
 249 TX_EVD_PTR->.EVENT_CMD:=         G9IBME0_ACT_SIGN_BVC_C;
 250 TX_EVD_PTR->.EVENT_DESTINATION:= GBBVC_HANDLE;
 251 TX_EVD_PTR->.KEYS.INT_ARR(0):=   EVD_PTR->.KEYS.INT_ARR(0);
 252 TX_EVD_PTR->.KEYS.INT_ARR(1):=   SIGN_BVCI;
 253
 254
 255
 256 /* SENDING */
 257 G9PX503_POST_EVENT_P(TX_EVD_PTR);
 258
 259 @K@FREEZE
 260 938788211
 261 @K@NAME
 262 T_RC_EOD
 263 @K@INSCRIPT
 264 RC
 265 =
 266 END OF DATA
 267
 268 @K@CODE
 269 RC:= G9IBSM4_RC_END_OF_DATA;
 270
 271 @K@FREEZE
 272 921083785
 273 @K@NAME
 274 T_RC_EMP
 275 @K@INSCRIPT
 276 RC
 277 =
 278 EMPTY
 279
 280 @K@CODE
 281 RC:= G9IBSM4_RC_EMPTY;
 282
 283 @K@FREEZE
 284 921083757
 285 @K@NAME
 286 T_RC_ERR
 287 @K@INSCRIPT
 288 RC
 289 =
 290 ERROR
 291
 292 @K@CODE
 293 RC:= G9IBSM4_RC_ERROR;
 294
 295 @K@FREEZE
 296 921083731
 297 @K@NAME
 298 S_UNUSED
 299 @K@INSCRIPT
 300 G9IBSM0_
 301 UNUSED
 302 @K@CODE
 303
 304
 305 @K@FREEZE
 306 919416670
 307 @K@NAME
 308 TA_UNBLOCK
 309 @K@INSCRIPT
 310 START_
 311 TNS_UNBLOCK_
 312 TIMER
 313 @K@CODE
 314 /* GET TIMER-EVENT DESCRIPTOR */
 315 G9PB513_GET_TIMER_EV_DESCR_P
 316 (
 317 SID_GBNSVC,
 318 NSVCI_CON_PTR->.TIM_EVD_PTR
 319 );
 320
 321 /* INITIALIZATION OF THE TIMER-EVENT-DESCRIPTOR */
 322 NSVCI_CON_PTR->.TIM_EVD_PTR->.EVENT_CMD:= G9IBSE4_TO_TNS_C;
 323 NSVCI_CON_PTR->.TIM_EVD_PTR->.EVENT_DESTINATION:= GBNSVC_HANDLE;
 324 NSVCI_CON_PTR->.TIM_EVD_PTR->.KEYS.INT_ARR(0):=
 325 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSEI;
 326 NSVCI_CON_PTR->.TIM_EVD_PTR->.KEYS.INT_ARR(1):=
 327 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI;
 328 NSVCI_CON_PTR->.TIM_EVD_PTR->.TIMER:= TNS_UNBLOCK_MAP;
 329
 330 /* START TIMER */
 331 G9PX508_START_TIMER_P
 332 (
 333 NSVCI_CON_PTR->.TIM_EVD_PTR
 334 );
 335
 336 @K@FREEZE
 337 924686210
 338 @K@NAME
 339 M_BLK_ACKM
 340 @K@INSCRIPT
 341 NS_
 342 BLOCK_ACK
 343 @K@CODE
 344 /* GETTING THE EVENT DESCRIPTOR */
 345 G9PB511_GET_MSG_BOUND_EV_DESCR_P
 346 (
 347 SID_GBNSVC,
 348 (SIZE(G9IBDF4_NS_LM_M) + G9IBD44_NS_PDU_DATA_OFFSET_C),
 349 TX_EVD_PTR
 350 );
 351
 352 /* COMPOSING THE EVENT */
 353 /* FIRST THE DESCRIPTOR */
 354 TX_EVD_PTR->.EVENT_CMD:=         G9IBD40_NS_LM_PDU_C;
 355 TX_EVD_PTR->.EVENT_DESTINATION:= GBDL_HANDLE;
 356 TX_EVD_PTR->.KEYS.INT_ARR(0):=
 357 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSEI;  /* NSEI TO BE USED FOR
 358 TRANSPORT */
 359 TX_EVD_PTR->.KEYS.INT_ARR(1):=
 360 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI; /* NSVCI TO BE USED FOR
 361 TRANSPORT */
 362 /* POINTER TO PDU IN POOL-ELEMENT */
 363 NS_PDU_PTR:= NS_PDU_REF_M (INT(TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT)
 364                            + G9IBD44_NS_PDU_DATA_OFFSET_C);
 365 /* OFFSET OF THE PDU IN POOL-ELEMENT */
 366 TX_EVD_PTR->.BOUND.DATA_OFFSET:= G9IBD44_NS_PDU_DATA_OFFSET_C;
 367 /* LENGTH OF THE PDU IN POOL-ELEMENT */
 368 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(NS_PDU_PTR->.G9IBDF4_PDU_TYPE) +
 369 SIZE(NS_PDU_PTR->.D3);
 370
 371 /* NOW THE POOL-ELEMENT */
 372 NS_PDU_PTR->.G9IBDF4_PDU_TYPE:= G9IBDR2_NS_BLOCK_ACK_C; /* PDU-TYPE */
 373
 374 NS_PDU_PTR->.D3.NSVCI_TLV.NSVCI_VAL :=
 375  NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI; /* NSVC TO BE BLOCKED */
 376
 377
 378 /* SENDING */
 379 G9PX503_POST_EVENT_P(TX_EVD_PTR);
 380
 381 @K@FREEZE
 382 926348442
 383 @K@NAME
 384 TA_NXTALIV
 385 @K@INSCRIPT
 386 DEFINE
 387 NEW 'NEXT_
 388 ALIVE'
 389 @K@CODE
 390 IF
 391 /* ALIVE NSVC TO THE NSEI EXISTING? */
 392 NSVCI_CON_PTR->.OWN_NSEI_CON_PTR->.NEXT_ALIV_NSVCI_CON_PTR /= NULL
 393
 394 THEN
 395 /* TAKE NEXT ELEMENT IN THE LINKED LIST AS THE NEXT ALIVE NSVC */
 396 NSVCI_CON_PTR->.OWN_NSEI_CON_PTR->.NEXT_ALIV_NSVCI_CON_PTR:=
 397
 398 NSVCI_CON_PTR->.OWN_NSEI_CON_PTR->.NEXT_ALIV_NSVCI_CON_PTR->.NEXT_ALV_NSVCI_CON_PTR;
 399
 400 FI;
 401
 402 @K@FREEZE
 403 938801086
 404 @K@NAME
 405 M_DE_CBVCN
 406 @K@INSCRIPT
 407 G9IBME2_
 408 DEACT_
 409 CELL_BVC_C
 410
 411 @K@CODE
 412 /* GETTING THE EVENT DESCRIPTOR */
 413 G9PB512_GET_MSG_LESS_EV_DESCR_P
 414 (
 415 SID_GBNSVC,
 416 TX_EVD_PTR
 417 );
 418
 419
 420 /* COMPOSING THE EVENT */
 421 TX_EVD_PTR->.EVENT_CMD:=         G9IBME2_DEACT_CELL_BVC_C;
 422 TX_EVD_PTR->.EVENT_DESTINATION:= GBBVC_HANDLE;
 423 TX_EVD_PTR->.KEYS.INT_ARR(0):=
 424 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSEI;
 425 TX_EVD_PTR->.KEYS.INT_ARR(1):=   EVD_PTR->.ADD_DATA(3);
 426
 427
 428
 429 /* SENDING */
 430 G9PX503_POST_EVENT_P(TX_EVD_PTR);
 431
 432 @K@FREEZE
 433 933318270
 434 @K@NAME
 435 TA_NXTRESP
 436 @K@INSCRIPT
 437 DEFINE
 438 NEW 'NEXT_
 439 RESPONSIBLE'
 440 @K@CODE
 441 NSEI_CON_PTR->.NEXT_RESP_NSVCI_CON_PTR:=
 442  NSEI_CON_PTR->.NEXT_RESP_NSVCI_CON_PTR->.NEXT_LSP_NSVCI_CON_PTR;
 443
 444
 445 @K@FREEZE
 446 938005006
 447 @K@NAME
 448 TA_NXTSUBS
 449 @K@INSCRIPT
 450 DEFINE
 451 NEW 'NEXT_
 452 SUBSTITUTE'
 453 @K@CODE
 454 NSEI_CON_PTR->.NEXT_SUBS_NSVCI_CON_PTR:=
 455  NSEI_CON_PTR->.NEXT_SUBS_NSVCI_CON_PTR->.NEXT_UBL_NSVCI_CON_PTR;
 456
 457 @K@NAME
 458 M_BLK_O__M
 459 @K@INSCRIPT
 460 NS_
 461 BLOCK
 462 @K@CODE
 463 /* GETTING THE EVENT DESCRIPTOR */
 464 G9PB511_GET_MSG_BOUND_EV_DESCR_P
 465 (
 466 SID_GBNSVC,
 467 (SIZE(G9IBDF4_NS_LM_M) + G9IBD44_NS_PDU_DATA_OFFSET_C),
 468 TX_EVD_PTR
 469 );
 470
 471 /* COMPOSING THE EVENT */
 472 /* FIRST THE DESCRIPTOR */
 473 TX_EVD_PTR->.EVENT_CMD:=         G9IBD40_NS_LM_PDU_C;
 474 TX_EVD_PTR->.EVENT_DESTINATION:= GBDL_HANDLE;
 475
 476 IF
 477 /* 'OTHER' ALIVE NSVC TO THIS NSEI EXISTING? */
 478 NSVCI_CON_PTR->.OWN_NSEI_CON_PTR->.NEXT_ALIV_NSVCI_CON_PTR /= NULL
 479 THEN
 480 /* USE THIS 'OTHER' FOR TRANSPORT */
 481 TX_EVD_PTR->.KEYS.INT_ARR(0):=
 482
 483 NSVCI_CON_PTR->.OWN_NSEI_CON_PTR->.NEXT_ALIV_NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSEI;
 484 /* NSEI TO BE USED FOR TRANSPORT */
 485 TX_EVD_PTR->.KEYS.INT_ARR(1):=
 486
 487 NSVCI_CON_PTR->.OWN_NSEI_CON_PTR->.NEXT_ALIV_NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI;
 488 /* NSVCI TO BE USED FOR TRANSPORT */
 489 ELSE
 490 /* USE AFFECTED NSVC AGAIN FOR TRANSPORT */
 491 TX_EVD_PTR->.KEYS.INT_ARR(0):=
 492  NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSEI;  /* NSEI TO BE USED FOR
 493 TRANSPORT */
 494 TX_EVD_PTR->.KEYS.INT_ARR(1):=
 495  NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI; /* NSVCI TO BE USED FOR
 496 TRANSPORT */
 497 FI;
 498
 499
 500 /* POINTER TO PDU IN POOL-ELEMENT */
 501 NS_PDU_PTR:= NS_PDU_REF_M (INT(TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT)
 502                            + G9IBD44_NS_PDU_DATA_OFFSET_C);
 503 /* OFFSET OF THE PDU IN POOL-ELEMENT */
 504 TX_EVD_PTR->.BOUND.DATA_OFFSET:= G9IBD44_NS_PDU_DATA_OFFSET_C;
 505 /* LENGTH OF THE PDU IN POOL-ELEMENT */
 506 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(NS_PDU_PTR->.G9IBDF4_PDU_TYPE) +
 507 SIZE(NS_PDU_PTR->.D2);
 508
 509
 510 /* NOW THE POOL-ELEMENT */
 511 NS_PDU_PTR->.G9IBDF4_PDU_TYPE:= G9IBDR1_NS_BLOCK_C; /* PDU-TYPE */
 512
 513 NS_PDU_PTR->.D2.CAUSE_TLV.CAUSE_VAL:=
 514  G9IBBA2_NS_TRANSIT_NETWORK_FAILURE;       /* CAUSE FOR BLOCK */
 515 NS_PDU_PTR->.D2.NSVCI_TLV.NSVCI_VAL :=
 516  NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI; /* NSVC TO BE BLOCKED */
 517
 518
 519 /* SENDING */
 520 G9PX503_POST_EVENT_P(TX_EVD_PTR);
 521
 522 @K@TEXT
 523 GSM 8.16 CHAP. 7.2:
 524 THE NS-BLOCK-PDU MAY BE SENT IN ANY ALIVE
 525 (BLOCKED OR UNBLOCKED) NS-VC...
 526 @K@FREEZE
 527 938803215
 528 @K@NAME
 529 M_DE_SBVCN
 530 @K@INSCRIPT
 531 G9IBME1_
 532 DEACT_
 533 SIGN_BVC_C
 534 @K@CODE
 535 /* GETTING THE EVENT DESCRIPTOR */
 536 G9PB512_GET_MSG_LESS_EV_DESCR_P
 537 (
 538 SID_GBNSVC,
 539 TX_EVD_PTR
 540 );
 541
 542
 543 /* COMPOSING THE EVENT */
 544 TX_EVD_PTR->.EVENT_CMD:=         G9IBME1_DEACT_SIGN_BVC_C;
 545 TX_EVD_PTR->.EVENT_DESTINATION:= GBBVC_HANDLE;
 546 TX_EVD_PTR->.KEYS.INT_ARR(0):=   EVD_PTR->.KEYS.INT_ARR(0);
 547 TX_EVD_PTR->.KEYS.INT_ARR(1):=   SIGN_BVCI;
 548
 549
 550
 551 /* SENDING */
 552 G9PX503_POST_EVENT_P(TX_EVD_PTR);
 553
 554 @K@FREEZE
 555 938788201
 556 @K@NAME
 557 M_OAME401M
 558 @K@INSCRIPT
 559 ERROR_MESSAGE:
 560 ERRONOUS_PDU
 561 RESET_PDU
 562
 563 @K@CODE
 564 /* GETTING THE EVENT DESCRIPTOR */
 565 G9PB511_GET_MSG_BOUND_EV_DESCR_P
 566 (
 567 SID_GBNSVC,
 568 (SIZE(G9OC109_REPORTED_EVENT_STR_M)),
 569 TX_EVD_PTR
 570 );
 571
 572
 573 /* COMPOSING THE EVENT */
 574 /* FIRST THE DESCRIPTOR */
 575 TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;
 576 TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;
 577 TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;
 578 TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;
 579 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);
 580
 581 /* NOW THE POOL-ELEMENT */
 582 /* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */
 583 OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);
 584
 585 /* COMPOSING THE MESSAGE */
 586 /* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSE */
 587 OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSE;
 588 OAM_MSG_PTR->.HANDLED_OBJECT.NSE_ID:=      EVD_PTR->.KEYS.INT_ARR(0); /*
 589 USED NSEI (FROM ECI) */
 590
 591 /* ERROR-CAUSE = ERRONEOUS_PDU */
 592 OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_ERRONEOUS_PDU;
 593 /* ADDITIONAL_PDU_INFO */
 594 OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_PDU_TYPE:=
 595  G9OC124_RESET_PDU;
 596 OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_REPORTED_NSEI:=
 597  EVD_PTR->.ADD_DATA(0); /* AFFECTED NSEI (FROM PDU) */
 598 OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_REPORTED_NSVC:=
 599  EVD_PTR->.ADD_DATA(1); /* AFFECTED NSVCI (FROM PDU) */
 600
 601
 602
 603 /* SENDING */
 604 G9PX503_POST_EVENT_P(TX_EVD_PTR);
 605
 606 @K@FREEZE
 607 935766108
 608 @K@NAME
 609 M_OAME402M
 610 @K@INSCRIPT
 611 ERROR_MESSAGE:
 612 ERRONOUS_PDU
 613 RESET_PDU
 614
 615 @K@CODE
 616 /* GETTING THE EVENT DESCRIPTOR */
 617 G9PB511_GET_MSG_BOUND_EV_DESCR_P
 618 (
 619 SID_GBNSVC,
 620 (SIZE(G9OC109_REPORTED_EVENT_STR_M)),
 621 TX_EVD_PTR
 622 );
 623
 624
 625 /* COMPOSING THE EVENT */
 626 /* FIRST THE DESCRIPTOR */
 627 TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;
 628 TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;
 629 TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;
 630 TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;
 631 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);
 632
 633 /* NOW THE POOL-ELEMENT */
 634 /* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */
 635 OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);
 636
 637 /* COMPOSING THE MESSAGE */
 638 /* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSVC */
 639 OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSVC;
 640 OAM_MSG_PTR->.HANDLED_OBJECT.NSVC_ID:=     EVD_PTR->.KEYS.INT_ARR(1); /*
 641 USED NSVCI (FROM ECI) */
 642
 643 /* ERROR-CAUSE = ERRONEOUS_PDU */
 644 OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_ERRONEOUS_PDU;
 645 /* ADDITIONAL_PDU_INFO */
 646 OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_PDU_TYPE:=
 647  G9OC124_RESET_PDU;
 648 OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_REPORTED_NSEI:=
 649  EVD_PTR->.ADD_DATA(0); /* NSEI FROM PDU */
 650 OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_REPORTED_NSVC:=
 651  EVD_PTR->.ADD_DATA(1); /* NSVCI FROM PDU */
 652
 653
 654
 655 /* SENDING */
 656 G9PX503_POST_EVENT_P(TX_EVD_PTR);
 657
 658 @K@FREEZE
 659 935766407
 660 @K@NAME
 661 M_OAME411M
 662 @K@INSCRIPT
 663 ERROR_MESSAGE:
 664 ERRONOUS_PDU
 665 RESET_ACK_PDU
 666
 667 @K@CODE
 668 /* GETTING THE EVENT DESCRIPTOR */
 669 G9PB511_GET_MSG_BOUND_EV_DESCR_P
 670 (
 671 SID_GBNSVC,
 672 (SIZE(G9OC109_REPORTED_EVENT_STR_M)),
 673 TX_EVD_PTR
 674 );
 675
 676
 677 /* COMPOSING THE EVENT */
 678 /* FIRST THE DESCRIPTOR */
 679 TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;
 680 TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;
 681 TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;
 682 TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;
 683 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);
 684
 685 /* NOW THE POOL-ELEMENT */
 686 /* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */
 687 OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);
 688
 689 /* COMPOSING THE MESSAGE */
 690 /* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSE */
 691 OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSE;
 692 OAM_MSG_PTR->.HANDLED_OBJECT.NSE_ID:=      EVD_PTR->.KEYS.INT_ARR(0); /*
 693 USED NSEI (FROM ECI) */
 694
 695 /* ERROR-CAUSE = ERRONEOUS_PDU */
 696 OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_ERRONEOUS_PDU;
 697 /* ADDITIONAL_PDU_INFO */
 698 OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_PDU_TYPE:=
 699  G9OC124_RESET_ACK_PDU;
 700 OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_REPORTED_NSEI:=
 701  EVD_PTR->.ADD_DATA(0); /* NSEI FROM PDU */
 702 OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_REPORTED_NSVC:=
 703  EVD_PTR->.ADD_DATA(1); /* NSVCI FROM PDU */
 704
 705
 706
 707 /* SENDING */
 708 G9PX503_POST_EVENT_P(TX_EVD_PTR);
 709
 710 @K@FREEZE
 711 935767332
 712 @K@NAME
 713 M_OAME412M
 714 @K@INSCRIPT
 715 ERROR_MESSAGE:
 716 ERRONOUS_PDU
 717 RESET_ACK_PDU
 718
 719 @K@CODE
 720 /* GETTING THE EVENT DESCRIPTOR */
 721 G9PB511_GET_MSG_BOUND_EV_DESCR_P
 722 (
 723 SID_GBNSVC,
 724 (SIZE(G9OC109_REPORTED_EVENT_STR_M)),
 725 TX_EVD_PTR
 726 );
 727
 728
 729 /* COMPOSING THE EVENT */
 730 /* FIRST THE DESCRIPTOR */
 731 TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;
 732 TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;
 733 TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;
 734 TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;
 735 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);
 736
 737 /* NOW THE POOL-ELEMENT */
 738 /* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */
 739 OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);
 740
 741 /* COMPOSING THE MESSAGE */
 742 /* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSVC */
 743 OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSVC;
 744 OAM_MSG_PTR->.HANDLED_OBJECT.NSVC_ID:=     EVD_PTR->.KEYS.INT_ARR(1); /*
 745 USED NSVCI (FROM ECI) */
 746
 747 /* ERROR-CAUSE = ERRONEOUS_PDU */
 748 OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_ERRONEOUS_PDU;
 749 /* ADDITIONAL_PDU_INFO */
 750 OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_PDU_TYPE:=
 751  G9OC124_RESET_ACK_PDU;
 752 OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_REPORTED_NSEI:=
 753  EVD_PTR->.ADD_DATA(0); /* NSEI FROM PDU */
 754 OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_REPORTED_NSVC:=
 755  EVD_PTR->.ADD_DATA(1); /* NSVCI FROM PDU */
 756
 757
 758
 759
 760 /* SENDING */
 761 G9PX503_POST_EVENT_P(TX_EVD_PTR);
 762
 763 @K@FREEZE
 764 935767189
 765 @K@NAME
 766 C_CON
 767 @K@INSCRIPT
 768 RC_DB
 769 @K@CODE
 770 RC_DB
 771
 772 @K@FREEZE
 773 922176673
 774 @K@NAME
 775 M_BLK____M
 776 @K@INSCRIPT
 777 NS_
 778 BLOCK
 779 @K@CODE
 780 /* GETTING THE EVENT DESCRIPTOR */
 781 G9PB511_GET_MSG_BOUND_EV_DESCR_P
 782 (
 783 SID_GBNSVC,
 784 (SIZE(G9IBDF4_NS_LM_M) + G9IBD44_NS_PDU_DATA_OFFSET_C),
 785 TX_EVD_PTR
 786 );
 787
 788 /* COMPOSING THE EVENT */
 789 /* FIRST THE DESCRIPTOR */
 790 TX_EVD_PTR->.EVENT_CMD:=         G9IBD40_NS_LM_PDU_C;
 791 TX_EVD_PTR->.EVENT_DESTINATION:= GBDL_HANDLE;
 792 TX_EVD_PTR->.KEYS.INT_ARR(0):=
 793 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSEI;  /* NSEI TO BE USED FOR
 794 TRANSPORT */
 795 TX_EVD_PTR->.KEYS.INT_ARR(1):=
 796 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI; /* NSVCI TO BE USED FOR
 797 TRANSPORT */
 798 /* POINTER TO PDU IN POOL-ELEMENT */
 799 NS_PDU_PTR:= NS_PDU_REF_M (INT(TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT)
 800                            + G9IBD44_NS_PDU_DATA_OFFSET_C);
 801 /* OFFSET OF THE PDU IN POOL-ELEMENT */
 802 TX_EVD_PTR->.BOUND.DATA_OFFSET:= G9IBD44_NS_PDU_DATA_OFFSET_C;
 803 /* LENGTH OF THE PDU IN POOL-ELEMENT */
 804 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(NS_PDU_PTR->.G9IBDF4_PDU_TYPE) +
 805 SIZE(NS_PDU_PTR->.D2);
 806
 807
 808 /* NOW THE POOL-ELEMENT */
 809 NS_PDU_PTR->.G9IBDF4_PDU_TYPE:= G9IBDR1_NS_BLOCK_C; /* PDU-TYPE */
 810
 811 NS_PDU_PTR->.D2.CAUSE_TLV.CAUSE_VAL:=
 812  G9IBBA2_NS_OAM_INTERVENTION;              /* CAUSE FOR BLOCK */
 813 NS_PDU_PTR->.D2.NSVCI_TLV.NSVCI_VAL :=
 814  NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI; /* NSVC TO BE BLOCKED */
 815
 816
 817 /* SENDING */
 818 G9PX503_POST_EVENT_P(TX_EVD_PTR);
 819
 820 @K@TEXT
 821 GSM 8.16 CHAP. 7.2:
 822 THE NS-BLOCK-PDU MAY BE SENT IN ANY ALIVE
 823 (BLOCKED OR UNBLOCKED) NS-VC...
 824 @K@FREEZE
 825 926348613
 826 @K@NAME
 827 S_BLOCKED
 828 @K@INSCRIPT
 829 G9IBSM0_
 830 BLOCKED
 831 @K@CODE
 832
 833
 834 @K@FREEZE
 835 922176496
 836 @K@NAME
 837 D_CON
 838 @K@INSCRIPT
 839 CONTEXT
 840 GOT
 841 @K@CODE
 842 RC_DB = G9IBSR0_RC_OK
 843
 844 @K@FREEZE
 845 921772339
 846 @K@NAME
 847 M_OAME901M
 848 @K@INSCRIPT
 849 ERROR_MESSAGE:
 850 OPERATIONAL_STATE_CHANGE
 851 UBL->BLK
 852 @K@CODE
 853 /* GETTING THE EVENT DESCRIPTOR */
 854 G9PB511_GET_MSG_BOUND_EV_DESCR_P
 855 (
 856 SID_GBNSVC,
 857 (SIZE(G9OC109_REPORTED_EVENT_STR_M)),
 858 TX_EVD_PTR
 859 );
 860
 861
 862 /* COMPOSING THE EVENT */
 863 /* FIRST THE DESCRIPTOR */
 864 TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;
 865 TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;
 866 TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;
 867 TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;
 868 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);
 869
 870 /* NOW THE POOL-ELEMENT */
 871 /* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */
 872 OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);
 873
 874 /* COMPOSING THE MESSAGE */
 875 /* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSVC */
 876 OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSVC;
 877 OAM_MSG_PTR->.HANDLED_OBJECT.NSVC_ID:=
 878 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI;
 879
 880 /* ERROR_CAUSE = OPERATIONAL_STATE_CHANGE */
 881 OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_OPERATIONAL_STATE_CHANGE;
 882 /* ADDITIONAL_OPERATIONAL_STATE_INFO */
 883 OAM_MSG_PTR->.ADDITIONAL_OPERATIONAL_STATE_INFO.OPER_STATE_OLD:=
 884  G9OC101_UNBLOCKED;
 885 OAM_MSG_PTR->.ADDITIONAL_OPERATIONAL_STATE_INFO.OPER_STATE_NEW:=
 886  G9OC101_BLOCKED;
 887 OAM_MSG_PTR->.ADDITIONAL_OPERATIONAL_STATE_INFO.ADMIN_STATE_OLD:=
 888  G9OC102_ENABLED;
 889 OAM_MSG_PTR->.ADDITIONAL_OPERATIONAL_STATE_INFO.ADMIN_STATE_NEW:=
 890  G9OC102_ENABLED;
 891
 892
 893 /* SENDING */
 894 G9PX503_POST_EVENT_P(TX_EVD_PTR);
 895
 896 @K@FREEZE
 897 925970975
 898 @K@NAME
 899 M_OAME902M
 900 @K@INSCRIPT
 901 ERROR_MESSAGE:
 902 OPERATIONAL_STATE_CHANGE
 903 UBL->BLK
 904
 905 @K@CODE
 906 /* GETTING THE EVENT DESCRIPTOR */
 907 G9PB511_GET_MSG_BOUND_EV_DESCR_P
 908 (
 909 SID_GBNSVC,
 910 (SIZE(G9OC109_REPORTED_EVENT_STR_M)),
 911 TX_EVD_PTR
 912 );
 913
 914
 915 /* COMPOSING THE EVENT */
 916 /* FIRST THE DESCRIPTOR */
 917 TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;
 918 TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;
 919 TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;
 920 TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;
 921 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);
 922
 923 /* NOW THE POOL-ELEMENT */
 924 /* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */
 925 OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);
 926
 927 /* COMPOSING THE MESSAGE */
 928 /* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSVC */
 929 OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSVC;
 930 OAM_MSG_PTR->.HANDLED_OBJECT.NSVC_ID:=
 931 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI;
 932
 933 /* ERROR_CAUSE = OPERATIONAL_STATE_CHANGE */
 934 OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_OPERATIONAL_STATE_CHANGE;
 935 /* ADDITIONAL_OPERATIONAL_STATE_INFO */
 936 OAM_MSG_PTR->.ADDITIONAL_OPERATIONAL_STATE_INFO.OPER_STATE_OLD:=
 937  G9OC101_UNBLOCKED;
 938 OAM_MSG_PTR->.ADDITIONAL_OPERATIONAL_STATE_INFO.OPER_STATE_NEW:=
 939  G9OC101_BLOCKED;
 940 OAM_MSG_PTR->.ADDITIONAL_OPERATIONAL_STATE_INFO.ADMIN_STATE_OLD:=
 941  G9OC102_ENABLED;
 942 OAM_MSG_PTR->.ADDITIONAL_OPERATIONAL_STATE_INFO.ADMIN_STATE_NEW:=
 943  G9OC102_DISABLED;
 944
 945
 946 /* SENDING */
 947 G9PX503_POST_EVENT_P(TX_EVD_PTR);
 948
 949 @K@FREEZE
 950 925970987
 951 @K@NAME
 952 M_OAME10SM
 953 @K@INSCRIPT
 954 ERROR_MESSAGE:
 955 ALARM_BEGIN_NS_ALIVE_TEST
 956 @K@CODE
 957 /* GETTING THE EVENT DESCRIPTOR */
 958 G9PB511_GET_MSG_BOUND_EV_DESCR_P
 959 (
 960 SID_GBNSVC,
 961 (SIZE(G9OC109_REPORTED_EVENT_STR_M)),
 962 TX_EVD_PTR
 963 );
 964
 965
 966 /* COMPOSING THE EVENT */
 967 /* FIRST THE DESCRIPTOR */
 968 TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;
 969 TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;
 970 TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;
 971 TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;
 972 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);
 973
 974 /* NOW THE POOL-ELEMENT */
 975 /* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */
 976 OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);
 977
 978 /* COMPOSING THE MESSAGE */
 979 /* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSVC */
 980 OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSVC;
 981 OAM_MSG_PTR->.HANDLED_OBJECT.NSVC_ID:=
 982 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI;
 983
 984 /* ERROR_CAUSE = ALARM_BEGIN_NS_ALIVE_TEST*/
 985 OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_ALARM_BEGIN_NS_ALIVE_TEST;
 986 /* ADDITIONAL_ALARM_INFO */
 987 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.ADMINISTRATIVE_STATE_CHANGED:=
 988  TRUE;
 989 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.OPER_STATE_OLD:=
 990  G9OC101_BLOCKED;
 991 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.OPER_STATE_NEW:=
 992  G9OC101_BLOCKED;
 993 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.AVAIL_STATE_OLD:=
 994  G9OC103_DEAD;
 995 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.AVAIL_STATE_NEW:=
 996  G9OC103_DEAD;
 997 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.CONFIGURATION_OF_NSVC:=
 998  TRUE;
 999
1000
1001
1002 /* SENDING */
1003 G9PX503_POST_EVENT_P(TX_EVD_PTR);
1004
1005 @K@NAME
1006 M_OAME911M
1007 @K@INSCRIPT
1008 ERROR_MESSAGE:
1009 OPERATIONAL_STATE_CHANGE
1010 BLK->UBL
1011 @K@CODE
1012 /* GETTING THE EVENT DESCRIPTOR */
1013 G9PB511_GET_MSG_BOUND_EV_DESCR_P
1014 (
1015 SID_GBNSVC,
1016 (SIZE(G9OC109_REPORTED_EVENT_STR_M)),
1017 TX_EVD_PTR
1018 );
1019
1020
1021 /* COMPOSING THE EVENT */
1022 /* FIRST THE DESCRIPTOR */
1023 TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;
1024 TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;
1025 TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;
1026 TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;
1027 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);
1028
1029 /* NOW THE POOL-ELEMENT */
1030 /* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */
1031 OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);
1032
1033 /* COMPOSING THE MESSAGE */
1034 /* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSVC */
1035 OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSVC;
1036 OAM_MSG_PTR->.HANDLED_OBJECT.NSVC_ID:=
1037 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI;
1038
1039 /* ERROR_CAUSE = OPERATIONAL_STATE_CHANGE */
1040 OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_OPERATIONAL_STATE_CHANGE;
1041 /* ADDITIONAL_OPERATIONAL_STATE_INFO */
1042 OAM_MSG_PTR->.ADDITIONAL_OPERATIONAL_STATE_INFO.OPER_STATE_OLD:=
1043  G9OC101_BLOCKED;
1044 OAM_MSG_PTR->.ADDITIONAL_OPERATIONAL_STATE_INFO.OPER_STATE_NEW:=
1045  G9OC101_UNBLOCKED;
1046 OAM_MSG_PTR->.ADDITIONAL_OPERATIONAL_STATE_INFO.ADMIN_STATE_OLD:=
1047  G9OC102_ENABLED;
1048 OAM_MSG_PTR->.ADDITIONAL_OPERATIONAL_STATE_INFO.ADMIN_STATE_NEW:=
1049  G9OC102_ENABLED;
1050
1051
1052 /* SENDING */
1053 G9PX503_POST_EVENT_P(TX_EVD_PTR);
1054
1055 @K@FREEZE
1056 925970996
1057 @K@NAME
1058 M_OAME20SM
1059 @K@INSCRIPT
1060 ERROR_MESSAGE:
1061 ALARM_END_NS_ALIVE_TEST
1062 @K@CODE
1063 /* GETTING THE EVENT DESCRIPTOR */
1064 G9PB511_GET_MSG_BOUND_EV_DESCR_P
1065 (
1066 SID_GBNSVC,
1067 (SIZE(G9OC109_REPORTED_EVENT_STR_M)),
1068 TX_EVD_PTR
1069 );
1070
1071
1072 /* COMPOSING THE EVENT */
1073 /* FIRST THE DESCRIPTOR */
1074 TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;
1075 TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;
1076 TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;
1077 TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;
1078 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);
1079
1080 /* NOW THE POOL-ELEMENT */
1081 /* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */
1082 OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);
1083
1084 /* COMPOSING THE MESSAGE */
1085 /* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSVC */
1086 OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSVC;
1087 OAM_MSG_PTR->.HANDLED_OBJECT.NSVC_ID:=
1088 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI;
1089
1090 /* ERROR_CAUSE = ALARM_END_NS_ALIVE_TEST */
1091 OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_ALARM_END_NS_ALIVE_TEST;
1092 /* ADDITIONAL_ALARM_INFO */
1093 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.ADMINISTRATIVE_STATE_CHANGED:=
1094  TRUE;
1095 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.OPER_STATE_OLD:=
1096  G9OC101_BLOCKED;
1097 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.OPER_STATE_NEW:=
1098  G9OC101_BLOCKED;
1099 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.AVAIL_STATE_OLD:=
1100  G9OC103_DEAD;
1101 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.AVAIL_STATE_NEW:=
1102  G9OC103_DEAD;
1103 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.CONFIGURATION_OF_NSVC:=
1104  TRUE;
1105
1106
1107
1108 /* SENDING */
1109 G9PX503_POST_EVENT_P(TX_EVD_PTR);
1110
1111 @K@NAME
1112 M_OAME10_M
1113 @K@INSCRIPT
1114 ERROR_MESSAGE:
1115 ALARM_BEGIN_NS_ALIVE_TEST
1116 @K@CODE
1117 /* GETTING THE EVENT DESCRIPTOR */
1118 G9PB511_GET_MSG_BOUND_EV_DESCR_P
1119 (
1120 SID_GBNSVC,
1121 (SIZE(G9OC109_REPORTED_EVENT_STR_M)),
1122 TX_EVD_PTR
1123 );
1124
1125
1126 /* COMPOSING THE EVENT */
1127 /* FIRST THE DESCRIPTOR */
1128 TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;
1129 TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;
1130 TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;
1131 TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;
1132 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);
1133
1134 /* NOW THE POOL-ELEMENT */
1135 /* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */
1136 OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);
1137
1138 /* COMPOSING THE MESSAGE */
1139 /* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSVC */
1140 OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSVC;
1141 OAM_MSG_PTR->.HANDLED_OBJECT.NSVC_ID:=
1142 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI;
1143
1144 /* ERROR_CAUSE = ALARM_BEGIN_NS_ALIVE_TEST*/
1145 OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_ALARM_BEGIN_NS_ALIVE_TEST;
1146 /* ADDITIONAL_ALARM_INFO */
1147 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.ADMINISTRATIVE_STATE_CHANGED:=
1148  TRUE;
1149 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.OPER_STATE_OLD:=
1150  G9OC101_BLOCKED;
1151 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.OPER_STATE_NEW:=
1152  G9OC101_BLOCKED;
1153 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.AVAIL_STATE_OLD:=
1154  G9OC103_DEAD;
1155 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.AVAIL_STATE_NEW:=
1156  G9OC103_DEAD;
1157 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.CONFIGURATION_OF_NSVC:=
1158  TRUE;
1159
1160
1161
1162 /* SENDING */
1163 G9PX503_POST_EVENT_P(TX_EVD_PTR);
1164
1165 @K@FREEZE
1166 922443813
1167 @K@NAME
1168 D_SEM
1169 @K@INSCRIPT
1170 CALL_SEM
1171 =
1172 TRUE
1173 @K@CODE
1174 CALL_SEM = TRUE
1175
1176 @K@FREEZE
1177 922176624
1178 @K@NAME
1179 D_N_0
1180 @K@INSCRIPT
1181 N = 0
1182
1183 @K@CODE
1184 NSVCI_CON_PTR->.N = 0
1185
1186 @K@FREEZE
1187 921511000
1188 @K@NAME
1189 M_OAME12_M
1190 @K@INSCRIPT
1191 ERROR_MESSAGE:
1192 ALARM_BEGIN_NS_ALIVE_TEST
1193 @K@CODE
1194 /* GETTING THE EVENT DESCRIPTOR */
1195 G9PB511_GET_MSG_BOUND_EV_DESCR_P
1196 (
1197 SID_GBNSVC,
1198 (SIZE(G9OC109_REPORTED_EVENT_STR_M)),
1199 TX_EVD_PTR
1200 );
1201
1202
1203 /* COMPOSING THE EVENT */
1204 /* FIRST THE DESCRIPTOR */
1205 TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;
1206 TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;
1207 TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;
1208 TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;
1209 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);
1210
1211 /* NOW THE POOL-ELEMENT */
1212 /* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */
1213 OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);
1214
1215 /* COMPOSING THE MESSAGE */
1216 /* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSVC */
1217 OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSVC;
1218 OAM_MSG_PTR->.HANDLED_OBJECT.NSVC_ID:=
1219 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI;
1220
1221 /* ERROR_CAUSE = ALARM_BEGIN_NS_ALIVE_TEST*/
1222 OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_ALARM_BEGIN_NS_ALIVE_TEST;
1223 /* ADDITIONAL_ALARM_INFO */
1224 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.ADMINISTRATIVE_STATE_CHANGED:=
1225  FALSE;
1226 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.OPER_STATE_OLD:=
1227  G9OC101_BLOCKED;
1228 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.OPER_STATE_NEW:=
1229  G9OC101_BLOCKED;
1230 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.AVAIL_STATE_OLD:=
1231  G9OC103_ALIVE;
1232 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.AVAIL_STATE_NEW:=
1233  G9OC103_DEAD;
1234 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.CONFIGURATION_OF_NSVC:=
1235  TRUE;
1236
1237
1238
1239 /* SENDING */
1240 G9PX503_POST_EVENT_P(TX_EVD_PTR);
1241
1242 @K@FREEZE
1243 922443829
1244 @K@NAME
1245 M_OAME21_M
1246 @K@INSCRIPT
1247 ERROR_MESSAGE:
1248 ALARM_END_NS_ALIVE_TEST
1249 @K@CODE
1250 /* GETTING THE EVENT DESCRIPTOR */
1251 G9PB511_GET_MSG_BOUND_EV_DESCR_P
1252 (
1253 SID_GBNSVC,
1254 (SIZE(G9OC109_REPORTED_EVENT_STR_M)),
1255 TX_EVD_PTR
1256 );
1257
1258
1259 /* COMPOSING THE EVENT */
1260 /* FIRST THE DESCRIPTOR */
1261 TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;
1262 TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;
1263 TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;
1264 TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;
1265 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);
1266
1267 /* NOW THE POOL-ELEMENT */
1268 /* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */
1269 OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);
1270
1271 /* COMPOSING THE MESSAGE */
1272 /* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSVC */
1273 OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSVC;
1274 OAM_MSG_PTR->.HANDLED_OBJECT.NSVC_ID:=
1275 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI;
1276
1277 /* ERROR_CAUSE = ALARM_END_NS_ALIVE_TEST */
1278 OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_ALARM_END_NS_ALIVE_TEST;
1279 /* ADDITIONAL_ALARM_INFO */
1280 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.ADMINISTRATIVE_STATE_CHANGED:=
1281  TRUE;
1282 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.OPER_STATE_OLD:=
1283  G9OC101_BLOCKED;
1284 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.OPER_STATE_NEW:=
1285  G9OC101_BLOCKED;
1286 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.AVAIL_STATE_OLD:=
1287  G9OC103_DEAD;
1288 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.AVAIL_STATE_NEW:=
1289  G9OC103_DEAD;
1290 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.CONFIGURATION_OF_NSVC:=
1291  FALSE;
1292
1293
1294
1295 /* SENDING */
1296 G9PX503_POST_EVENT_P(TX_EVD_PTR);
1297
1298 @K@FREEZE
1299 922443856
1300 @K@NAME
1301 M_OAME13_M
1302 @K@INSCRIPT
1303 ERROR_MESSAGE:
1304 ALARM_BEGIN_NS_ALIVE_TEST
1305 @K@CODE
1306 /* GETTING THE EVENT DESCRIPTOR */
1307 G9PB511_GET_MSG_BOUND_EV_DESCR_P
1308 (
1309 SID_GBNSVC,
1310 (SIZE(G9OC109_REPORTED_EVENT_STR_M)),
1311 TX_EVD_PTR
1312 );
1313
1314
1315 /* COMPOSING THE EVENT */
1316 /* FIRST THE DESCRIPTOR */
1317 TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;
1318 TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;
1319 TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;
1320 TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;
1321 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);
1322
1323 /* NOW THE POOL-ELEMENT */
1324 /* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */
1325 OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);
1326
1327 /* COMPOSING THE MESSAGE */
1328 /* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSVC */
1329 OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSVC;
1330 OAM_MSG_PTR->.HANDLED_OBJECT.NSVC_ID:=
1331 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI;
1332
1333 /* ERROR_CAUSE = ALARM_BEGIN_NS_ALIVE_TEST*/
1334 OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_ALARM_BEGIN_NS_ALIVE_TEST;
1335 /* ADDITIONAL_ALARM_INFO */
1336 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.ADMINISTRATIVE_STATE_CHANGED:=
1337  FALSE;
1338 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.OPER_STATE_OLD:=
1339  G9OC101_UNBLOCKED;
1340 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.OPER_STATE_NEW:=
1341  G9OC101_BLOCKED;
1342 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.AVAIL_STATE_OLD:=
1343  G9OC103_ALIVE;
1344 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.AVAIL_STATE_NEW:=
1345  G9OC103_DEAD;
1346 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.CONFIGURATION_OF_NSVC:=
1347  TRUE;
1348
1349
1350
1351 /* SENDING */
1352 G9PX503_POST_EVENT_P(TX_EVD_PTR);
1353
1354 @K@FREEZE
1355 922443838
1356 @K@NAME
1357 M_OAME22_M
1358 @K@INSCRIPT
1359 ERROR_MESSAGE:
1360 ALARM_END_NS_ALIVE_TEST
1361 @K@CODE
1362 /* GETTING THE EVENT DESCRIPTOR */
1363 G9PB511_GET_MSG_BOUND_EV_DESCR_P
1364 (
1365 SID_GBNSVC,
1366 (SIZE(G9OC109_REPORTED_EVENT_STR_M)),
1367 TX_EVD_PTR
1368 );
1369
1370
1371 /* COMPOSING THE EVENT */
1372 /* FIRST THE DESCRIPTOR */
1373 TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;
1374 TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;
1375 TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;
1376 TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;
1377 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);
1378
1379 /* NOW THE POOL-ELEMENT */
1380 /* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */
1381 OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);
1382
1383 /* COMPOSING THE MESSAGE */
1384 /* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSVC */
1385 OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSVC;
1386 OAM_MSG_PTR->.HANDLED_OBJECT.NSVC_ID:=
1387 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI;
1388
1389 /* ERROR_CAUSE = ALARM_END_NS_ALIVE_TEST */
1390 OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_ALARM_END_NS_ALIVE_TEST;
1391 /* ADDITIONAL_ALARM_INFO */
1392 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.ADMINISTRATIVE_STATE_CHANGED:=
1393  FALSE;
1394 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.OPER_STATE_OLD:=
1395  G9OC101_BLOCKED;
1396 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.OPER_STATE_NEW:=
1397  G9OC101_BLOCKED;
1398 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.AVAIL_STATE_OLD:=
1399  G9OC103_DEAD;
1400 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.AVAIL_STATE_NEW:=
1401  G9OC103_ALIVE;
1402 OAM_MSG_PTR->.ADDITIONAL_ALARM_INFO.CONFIGURATION_OF_NSVC:=
1403  TRUE;
1404
1405
1406
1407 /* SENDING */
1408 G9PX503_POST_EVENT_P(TX_EVD_PTR);
1409
1410 @K@FREEZE
1411 922443864
1412 @K@NAME
1413 M_OAME30_M
1414 @K@INSCRIPT
1415 ERROR_MESSAGE:
1416 NO_ANSWER_FORM_BSS
1417 RESET_PROCEDURE
1418
1419
1420 @K@CODE
1421 /* GETTING THE EVENT DESCRIPTOR */
1422 G9PB511_GET_MSG_BOUND_EV_DESCR_P
1423 (
1424 SID_GBNSVC,
1425 (SIZE(G9OC109_REPORTED_EVENT_STR_M)),
1426 TX_EVD_PTR
1427 );
1428
1429
1430 /* COMPOSING THE EVENT */
1431 /* FIRST THE DESCRIPTOR */
1432 TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;
1433 TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;
1434 TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;
1435 TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;
1436 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);
1437
1438 /* NOW THE POOL-ELEMENT */
1439 /* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */
1440 OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);
1441
1442 /* COMPOSING THE MESSAGE */
1443 /* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSVC */
1444 OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSVC;
1445 OAM_MSG_PTR->.HANDLED_OBJECT.NSVC_ID:=
1446 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI;
1447
1448 /* ERROR_CAUSE = NO_ANSWER_FROM_BSS */
1449 OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_NO_ANSWER_FROM_BSS;
1450 /* INITIATED_PROCEDURE */
1451 OAM_MSG_PTR->.INITIATED_PROCEDURE:=
1452  G9OC123_RESET_PROCEDURE;
1453
1454
1455 /* SENDING */
1456 G9PX503_POST_EVENT_P(TX_EVD_PTR);
1457
1458 @K@FREEZE
1459 922175973
1460 @K@NAME
1461 M_OAME31_M
1462 @K@INSCRIPT
1463 ERROR_MESSAGE:
1464 NO_ANSWER_FROM_BSS
1465 BLOCK_PROCEDURE
1466
1467 @K@CODE
1468 /* GETTING THE EVENT DESCRIPTOR */
1469 G9PB511_GET_MSG_BOUND_EV_DESCR_P
1470 (
1471 SID_GBNSVC,
1472 (SIZE(G9OC109_REPORTED_EVENT_STR_M)),
1473 TX_EVD_PTR
1474 );
1475
1476
1477 /* COMPOSING THE EVENT */
1478 /* FIRST THE DESCRIPTOR */
1479 TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;
1480 TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;
1481 TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;
1482 TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;
1483 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);
1484
1485 /* NOW THE POOL-ELEMENT */
1486 /* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */
1487 OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);
1488
1489 /* COMPOSING THE MESSAGE */
1490 /* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSVC */
1491 OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSVC;
1492 OAM_MSG_PTR->.HANDLED_OBJECT.NSVC_ID:=
1493 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI;
1494
1495 /* ERROR_CAUSE = NO_ANSWER_FROM_BSS */
1496 OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_NO_ANSWER_FROM_BSS;
1497 /* INITIATED_PROCEDURE */
1498 OAM_MSG_PTR->.INITIATED_PROCEDURE:=
1499  G9OC123_BLOCK_PROCEDURE;
1500
1501
1502 /* SENDING */
1503 G9PX503_POST_EVENT_P(TX_EVD_PTR);
1504
1505 @K@FREEZE
1506 922175976
1507 @K@NAME
1508 M_OAME32_M
1509 @K@INSCRIPT
1510 ERROR_MESSAGE:
1511 NO_ANSWER_FROM_BSS
1512 UNBLOCK_PROCEDURE
1513
1514 @K@CODE
1515 /* GETTING THE EVENT DESCRIPTOR */
1516 G9PB511_GET_MSG_BOUND_EV_DESCR_P
1517 (
1518 SID_GBNSVC,
1519 (SIZE(G9OC109_REPORTED_EVENT_STR_M)),
1520 TX_EVD_PTR
1521 );
1522
1523
1524 /* COMPOSING THE EVENT */
1525 /* FIRST THE DESCRIPTOR */
1526 TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;
1527 TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;
1528 TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;
1529 TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;
1530 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);
1531
1532 /* NOW THE POOL-ELEMENT */
1533 /* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */
1534 OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);
1535
1536 /* COMPOSING THE MESSAGE */
1537 /* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSVC */
1538 OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSVC;
1539 OAM_MSG_PTR->.HANDLED_OBJECT.NSVC_ID:=
1540 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI;
1541
1542 /* ERROR_CAUSE = NO_ANSWER_FROM_BSS */
1543 OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_NO_ANSWER_FROM_BSS;
1544 /* INITIATED_PROCEDURE */
1545 OAM_MSG_PTR->.INITIATED_PROCEDURE:=
1546  G9OC123_UNBLOCK_PROCEDURE;
1547
1548
1549
1550 /* SENDING */
1551 G9PX503_POST_EVENT_P(TX_EVD_PTR);
1552
1553 @K@FREEZE
1554 922175980
1555 @K@NAME
1556 M_OAME42_M
1557 @K@INSCRIPT
1558 ERROR_MESSAGE:
1559 ERRONOUS_PDU
1560 BLOCK_PDU
1561 @K@CODE
1562 /* GETTING THE EVENT DESCRIPTOR */
1563 G9PB511_GET_MSG_BOUND_EV_DESCR_P
1564 (
1565 SID_GBNSVC,
1566 (SIZE(G9OC109_REPORTED_EVENT_STR_M)),
1567 TX_EVD_PTR
1568 );
1569
1570
1571 /* COMPOSING THE EVENT */
1572 /* FIRST THE DESCRIPTOR */
1573 TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;
1574 TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;
1575 TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;
1576 TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;
1577 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);
1578
1579 /* NOW THE POOL-ELEMENT */
1580 /* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */
1581 OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);
1582
1583 /* COMPOSING THE MESSAGE */
1584 /* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSVC */
1585 OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSVC;
1586 OAM_MSG_PTR->.HANDLED_OBJECT.NSVC_ID:=     EVD_PTR->.ADD_DATA(1); /*
1587 USED NSVCI (FROM ECI) */
1588
1589 /* ERROR-CAUSE = ERRONEOUS_PDU */
1590 OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_ERRONEOUS_PDU;
1591 /* ADDITIONAL_PDU_INFO */
1592 OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_PDU_TYPE:=
1593  G9OC124_BLOCK_PDU;
1594 OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_REPORTED_NSEI:=
1595  EVD_PTR->.KEYS.INT_ARR(0); /* AFFECTED NSEI (FROM PDU) */
1596 OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_REPORTED_NSVC:=
1597  EVD_PTR->.KEYS.INT_ARR(1); /* AFFECTED NSVCI (FROM PDU) */
1598
1599
1600
1601
1602 /* SENDING */
1603 G9PX503_POST_EVENT_P(TX_EVD_PTR);
1604
1605 @K@FREEZE
1606 934296141
1607 @K@NAME
1608 M_OAME50_M
1609 @K@INSCRIPT
1610 ERROR_MESSAGE:
1611 STATUS_PDU_CONTAINS_ERROR_INFO
1612 RECEIVED
1613 @K@CODE
1614 /* GETTING THE EVENT DESCRIPTOR */
1615 G9PB511_GET_MSG_BOUND_EV_DESCR_P
1616 (
1617 SID_GBNSVC,
1618 (SIZE(G9OC109_REPORTED_EVENT_STR_M)),
1619 TX_EVD_PTR
1620 );
1621
1622
1623 /* COMPOSING THE EVENT */
1624 /* FIRST THE DESCRIPTOR */
1625 TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;
1626 TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;
1627 TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;
1628 TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;
1629 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);
1630
1631 /* NOW THE POOL-ELEMENT */
1632 /* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */
1633 OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);
1634
1635 /* COMPOSING THE MESSAGE */
1636 /* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSVC */
1637 OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSVC;
1638 OAM_MSG_PTR->.HANDLED_OBJECT.NSVC_ID:=
1639 NSVCI_CON_PTR->.DBMS.NSVC_INSTANCE.NSVCI;
1640
1641 /* ERROR-CAUSE = STATUS_PDU_CONTAINS_ERROR_INFO */
1642 OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_STATUS_PDU_CONTAINS_ERROR_INFO;
1643 /* ADDITIONAL_STATUS_PDU_INFO */
1644 INT_CAUSE_PTR.INT_PTR:= ADDR(EVD_PTR->.ADD_DATA(2));
1645 OAM_MSG_PTR->.ADDITIONAL_STATUS_PDU_INFO:=
1646   INT_CAUSE_PTR.CAUSE_PTR->; /* CAUSE */
1647
1648
1649
1650 /* SENDING */
1651 G9PX503_POST_EVENT_P(TX_EVD_PTR);
1652
1653 @K@TEXT
1654 NICHT OK
1655
1656 @K@FREEZE
1657 934298924
1658 @K@NAME
1659 M_OAME43_M
1660 @K@INSCRIPT
1661 ERROR_MESSAGE:
1662 ERRONOUS_PDU
1663 BLOCK_ACK_PDU
1664 @K@CODE
1665 /* GETTING THE EVENT DESCRIPTOR */
1666 G9PB511_GET_MSG_BOUND_EV_DESCR_P
1667 (
1668 SID_GBNSVC,
1669 (SIZE(G9OC109_REPORTED_EVENT_STR_M)),
1670 TX_EVD_PTR
1671 );
1672
1673
1674 /* COMPOSING THE EVENT */
1675 /* FIRST THE DESCRIPTOR */
1676 TX_EVD_PTR->.EVENT_CMD:=         G9PX040_SEND_MBC_C;
1677 TX_EVD_PTR->.EVENT_DESTINATION:= RXTX_HANDLE;
1678 TX_EVD_PTR->.KEYS.UBI_INDEX:=    OAM_UBI_INDEX;
1679 TX_EVD_PTR->.BOUND.DATA_OFFSET:= 0;
1680 TX_EVD_PTR->.BOUND.DATA_LENGTH:= SIZE(G9OC109_REPORTED_EVENT_STR_M);
1681
1682 /* NOW THE POOL-ELEMENT */
1683 /* INITIALIZATION OF THE POINTER WITH THE POOL-ELEMENT-START */
1684 OAM_MSG_PTR:= OAM_MSG_PTR_M (TX_EVD_PTR->.BOUND.PTR_TO_POOL_ELEMENT);
1685
1686 /* COMPOSING THE MESSAGE */
1687 /* HANDLED OBJECT = AFFECTED INSTANCE, TYPE NSVC */
1688 OAM_MSG_PTR->.HANDLED_OBJECT.OBJECT_TYPE:= G9OC104_NSVC;
1689 OAM_MSG_PTR->.HANDLED_OBJECT.NSVC_ID:=     EVD_PTR->.ADD_DATA(1); /*
1690 USED NSVCI (FROM ECI) */
1691
1692 /* ERROR-CAUSE = ERRONEOUS_PDU */
1693 OAM_MSG_PTR->.ERROR_CAUSE:= G9OC108_ERRONEOUS_PDU;
1694 /* ADDITIONAL_PDU_INFO */
1695 OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_PDU_TYPE:=
1696  G9OC124_BLOCK_ACK_PDU;
1697 OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_REPORTED_NSEI:=
1698  EVD_PTR->.KEYS.INT_ARR(0); /* AFFECTED NSEI (FROM PDU) */
1699 OAM_MSG_PTR->.ADDITIONAL_PDU_INFO.G9OC120_REPORTED_NSVC:=
1700  EVD_PTR->.KEYS.INT_ARR(1); /* AFFECTED NSVCI (FROM PDU) */
1701
1702
1703
1704 /* SENDING */
1705 G9PX503_POST_EVENT_P(TX_EVD_PTR);
1706
1707 @K@FREEZE
1708 934297710