ggsn: Submit RATType in CreatePDPContextReq

According to TS 29.060, sec 7.3.1 Create PDP Context Request:
"The SGSN shall include the RAT Type IE during Primary PDP Context
Activation procedure."

Change-Id: Ibc57798e50ccd08ef6126f75f7c8134e56d2778a
diff --git a/library/GTP_Templates.ttcn b/library/GTP_Templates.ttcn
index 9c8d1b6..94f327e 100644
--- a/library/GTP_Templates.ttcn
+++ b/library/GTP_Templates.ttcn
@@ -287,10 +287,25 @@
 		padding := 'F'H
 	}
 
+	function f_ts_RATType(template (omit) OCT1 ratType := omit) return template (omit) RATType {
+		var template (omit) RATType rt;
+		if (istemplatekind(ratType, "omit")) {
+			rt := omit;
+		} else {
+			rt := {
+				type_gtpc := '97'O,
+				lengthf := 1,
+				ratTypeValue := ratType
+			};
+		}
+		return rt;
+	}
+
 	template GTPC_PDUs ts_CreatePdpPDU(hexstring imsi, OCT1 restart_ctr, OCT4 teid_data, OCT4 teid_ctrl,
 					   BIT4 nsapi, EndUserAddress eua, octetstring apn,
 					   octetstring sgsn_ip_sign, octetstring sgsn_ip_data,
-					   octetstring msisdn, template ProtConfigOptions pco := omit) := {
+					   octetstring msisdn, template ProtConfigOptions pco := omit,
+					   template (omit) OCT1 ratType := omit) := {
 		createPDPContextRequest := {
 			imsi := ts_Imsi(imsi),
 			rai := omit,
@@ -329,7 +344,7 @@
 			omcId := omit,
 			commonFlags := omit,
 			aPN_Restriction := omit,
-			ratType := omit,
+			ratType := f_ts_RATType(ratType),
 			userLocationInformation := omit,
 			mS_TimeZone := omit,
 			imeisv := omit,
@@ -351,12 +366,13 @@
 						 OCT4 teid_ctrl, BIT4 nsapi, EndUserAddress eua,
 						 octetstring apn, octetstring sgsn_ip_sign,
 						 octetstring sgsn_ip_data, octetstring msisdn,
-						 template ProtConfigOptions pco := omit) := {
+						 template ProtConfigOptions pco := omit,
+						 template (omit) OCT1 ratType := omit) := {
 		peer := peer,
 		gtpc := ts_GTP1C_PDU(createPDPContextRequest, '00000000'O,
 					valueof(ts_CreatePdpPDU(imsi, restart_ctr, teid_data, teid_ctrl,
 								nsapi, eua, apn, sgsn_ip_sign,
-								sgsn_ip_data, msisdn, pco)), seq)
+								sgsn_ip_data, msisdn, pco, ratType)), seq)
 	}