Newer
Older
* @version $URL$
* $Id$
* @desc This module provides functions used in S1AP.
* @copyright ETSI Copyright Notification
* No part may be reproduced except as authorized by written permission.
* The copyright and the foregoing restriction extend to reproduction in all media.
* All rights reserved.
* @see ETSI TS 136 413 / 3GPP TS 36.413 version 13.4.0 Release 13
import from LibCommon_VerdictControl all;
import from LibCommon_BasicTypesAndValues all;
import from S1AP_PDU_Descriptions language "ASN.1:1997" all;
import from LibS1AP_Interface all;
import from LibS1AP_Pixits all;
import from LibS1AP_Templates all;
/**
* @desc Common functions description
*/
group commonFunctions {
* @desc Indicate if the provided value is greather or equal to 0
* @return true if value of p_int greater than 0
* @param p_int - integer value
*/
function f_gtZero( // FIXME Do we really need a function for <= mathematical operation???
if (p_int > 0){
return true;
}
else{
return false;
}
* @desc Increment the provided value by one
* @return incremented value of p_int 0
* @param p_int - integer value
*/
function f_inc(
inout UInt32 p_int
) return UInt32 {
/**
* @desc Receive functions description
*/
group receivePDU {
*/
function f_S1APPDU_Get(
inout S1AP_PDU p_PDU
) runs on S1APComponent {
vc_recvS1AP_PDU := p_PDU;
if (ischosen(p_PDU.initiatingMessage)) {
//TODO...
}
if (ischosen(p_PDU.successfulOutcome)) {
//TODO...
}
if (ischosen(p_PDU.unsuccessfulOutcome)) {
//TODO...
}
} // End of function f_S1APPDU_Get
/**
* @param p_PDU template of the message to be received
*/
function f_recv_S1AP_PDU(
in template S1AP_PDU p_PDU
) runs on S1APComponent {
[] tc_wait.timeout {
setverdict(inconc,"*** " & __SCOPE__ & ": INCONC: Message was not received in due time. ***");
all timer.stop;
f_componentStop();
}
* @desc Receive S1AP PDU with InitiatingMessage payload from protocol port
* @param p_initiatingMessage Receive template for InitiatingMessage message
} // End of function f_recv_S1AP_initiatingMessage
/**
* @desc Receive S1AP PDU with SuccessfulOutcome payload from protocol port
* @param p_successfulOutcome Receive template for SuccessfulOutcome message
f_recv_S1AP_PDU( {successfulOutcome := p_successfulOutcome})
* @desc Receive S1AP PDU with UnsuccessfulOutcome payload from protocol port
* @param p_unsuccessfulOutcome Receive template for UnsuccessfulOutcome message
template (present) UnsuccessfulOutcome p_unsuccessfulOutcome := ?
f_recv_S1AP_PDU( {unsuccessfulOutcome := p_unsuccessfulOutcome})
/**
* @desc Receive S1AP Message E_RABSetupResponse
* @param p_value Receive template for E_RABSetupResponse IEs
*/
function f_recv_E_RABSetupResponse(
template (present) RecordOf_ProtocolIE p_value := ?
) runs on S1APComponent {
f_recv_S1AP_successfulOutcome(mw_E_RABSetupResponse(p_value))
} // End of f_recv_E_RABSetupResponse
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
/**
* @desc Receive S1AP Message ENB DIRECT INFORMATION TRANSFER
* @param p_value Receive template for ENB_DIRECT_INFORMATION_TRANSFER IEs
* @see ETSI TS 136 413 V13.4.0 (2016-10) Clause 9.1.14 eNB DIRECT INFORMATION TRANSFER
*/
function f_recv_eNB_Direct_Information_Transfer(
template (present) RecordOf_ProtocolIE p_value := ?
) runs on S1APComponent {
f_recv_S1AP_initiatingMessage(mw_eNB_Direct_Information_Transfer(p_value))
} // End of f_recv_eNB_Configuration_Transfer
/**
* @desc Receive S1AP Message MME DIRECT INFORMATION TRANSFER
* @param p_value Receive template for MME_DIRECT_INFORMATION_TRANSFER IEs
* @see ETSI TS 136 413 V13.4.0 (2016-10) Clause 9.1.15 MME DIRECT INFORMATION TRANSFER
*/
function f_recv_Mme_Direct_Information_Transfer(
template (present) RecordOf_ProtocolIE p_value := ?
) runs on S1APComponent {
f_recv_S1AP_initiatingMessage(mw_Mme_Direct_Information_Transfer(p_value))
} // End of f_recv_Mme_Configuration_Transfer
/**
* @desc Receive S1AP Message ENB CONFIGURATION TRANSFER
* @param p_value Receive template for ENB_CONFIGURATION_TRANSFER IEs
* @see ETSI TS 136 413 V13.4.0 (2016-10) Clause 9.1.16 eNB CONFIGURATION TRANSFER
*/
function f_recv_eNB_Configuration_Transfer(
template (present) RecordOf_ProtocolIE p_value := ?
) runs on S1APComponent {
f_recv_S1AP_initiatingMessage(mw_eNB_Configuration_Transfer(p_value))
} // End of f_recv_eNB_Configuration_Transfer
/**
* @desc Receive S1AP Message MME CONFIGURATION TRANSFER
* @param p_value Receive template for MME_CONFIGURATION_TRANSFER IEs
* @see ETSI TS 136 413 V13.4.0 (2016-10) Clause 9.1.17 MME CONFIGURATION TRANSFER
*/
function f_recv_Mme_Configuration_Transfer(
template (present) RecordOf_ProtocolIE p_value := ?
) runs on S1APComponent {
f_recv_S1AP_initiatingMessage(mw_Mme_Configuration_Transfer(p_value))
} // End of f_recv_Mme_Configuration_Transfer
/**
* @desc Receive S1AP Message DOWNLINK_UE_ASSOCIATED_LPPA_TRANSPORT
* @param p_value Receive template for DOWNLINK_UE_ASSOCIATED_LPPA_TRANSPORT IEs
* @see ETSI TS 136 413 V13.4.0 (2016-10) Clause 9.1.19.1 DOWNLINK UE ASSOCIATED LPPA TRANSPORT
*/
function f_recv_Downlink_UE_Associated_Lppa_Transport(
template (present) RecordOf_ProtocolIE p_value := ?
) runs on S1APComponent {
f_recv_S1AP_initiatingMessage(mw_DownlinkUEAssociatedLppaTransport(p_value))
} // End of f_recv_Downlink_UE_Associated_Lppa_Transport
/**
* @desc Receive S1AP Message UPLINK_UE_ASSOCIATED_LPPA_TRANSPORT
* @param p_value Receive template for UPLINK_UE_ASSOCIATED_LPPA_TRANSPORT IEs
* @see ETSI TS 136 413 V13.4.0 (2016-10) Clause 9.1.17 MME CONFIGURATION TRANSFER
*/
function f_recv_Uplink_UE_Associated_Lppa_Transport(
template (present) RecordOf_ProtocolIE p_value := ?
) runs on S1APComponent {
f_recv_S1AP_initiatingMessage(mw_UplinkUEAssociatedLppaTransport(p_value))
} // End of f_recv_Uplink_UE_Associated_Lppa_Transport
/**
* @desc Receive S1AP Message DOWNLINK_NON_UE_ASSOCIATED_LPPA_TRANSPORT
* @param p_value Receive template for DOWNLINK_NON_UE_ASSOCIATED_LPPA_TRANSPORT IEs
* @see ETSI TS 136 413 V13.4.0 (2016-10) Clause 9.1.19.3 DOWNLINK NON UE ASSOCIATED LPPA TRANSPORT
*/
function f_recv_Downlink_Non_UE_Associated_Lppa_Transport(
template (present) RecordOf_ProtocolIE p_value := ?
) runs on S1APComponent {
f_recv_S1AP_initiatingMessage(mw_DownlinkNonUEAssociatedLppaTransport(p_value))
} // End of f_recv_Downlink_Non_UE_Associated_Lppa_Transport
/**
* @desc Receive S1AP Message UPLINK_NON_UE_ASSOCIATED_LPPA_TRANSPORT
* @param p_value Receive template for UPLINK_NON_UE_ASSOCIATED_LPPA_TRANSPORT IEs
* @see ETSI TS 136 413 V13.4.0 (2016-10) Clause 9.1.19.4 UPLINK NON UE ASSOCIATED LPPA TRANSPORT
*/
function f_recv_Uplink_Non_UE_Associated_Lppa_Transport(
template (present) RecordOf_ProtocolIE p_value := ?
) runs on S1APComponent {
f_recv_S1AP_initiatingMessage(mw_UplinkNonUEAssociatedLppaTransport(p_value))
} // End of f_recv_Uplink_Non_UE_Associated_Lppa_Transport
/**
* @desc Send functions description
*/
group sendPDU {
*/
function f_S1APPDU_Set(
inout template (value) S1AP_PDU p_PDU
) runs on S1APComponent {
if (ischosen(p_PDU.initiatingMessage)) {
//TODO...
vc_sendS1AP_PDU:=valueof(p_PDU);
}
//TODO...
vc_sendS1AP_PDU:=valueof(p_PDU);
}
//TODO...
vc_sendS1AP_PDU:=valueof(p_PDU);
}
* @desc Send S1AP PDU to protocol port
* @param p_PDU template value message to be send
*/
function f_send_S1AP_PDU(
in template (value) S1AP_PDU p_PDU
) runs on S1APComponent {
f_S1APPDU_Set(p_PDU);
S1_MMEeNB_P.send(p_PDU);
* @desc Send S1AP PDU with InitiatingMessage payload from protocol port
* @param p_initiatingMessage Send value template for InitiatingMessage message
*/
function f_send_S1AP_initiatingMessage(
in template (value) InitiatingMessage p_initiatingMessage
) runs on S1APComponent {
f_send_S1AP_PDU( {initiatingMessage := p_initiatingMessage})
* @desc Send S1AP PDU with SuccessfulOutcome payload from protocol port
* @param p_successfulOutcome Send value template for SuccessfulOutcome message
*/
function f_send_S1AP_successfulOutcome(
in template (value) SuccessfulOutcome p_successfulOutcome
f_send_S1AP_PDU( {successfulOutcome := p_successfulOutcome})
* @desc Send S1AP PDU with UnsuccessfulOutcome payload from protocol port
* @param p_unsuccessfulOutcome Send value template for UnsuccessfulOutcome message
in template (value) UnsuccessfulOutcome p_unsuccessfulOutcome
) runs on S1APComponent {
f_send_S1AP_PDU( {unsuccessfulOutcome := p_unsuccessfulOutcome})
/**
* @desc Send S1AP Message E-RAB_SetupRequest
* @param p_value Send template with IE for E-RAB_SetupRequest
*/
function f_send_E_RABSetupRequest(in template (value) RecordOf_ProtocolIE p_value
) runs on S1APComponent {
f_send_S1AP_initiatingMessage(m_E_RABSetupRequest(p_value))
} // End of function f_send_E_RABSetupRequest
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
/**
* @desc Setup full procedure functions
* @see ETSI TS 136 413 V13.4.0 (2016-10) Clause 8.1 List of S1AP Elementary procedures
*/
group fullProcedures {
/**
* @desc Setup a full E-RAB Setup procedure
*/
function f_rABSetupRequest() runs on S1APComponent {
f_send_E_RABSetupRequest(m_E_RABSetupReqIEs(
vc_MME_UE_ID,
vc_ENB_UE_ID,
{
m_E_RABToBeSetupItemBearerSUReq(1),
m_E_RABToBeSetupItemBearerSUReq(
2,
m_e_RABlevelQoSParameters
(255)
)
}
));
f_recv_E_RABSetupResponse(mw_E_RABSetupResIEs_FailedToSetupList(
vc_MME_UE_ID,
vc_ENB_UE_ID,
{
mw_E_RABSetupItemBearerSURes(1)
},
{
mw_E_RABItem(
2,
{
radioNetwork :=not_supported_QCI_value
}
)
}
));
} // End of function f_rABSetupRequest
/**
* @desc Setup a full E-RAB Release procedure
*/
function f_rABSetupRelease() runs on S1APComponent {
// TODO
} // End of function f_rABSetupRelease
} // End of group fullProcedures
group externalFunctions {
/**
* @desc Trigger an ENB direct information Transfer procedure
*/
external function fx_ENB_Direct_Information_Transfer_procedure_ind() return boolean;
/**
* @desc Trigger an ENB Configuration Transfer procedure
*/
external function fx_ENB_Configuration_Transfer_procedure_ind() return boolean;
/**
* @desc Trigger an MME Configuration Transfer procedure
*/
external function fx_MME_Configuration_Transfer_procedure_ind() return boolean;
/**
* @desc Trigger a LPPa Transport procedure using a UE associated signalling on eNodeB
* @param p_associated_signalling_mode Set to true for an associated signalling mode, false otherwise
*/
external function fx_eNB_LPPa_Transport_procedure_ind(
in boolean p_associated_signalling_mode
) return boolean;
/**
* @desc Trigger a LPPa Transport procedure using a UE associated signalling on MME
* @param p_associated_signalling_mode Set to true for an associated signalling mode, false otherwise
*/
external function fx_mme_LPPa_Transport_procedure_ind(
in boolean p_associated_signalling_mode
) return boolean;
} // End of group externalFunctions
function f_preambleS1AP_MME()
runs on S1APComponent {
//TODO:...
function f_preambleS1AP_eNB()
runs on S1APComponent {
//TODO:...
} // End of function f_preambleS1AP_eNB
} // End of group preamble_S1AP
function f_postambleS1AP_MME()
runs on S1APComponent {
// TODO:...
} // End of function f_postambleS1AP_MME
/**
* @desc
* @verdict
*/
function f_postambleS1AP_eNB()
runs on S1APComponent {
// TODO:...
} // End of function f_postambleS1AP_eNB
} // End of group postamble_S1AP
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
} // End of group postambles
/**
* @desc Global 'altstep' statements description
*/
group globalSteps {
/**
* @desc This is a test step that init S1AP component
*/
function f_S1AP_Init_Component()
runs on S1APComponent {
} // End of function f_S1AP_Init_Component
/**
* @desc Component termination
*/
function f_S1AP_terminate_component()
runs on S1APComponent {
log("component terminated - forced!");
deactivate;
stop;
} // End of function f_S1AP_terminate_component
/**
* @desc Component termination
*/
function f_componentStop()
runs on S1APComponent {
syncPort.send(m_syncClientStop);
S1_MMEeNB_P.clear;
stop;
} // End of function f_componentStop
/**
* @desc Original copied from older LibCommon_VerdictControl
*/
function f_getVerdict() // FIXME Are you sure we really need it???
return FncRetCode {
var FncRetCode v_ret := e_error;
if (getverdict == pass or getverdict == none) {
v_ret := e_success;
}
return v_ret;
} // End of function
/**
*
* @desc Wait for particular time before next expected message
*/
function f_wait(float p_time) // FIXME To be replace by LibCommon.f_sleep!!!
runs on S1APComponent {
tc_wait.start(p_time);
alt {
[] tc_wait.timeout{ }
}
} // End of function f_wait
} // End of group globalSteps
/**
* @desc Default 'altstep' statements description
*/
group defaultsTestStep {
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
runs on S1APComponent {
[] any timer.timeout {
all timer.stop;
if (vc_serverStop==false) {
f_selfOrClientSyncAndVerdict("error", e_timeout);
}
else {
stop;
}
}
[] S1_MMEeNB_P.receive (S1AP_PDU:{initiatingMessage := ?}) -> value vc_recvS1AP_PDUDefault {
repeat;
}
[] S1_MMEeNB_P.receive (S1AP_PDU:{successfulOutcome := ?}) -> value vc_recvS1AP_PDUDefault {
repeat;
}
[] S1_MMEeNB_P.receive (S1AP_PDU:{unsuccessfulOutcome := ?}) -> value vc_recvS1AP_PDUDefault {
repeat;
}
[] S1_MMEeNB_P.receive (S1AP_PDU:?) -> value vc_recvS1AP_PDUDefault {
if (vc_serverStop==false) {
f_selfOrClientSyncAndVerdict("error", e_error);
}
else {
stop;
}
}
[] S1_MMEeNB_P.receive {
if (vc_serverStop==false) {
f_selfOrClientSyncAndVerdict("error", e_error);
}
else {
stop;
}
}
[] a_shutdown() {
// Process temination on error
log("*** a_defaultS1AP() : Process temination on error ***");
// Terminate component execution
stop;
}
runs on S1APComponent {
[] any timer.timeout {
all timer.stop;
if (vc_serverStop==false) {
f_selfOrClientSyncAndVerdict("error", e_timeout);
}
else {
stop;
}
}
//TODO:...
} // End of altstep a_defaultS1AP_MME
runs on S1APComponent {
[] any timer.timeout {
all timer.stop;
if (vc_serverStop==false) {
f_selfOrClientSyncAndVerdict("error", e_timeout);
}
else {
stop;
}
}