epdg: Include BearerContext in CreateSessionResponse

Change-Id: I89e364a5be68105ae8811e8bc917f32511f9e6ef
diff --git a/library/GTPv2_Templates.ttcn b/library/GTPv2_Templates.ttcn
index 6bd3ba6..e1e71f0 100644
--- a/library/GTPv2_Templates.ttcn
+++ b/library/GTPv2_Templates.ttcn
@@ -505,6 +505,25 @@
 }
 
 /* 8.28 */
+template (value) BearerContextIEs
+ts_GTP2C_BcContextIE(template (value) uint4_t bid,
+		   template (omit) FullyQualifiedTEID_List teid_list := omit,
+		   template (omit) Bearer_QoS qos := ts_GTP2C_BearerQos('09'O, 0,0,0,0),
+		   template (omit) ChargingID charging_id := omit) := {
+	ePS_Bearer_ID 			:= ts_GTP2C_EpsBearerId(bid),
+	cause 				:= ts_GTP2C_Cause(Request_accepted, '0'B),
+	ePS_Bearer_TFT 			:= omit,
+	fullyQualifiedTEID 		:= teid_list,
+	bearerLevel_QoS 		:= qos,
+	chargingID 			:= charging_id,
+	bearerFlags 			:= omit,
+	transactionIdentifier 		:= omit,
+	protocolConfigOptions 		:= omit,
+	rAN_NASCause 			:= omit,
+	additionalProtocolConfigOptions := omit,
+	extendedProtocolConfigOptions 	:= omit
+}
+
 template (value) BearerContextGrouped
 ts_GTP2C_BcGrouped(template (value) BearerContextIEs ies) := {
 	elementIdentifier := '5D'O,
@@ -522,7 +541,16 @@
 	bearerContextIEs := ies
 }
 
-
+/* 8.29 */
+template (value) ChargingID
+ts_GTP2C_ChargingID(template (value) OCT4 chargingID_Value) := {
+	elementIdentifier := '5D'O,
+	lengthIndicator := 0, /* overwritten */
+	instance := '0000'B,
+	spare := '0000'B,
+	chargingID_Value := chargingID_Value,
+	additionalOctets := omit
+}
 
 /* 8.30 */
 template (value) ChargingCharacteristics
@@ -811,7 +839,8 @@
 
 template (value) PDU_GTPCv2
 ts_GTP2C_CreateSessionResp(template (value) FullyQualifiedTEID_List fteids,
-			   template (value) PDN_AddressAllocation addr) :=
+			   template (value) PDN_AddressAllocation addr,
+			   template (omit) BearerContextGrouped_List bearerContextGrouped := omit) :=
 ts_PDU_GTP2C('00000000'O, '000000'O, '21'O, {
 	createSessionResponse := {
 		cause := ts_GTP2C_Cause(Request_accepted, '0'B),
@@ -824,7 +853,7 @@
 		ambr := omit,
 		linkedEPS_Bearer_ID := omit,
 		protocolConfigOptions := omit,
-		bearerContextGrouped := omit,
+		bearerContextGrouped := bearerContextGrouped,
 		recovery := omit,
 		chargingGatewayName := omit,
 		chargingGatewayAddress := omit,