Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

getlnbuf.ok@ 3174

Visit:

Last change on this file since 3174 was 3076, checked in by bird, 19 years ago
gawk 3.1.5
File size: 41.1 KB

Line
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

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format