diff --git a/library/GSM_RR_Types.ttcn b/library/GSM_RR_Types.ttcn
index ef209e4..675271f 100644
--- a/library/GSM_RR_Types.ttcn
+++ b/library/GSM_RR_Types.ttcn
@@ -158,6 +158,21 @@
 		message_type := msg_type
 	}
 
+	/* TS 44.004 7.2.1 */
+	type record SacchL1Header {
+		uint2_t		reserved,
+		boolean		fpc,
+		uint5_t		ms_power_lvl,
+		uint8_t		actual_ta
+	} with { variant "FIELDORDER(msb)" };
+
+	template (value) SacchL1Header ts_SacchL1Header(uint5_t ms_power_lvl, boolean fpc, uint8_t actual_ta) := {
+		reserved := 0,
+		fpc := fpc,
+		ms_power_lvl := ms_power_lvl,
+		actual_ta := actual_ta
+	};
+
 	type record MaioHsn {
 	} with { variant "" };