Newer
Older
* @author STF 346, STF366, STF368, STF369
* @version $Id$
* @desc This module provides the types used by the test component
* for SIP-IMS tests. Module become from STF306 and STF334-336
*/
module LibIms_Templates
{
//LibCommon
import from LibCommon_DataStrings all;
//LibSip
import from LibSip_SIPTypesAndValues all;
import from LibSip_SDPTypes all;
import from LibSip_Templates all;
import from LibSip_Steps all;
import from LibSip_PIXITS all;
import from LibSip_XMLTypes all;
//LibIms
import from LibIms_SIPTypesAndValues all;
import from LibIms_PIXITS all;
//LibXMLTypes
import from ietf_params_xml_ns_resource_lists language "XSD" all
with {
extension "File:../xsd/ResourceList.xsd"
}
import from org_etsi_uri__ngn_params_xml_simservs_xcap language "XSD" all
with {
extension "File:../xsd/SupplementaryServices.xsd"
}
import from org_etsi_uri__ngn_params_xml_simservs_mcid language "XSD" all
with {
extension "File:../xsd/MCID.xsd"
}
}
import from ietf_params_xml_ns_conference_info language "XSD" all
with {
extension "File:../xsd/CONF.xsd"
}
import from org_etsi_uri__ngn_params_xml_simservs_pstn language "XSD" all
with {
extension "File:../xsd/PSTN.xsd"
}
import from ietf_params_xml_ns_common_policy language "XSD" all
with {
extension "File:../xsd/common-policy.xsd"
}
import from org_etsi_uri__ngn_params_xml_comm_div_info language "XSD" all
with {
extension "File:../xsd/CDIVN.xsd"
}
import from X_3gpp_ns_cw_1_0 language "XSD" all
with {
extension "File:../xsd/cw.xsd"
}
template charstring m_international_number_format := pattern "\\+\d+";//pattern "\+\d+";
template NameAddr mw_SipUrl_SUTinterface(charstring p_host, integer p_port) :=
{
displayName := *,
addrSpec := {
scheme := "sip:",
userInfo := *,
hostPort := {p_host, p_port},
urlParameters := *,
headers := *
}
}
template Addr_Union mw_UE1_Addr_display := {nameAddr:={displayName:=PX_IMS_SUT_UE1_DISPLAY,addrSpec:=?}};
group Subfields{
template SipUrl m_SipUrl_currIpaddr_CSCF(in SipUserProfile p_userprofile) := //* SIP-URL of the test system on SIP side
{
scheme := c_sipScheme, //* contains "sip"
userInfo := omit, //* optional
hostPort :=
{
host := p_userprofile.currIpaddr, //* hostname, IPv4 or IPv6 as a charstring
portField := p_userprofile.currPort //* optional integer
},
urlParameters := omit,
headers := omit
}
template SemicolonParam_List mw_semicolonParams_realm (template charstring p_realm) :=
/*?;*/
superset({"realm",p_realm},{"nonce",?},{"algorithm","AKAv1-MD5"},{"ik",?},{"ck",?}) ;//Working with TTWorkbench// ERROR HERE! Superset operation must contain value list - no templates!
template SemicolonParam_List m_semicolonParams_language (template charstring p_language):=
{{"language",p_language}}
template SemicolonParam_List mw_semicolonParams_language (template charstring p_language):=
{{"language",p_language}}
template SemicolonParam_List m_semicolonParams_isub (template charstring p_address):=
{{"isub",p_address}}
}
group HeaderFieldTemplates{
template MinSE m_minSE(DeltaSec p_ds):=
{
fieldName := MIN_SE_E,
deltaSec:=p_ds,
minSeParam:=omit
}
template PathValue mw_pathvalue (template SipUrl p_sipUrl):=
nameAddr := {displayName := *, // optional charstring
addrSpec := p_sipUrl // SipUrl
},
}
template Path m_path (SipUrl p_sipUrl):=
{
fieldName := PATH_E,
pathValues := {
{nameAddr := {
displayName := omit, // optional charstring
addrSpec := p_sipUrl // SipUrl
},
rrParam := omit}
}
}
template Path m_path_TS := {
fieldName := PATH_E,
pathValues := {
{
nameAddr := {
displayName := omit, // optional charstring
addrSpec := {
scheme := c_sipScheme,
userInfo := {
userOrTelephoneSubscriber := "registrar",
password := omit
},
hostPort := {
PX_IMS_TS_PCSCF_HOME_DOMAIN, PX_IMS_TS_PCSCF_PORT
},
urlParameters := omit,
headers := omit
}
},
rrParam := omit
}
/*
* @desc Path header field expectation with at least one path value
* @param p_sipUrl value of the last element in the list of path values
*/
template Path mw_path (template SipUrl p_sipUrl):=
{
fieldName := PATH_E,
pathValues := {mw_pathvalue(p_sipUrl)} // any number of SipUrl may occur before p_sipUrl
}
template PAccessNetworkInfo m_pAccessNetworkInfo_IEEE_11a :=
{
fieldName := P_ACCESS_NETWORK_INFO_E,
accessType := "IEEE-802.11a",
genericParams := {{id:="extension-access-info",paramValue :="192.1.1.20"}}
};
template PAssertedService m_pAssertedService (PAssertedServiceValue p_pAssertedServiceValue):=
{
fieldName := P_ASSERTED_SERVICE_E,
pAssertedServiceValue := p_pAssertedServiceValue
};
template PChargingFunctionAddresses m_pChargingFunctionAddresses_fixedValue :=
{
fieldName := P_CHARGING_FUNCTION_ADDRESSES_E,
chargeAddrParams := {{id:="ccf",paramValue :="192.1.1.1;"}, // value is fixed because it is deleted on proxy
{id:="ecf",paramValue :="192.1.1.2"}} // value is fixed because it is deleted on proxy
};
template PChargingVector m_pChargingVector(template SemicolonParam_List p_chargeParams) :=
{
fieldName := P_CHARGING_VECTOR_E,
chargeParams := p_chargeParams
};
template PChargingVector m_pChargingVector_icid_TS :=
{
fieldName := P_CHARGING_VECTOR_E,
chargeParams := {{id:=c_icid, paramValue :=c_icid_value}}
template PChargingVector m_pChargingVector_origIoi_fixedValue(charstring p_homeDomain) :=
{
fieldName := P_CHARGING_VECTOR_E,
chargeParams := {{id:=c_icid, paramValue :=c_icid_value &";"},
{id:=c_icid_generated_at, paramValue :="192.1.1.10;"},
{id:=c_orig_ioi, paramValue := p_homeDomain}}
template PChargingVector m_pChargingVector_termIoi_fixedValue(charstring p_homeDomain) :=
{
fieldName := P_CHARGING_VECTOR_E,
chargeParams := {{id:=c_icid, paramValue :=c_icid_value&";"},
{id:=c_icid_generated_at, paramValue :="192.1.1.10;"},
{id:=c_term_ioi, paramValue := p_homeDomain}}
};
template PChargingVector m_pChargingVector_origIoi_fixedValue1(charstring p_homeDomain) :=
{
fieldName := P_CHARGING_VECTOR_E,
chargeParams := {
{id:=c_icid_generated_at, paramValue :="192.1.1.10;"},
{id:=c_orig_ioi, paramValue := p_homeDomain}}
};
template PChargingVector mw_pChargingVector(template charstring p_id, template charstring p_paramValue) :=
{
fieldName := P_CHARGING_VECTOR_E,
chargeParams := superset({id := p_id, paramValue := p_paramValue})
};
template PMediaAuthorization m_pMediaAuthorization_fixedValue :=
{
fieldName := P_MEDIA_AUTHORIZATION_E,
pMediaAuthorizations := {"A"} // example
};
template PEarlyMedia m_pEarlyMedia_sup :=
{fieldName := P_EARLY_MEDIA_E, em_param := {"supported"}};
template ProxyRequire m_proxyRequire_secAgree :=
{
fieldName := PROXY_REQUIRE_E,
optionsTags := {"sec-agree"}
};
template PVisitedNetworkID m_pVisitedNetworkID_TS :=
{
fieldName := P_VISITED_NETWORK_E,
vNetWorkSpec := {{vNetworkSpecToken := "Viseted ETSI 1",
genericParams := omit}}
}
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
template PVisitedNetworkID mw_pVisitedNetworkID :=
{
fieldName := P_VISITED_NETWORK_E,
vNetWorkSpec := {{vNetworkSpecToken := PX_IMS_SUT_PCSCF_VisitedNetworkID,
genericParams := *}}
}
template RecordRoute m_recordRoute_notmatching:=
{
fieldName := RECORD_ROUTE_E,
routeBody :=
{{
nameAddr :=
{
displayName := omit,
addrSpec :=
{
scheme := c_sipScheme, // contains "sip"
userInfo := {userOrTelephoneSubscriber := "unknown", password := omit},
hostPort :=
{
host := "unknown.domain.name", // hostname, IPv4 or IPv6 as a charstring
portField := omit
},
urlParameters := omit,
headers := omit
}
},
rrParam := omit
} }
};
template Require m_require_secAgree :=
{
fieldName := REQUIRE_E,
optionsTags := {"sec-agree"}
};
template Require mw_require_path :=
{
fieldName := REQUIRE_E,
optionsTags := superset("path")
};
template Route m_route_interface (in ImsInterfaceProfile p_interfaceprofile):=
{
fieldName := ROUTE_E,
routeBody := {{nameAddr := {displayName := omit,
addrSpec := {scheme := c_sipScheme, // contains "sip"
userInfo := omit,
hostPort := {host:=p_interfaceprofile.SUTHomeDomain, portField:= omit},
321
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
urlParameters := omit,
headers := omit}
},
rrParam := omit}
}};
template Route m_route_notmatching:=
{
fieldName := ROUTE_E,
routeBody :=
{{
nameAddr :=
{
displayName := omit,
addrSpec :=
{
scheme := c_sipScheme, // contains "sip"
userInfo := {userOrTelephoneSubscriber := "unknown", password := omit},
hostPort :=
{
host := "unknown.domain.name", // hostname, IPv4 or IPv6 as a charstring
portField := omit
},
urlParameters := omit,
headers := omit
}
},
rrParam := omit
} }
};
template SessionExpires m_se(DeltaSec p_ds):=
{
fieldName := SESSION_EXPIRES_E,
deltaSec:=p_ds,
seParam:=omit
}
template SessionExpires mw_se:=
{
fieldName := SESSION_EXPIRES_E,
deltaSec:=?,
seParam:=omit
}
template Supported m_supported_timer:=
{
fieldName := SUPPORTED_E,
optionsTags := {"timer"}
}
template Supported m_supported_histinfo:=
{
fieldName := SUPPORTED_E,
optionsTags := {"histinfo"}
}
template Supported m_supported_fromChange:=
{
fieldName := SUPPORTED_E,
optionsTags := {"from-change"}
}
template To m_To_targetRefreshRequest(template To p_To) :=
{
fieldName := TO_E,
addressField :=
{nameAddr := {
displayName := p_To.addressField.nameAddr.displayName,
addrSpec := p_To.addressField.nameAddr.addrSpec
}},//end addressField
toParams := {{id := c_tagId, paramValue := f_getRndTag()}}
};
template ViaBody m_ViaBody_virtualUEinPCSCF(charstring branch_val,in SipUserProfile p_userprofile) :=
{
sentProtocol := m_SentProtocol(PX_SIP_TRANSPORT),
sentBy:={host:=p_userprofile.contactIpaddr, portField:= p_userprofile.contactPort},
viaParams:={{id :=c_branchId,paramValue :=branch_val}}
}
template ViaBody m_ViaBody_virtual_XCSCF(charstring branch_val,in SipUserProfile p_userprofile) :=
{
sentProtocol := m_SentProtocol(PX_SIP_TRANSPORT),
sentBy:={host:=p_userprofile.currIpaddr, portField:= p_userprofile.currPort},
viaParams:={{id :=c_branchId,paramValue :=branch_val}}
}
template Via m_via_notmatching:=
{
fieldName := VIA_E,
viaBody :=
{{
sentProtocol := valueof(m_SentProtocol("UDP")),
sentBy:={host:="unknown.domain.name", portField:= 10000},
viaParams:={{id :=c_branchId,paramValue :="abcd0000"}}
} }
};
/*
* @desc WWW-Authenticate header field
template WwwAuthenticate m_wwwAuthenticate (Challenge p_challenge):=
{
fieldName := WWW_AUTHENTICATE_E,
challenge := p_challenge
}
/*
* @desc WWW-Authenticate header field
* @param p_challenge value
*/
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
template WwwAuthenticate mw_wwwAuthenticate (template SemicolonParam_List p_semicolonParam_List):=
{
fieldName := WWW_AUTHENTICATE_E,
challenge :=
{digestCln := p_semicolonParam_List // set of GenericParam
}
}
/*
* @desc AcceptContact header field
* @param p_acValues value
*/
template AcceptContact m_acceptContact (template SemicolonParam_List p_semicolonParam_List):=
{
fieldName := ACCEPT_CONTACT_E,
acValues := {{wildcard:=c_WILDCARD, acRcParams := p_semicolonParam_List} // set of GenericParam
}
}
/*
* @desc Authenticate header field
* @param p_challenge value
*/
template AcceptContact mw_acceptContact (template SemicolonParam_List p_semicolonParam_List):=
{
fieldName := ACCEPT_CONTACT_E,
acValues :=
{{wildcard:=c_WILDCARD, acRcParams := p_semicolonParam_List} // set of GenericParam
}
template SubscriptionState mw_subscriptionState(template charstring p_state) := {
fieldName := SUBSCRIPTION_STATE_E,
subState := p_state,
substateParams := omit
}
//[3455/5.1]
template PAssociatedURI m_pAssociatedURI (template NameAddr p_nameAddr) := {
fieldName := P_ASSOCIATED_URI_E,
nameAddrList := {{nameAddr:=p_nameAddr, genericParams:=omit}}
}
} // end group HeaderFieldTemplates
group MessageBodyTemplates {
group XMLTemplates {
// template XmlBody m_XmlBody_ACR_ICB(template Incoming_communication_barring p_icb) :=
// {
// icb := p_icb
// };
// template XmlBody m_XmlBody_ACR_OCB(template Outgoing_communication_barring p_ocb) :=
// {
// ocb := p_ocb
// };
template XmlBody m_XmlBody_ConfInfo(template Conference_type p_confInfo) :=
conference_type := p_confInfo
template XmlBody m_XmlBody_CW(template Ims_cw p_cw) :=
{
cw := p_cw
};
template XmlBody m_XmlBody_CUG(template Cug p_cug) :=
{
cug := p_cug
};
template XmlBody m_XmlBody_MCID(template Mcid p_mcid) :=
{
mcid := p_mcid
};
template XmlBody m_XmlBody_PSTNTransit(template PSTN_transit p_pstn) :=
{
pstnTransit := p_pstn
};
template XmlBody m_XmlBody_simservs(template Simservs p_simservs) :=
{
simservs := p_simservs
};
template XmlBody
m_XmlBody_ACR_ICB(template (value) Incoming_communication_barring p_icb) := {
simservs := {
anyAttributes := omit,
choice := {{incoming_communication_barring := p_icb}},
extensions := omit
}
}
template XmlBody m_XmlBody_ACR_OCB(template (value) Outgoing_communication_barring p_ocb) :=
{
simservs := {
anyAttributes := omit,
choice := {
{
outgoing_communication_barring := p_ocb
}
}
};
template XmlBody m_XmlBody_CDIVN(template Comm_div_info_type p_cdivn) :=
// template XmlBody m_XmlBody_CDIVN(template Comm_div_info p_cdivn) :=
// {
// cdivn := p_cdivn
// };
template XmlBody mw_XmlBody_ConfInfo(template Conference_type p_confInfo) :=
};
template XmlBody mw_XmlBody_CUG(template Cug p_cug) :=
{
cug := p_cug
};
template XmlBody mw_XmlBody_MCID(template Mcid p_mcid) :=
{
mcid := p_mcid
};
template XmlBody mw_XmlBody_PSTNTransit(template PSTN_transit p_pstn) :=
{
pstnTransit := p_pstn
};
template XmlBody mw_XmlBody_CDIVN(template Comm_div_info_type p_cdivn) :=
template XmlBody mw_XmlBody_simservs(template Simservs p_simservs) :=
{
simservs := p_simservs
};
template XmlBody mw_XmlBody_ResourceLists(template Resource_lists p_resourceLists) :=
{
resourceLists := p_resourceLists
};
}// end group XMLTemplates
group ACR_CBTemplates {
template Incoming_communication_barring m_ICB(RuleType p_ruleType) :=
{
active := omit,
anyAttributes := omit,
rule:= {p_ruleType}
}
}
template Outgoing_communication_barring m_OCB(RuleType p_ruleType) :=
{
active := omit,
anyAttributes := omit,
rule:= {p_ruleType}
}
}
template RuleType m_ruleType_actionFalse(template ConditionsType p_condition) :=
{
id := "rule66",
conditions := p_condition,
actions := {elem:={{boolean := false}}},
transformations := omit
}
template ConditionsType m_conditionsType_identity(template charstring p_id, template charstring p_scheme) := {
//scheme := p_scheme,
//any_1 := omit
elem := {charstring := p_scheme}
}
}}
}}
}}
}
} //end group ACR_CBTemplates
template Cug m_CUG (
template CugRequestType p_crt,
template NetworkIdentityType p_nit,
template SixteenbitType p_cibc,
template TwoBitType p_cci
):= {
active := omit,
anyAttributes := omit,
cugCallOperation := p_crt,
networkIndicator := p_nit,
cugInterlockBinaryCode := p_cibc,
cugCommunicationIndicator :=p_cci
template Cug mw_CUG (
template CugRequestType p_crt,
template NetworkIdentityType p_nit,
template SixteenbitType p_cibc,
template TwoBitType p_cci
):= {
active := omit,
anyAttributes := omit,
cugCallOperation := p_crt,
networkIndicator := p_nit,
cugInterlockBinaryCode := p_cibc,
cugCommunicationIndicator := p_cci
template CugRequestType m_cugReqType(boolean p_outAccessRequest, integer p_cugIndex) :=
// outgoingAccessRequest := p_outAccessRequest,
// cugIndex := p_cugIndex
//TODO: workaround for ttwb118
outgoingAccessRequest := {bool:=p_outAccessRequest},
template CugRequestType mw_cugReqType(template boolean p_outAccessRequest, template integer p_cugIndex) :=
{
outgoingAccessRequest := {bool:=p_outAccessRequest},
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
group CWTemplates {
template Ims_cw m_CW(template TEmptyType p_cwi) := {
anyAttributes := omit,
communication_waiting_indication := p_cwi,
elem := omit
}
template Cug m_CW2 (
template CugRequestType p_crt,
template NetworkIdentityType p_nit,
template SixteenbitType p_cibc,
template TwoBitType p_cci
):= {
active := omit,
anyAttributes := omit,
cugCallOperation := p_crt,
networkIndicator := p_nit,
cugInterlockBinaryCode := p_cibc,
cugCommunicationIndicator :=p_cci
}
template Cug mw_CW (
template CugRequestType p_crt,
template NetworkIdentityType p_nit,
template SixteenbitType p_cibc,
template TwoBitType p_cci
):= {
active := omit,
anyAttributes := omit,
cugCallOperation := p_crt,
networkIndicator := p_nit,
cugInterlockBinaryCode := p_cibc,
cugCommunicationIndicator := p_cci
}
}//end group CWTemplates
group MCIDTemplates {
template Mcid m_mcid_request_mcidIndicatorTrue :=
{
choice := {
request := {mcidRequestIndicator := bit2str('1'B),
holdingIndicator := bit2str('0'B)}
template Mcid m_mcid_request_mcidIndicatorTrue_holdIndTrue :=
{
choice := {
request := {mcidRequestIndicator := bit2str('1'B),
holdingIndicator := bit2str('1'B)}
template Mcid m_mcid_response_mcidIndicatorTrue :=
{
choice := {
response := {mcidResponseIndicator := bit2str('1'B),
holdingProvidedIndicator := bit2str('0'B)}
}
}
template Mcid mw_mcid_request_mcidIndicatorTrue :=
{
choice := {
request := {mcidRequestIndicator := bit2str('1'B),
holdingIndicator := ?}
}
}
template Mcid mw_mcid_response_mcidIndicatorTrue :=
{
choice := {
response := {mcidResponseIndicator := bit2str('1'B),
holdingProvidedIndicator := ?}
template Mcid mw_mcid_response_mcidIndicatorTrue_holdProvIndFalse :=
{
choice := {
response := {mcidResponseIndicator := bit2str('1'B),
holdingProvidedIndicator := bit2str('0'B)}
}
}
template Mcid mw_mcid_response_mcidIndicatorTrue_holdProvIndTrue :=
{
choice := {
response := {mcidResponseIndicator := bit2str('1'B),
holdingProvidedIndicator := bit2str('1'B)}
group PSTNTemplates {
template PSTN_transit m_PSTN_transit_BC1(template BearerCapabilityType p_bct) :=
{
bearerInfomationElement := {p_bct},
highLayerCompatibility := omit,
lowLayerCompatibility := omit,
progressIndicator := omit,
display_ := omit
}
template PSTN_transit m_PSTN_transit_BC2(template BearerCapabilityType p_bct,
template BearerCapabilityType p_bct2) :=
{
bearerInfomationElement := {p_bct, p_bct2},
highLayerCompatibility := omit,
lowLayerCompatibility := omit,
progressIndicator := omit,
display_ := omit
}
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
template PSTN_transit m_PSTN_transit_BC1_HLC1(template BearerCapabilityType p_bct,
template HighLayerCompatibilityType p_hlc) :=
{
bearerInfomationElement := {p_bct},
highLayerCompatibility := {p_hlc},
lowLayerCompatibility := omit,
progressIndicator := omit,
display_ := omit
}
template PSTN_transit m_PSTN_transit_BC1_LLC(template BearerCapabilityType p_bct,
template LowLayerCompatibilityType p_llc) :=
{
bearerInfomationElement := {p_bct},
highLayerCompatibility := omit,
lowLayerCompatibility := p_llc,
progressIndicator := omit,
display_ := omit
}
template PSTN_transit m_PSTN_transit_BC1_PI1(template BearerCapabilityType p_bct,
template ProgressIndicatorType p_pi1) :=
{
bearerInfomationElement := {p_bct},
highLayerCompatibility := omit,
lowLayerCompatibility := omit,
progressIndicator := {p_pi1},
display_ := omit
}
template PSTN_transit m_PSTN_transit_BC1_PI2(template BearerCapabilityType p_bct,
template ProgressIndicatorType p_pi1,
template ProgressIndicatorType p_pi2) :=
{
bearerInfomationElement := {p_bct},
highLayerCompatibility := omit,
lowLayerCompatibility := omit,
progressIndicator := {p_pi1, p_pi2},
display_ := omit
}
template PSTN_transit m_PSTN_transit_BC1_PI3(template BearerCapabilityType p_bct,
template ProgressIndicatorType p_pi1,
template ProgressIndicatorType p_pi2,
template ProgressIndicatorType p_pi3) :=
{
bearerInfomationElement := {p_bct},
highLayerCompatibility := omit,
lowLayerCompatibility := omit,
progressIndicator := {p_pi1, p_pi2, p_pi3},
display_ := omit
}
template PSTN_transit m_PSTN_transit_BC1_HLC2(template BearerCapabilityType p_bct,
template HighLayerCompatibilityType p_hlc1,
template HighLayerCompatibilityType p_hlc2) :=
{
bearerInfomationElement := {p_bct},
highLayerCompatibility := {p_hlc1, p_hlc2},
lowLayerCompatibility := omit,
progressIndicator := omit,
display_ := omit
}
template PSTN_transit m_PSTN_transit_BC1_HLC1_PI1(template BearerCapabilityType p_bct,
template HighLayerCompatibilityType p_hlc1,
template ProgressIndicatorType p_pi1) :=
{
bearerInfomationElement := {p_bct},
highLayerCompatibility := {p_hlc1},
lowLayerCompatibility := omit,
progressIndicator := {p_pi1},
display_ := omit
}
template PSTN_transit mw_PSTN_transit_bc(template BearerCapabilityType p_bct,
template BearerCapabilityType p_bct2) :=
{
bearerInfomationElement := {p_bct, p_bct2},
highLayerCompatibility := {*, *},
lowLayerCompatibility := *,
progressIndicator := {*},
display_ := {*}
template BearerCapabilityType m_BearerCapabilityType (Bit5 p_InfoTrfCap):= {
bCoctet3 := {codingStandard := bit2str('00'B), //Coding standard = CCITT standardized coding
informationTransferCabability := bit2str(p_InfoTrfCap)},//Information transfer capability
bCoctet4 := {transferMode := bit2str('00'B), //Coding standard = CCITT standardized coding
informationTransferRate := bit2str('10000'B)}, //Information transfer rate = 64 kbit/s
bCoctet4_1 := omit,
bCoctet5 := omit,
bCoctet5a := omit,
bCoctet5bV110 := omit,
bCoctet5bV120 := omit,
bCoctet5c := omit,
bCoctet5d := omit,
bCoctet6 := omit,
bCoctet7 := omit,
bCoctet7a := omit,
bCoctet7b := omit
template ProgressIndicatorType m_ProgressIndicatorType (Bit7 p_progDesc) := {
progressOctet3 := {codingStandard := bit2str('00'B),
location := bit2str('0000'B)
progressOctet4 := {progressDescription := bit2str(p_progDesc)}
template LowLayerCompatibilityType m_LowLayerCompatibilityType (Bit5 p_InfoTrfCap) := {
lLOctet3 := {codingStandard := bit2str('00'B), //Coding standard = CCITT standardized coding
informationTransferCapability := bit2str(p_InfoTrfCap)},//Information transfer capability
lLOctet3a := omit,
lLOctet4 := {transferMode := bit2str('00'B), //Coding standard = CCITT standardized coding
informationTransferRate := bit2str('10000'B)}, //Information transfer rate = 64 kbit/s
lLOctet4_1 := omit,
lLOctet5 := omit,
lLOctet5a := omit,
lLOctet5bV110 := omit,
lLOctet5bV120 := omit,
lLOctet5c := omit,
lLOctet5d := omit,
lLOctet6 := omit,
lLOctet6aHDLC := omit,
lLOctet6aUserSpecific := omit,
lLOctet6b := omit,
lLOctet7 := {layer3Identification := bit2str('10'B), //TODO check valueand if parameter is mandatory
userInfoLayer3Protocol := bit2str('10000'B)}, //TODO check value and if parameter is mandatory
lLOctet7aUserSpecific := omit,
lLOctet7aX25 := omit,
lLOctet7bX25 := omit,
lLOctet7c := omit,
lLOctet7aTR9577 := omit,
lLOctet7bTR9577 := omit
}
template HighLayerCompatibilityType m_HighLayerCompatibilityType
hLOctet3 := {
codingStandard :=bit2str('00'B),
interpretation :=bit2str('100'B),
presentationMethod := bit2str('01'B)
hLOctet4 := {
highLayerCharacteristics := bit2str(p_HLOctet4)
hLOctet4aMaintenance := omit,
hLOctet4Audio := omit
}
template BearerCapabilityType mw_BearerCapabilityType (template BCOctet3Type p_BCOctet3Type, template BCOctet4Type p_BCOctet4Type):= {
bCoctet3 := p_BCOctet3Type,
bCoctet4 := p_BCOctet4Type,
bCoctet4_1 := * ,
bCoctet5 := * ,
bCoctet5a := * ,
bCoctet5bV110 := * ,
bCoctet5bV120 := * ,
bCoctet5c := * ,
bCoctet5d := * ,
bCoctet6 := * ,
bCoctet7 := * ,
bCoctet7a := * ,
bCoctet7b := *
template BearerCapabilityType mw_BearerCapabilityType_TrfCap (Bit5 p_InfoTrfCap):= {
bCoctet3 := {codingStandard := bit2str('00'B), //Coding standard = CCITT standardized coding
informationTransferCabability := bit2str(p_InfoTrfCap)},//Information transfer capability
bCoctet4 := {transferMode := bit2str('00'B), //Coding standard = CCITT standardized coding
informationTransferRate := bit2str('10000'B)}, //Information transfer rate = 64 kbit/s
bCoctet4_1 := * ,
bCoctet5 := * ,
bCoctet5a := * ,
bCoctet5bV110 := * ,
bCoctet5bV120 := * ,
bCoctet5c := * ,
bCoctet5d := * ,
bCoctet6 := * ,
bCoctet7 := * ,
bCoctet7a := * ,
bCoctet7b := *
}
template ProgressIndicatorType mw_ProgressIndicatorType (template ProgressOctet3Type p_ProgressOctet3Type, template ProgressOctet4Type p_ProgressOctet4Type) := {
progressOctet3 := p_ProgressOctet3Type,
progressOctet4 := p_ProgressOctet4Type