regression_test/RAW/HN25015/SGsAP_Types.ttcn

   1 /******************************************************************************
   2  * Copyright (c) 2000-2015 Ericsson Telecom AB
   3  * All rights reserved. This program and the accompanying materials
   4  * are made available under the terms of the Eclipse Public License v1.0
   5  * which accompanies this distribution, and is available at
   6  * http://www.eclipse.org/legal/epl-v10.html
   7  ******************************************************************************/
   8 //
   9 //  File:               SGsAP_Types.ttcn
  10 //  Rev:                <RnXnn>
  11 //  Prodnr:             CNL 113 684
  12 //  Updated:            2010-06-29
  13 //  Contact:            http://ttcn.ericsson.se
  14 //  Reference:          3GPP TS 29.118 v9.0.0
  15 //
  16
  17 module SGsAP_Types
  18 {
  19  import from General_Types all;
  20
  21  external function enc_PDU_SGsAP(in PDU_SGsAP pdu) return octetstring
  22  with { extension "prototype(convert)" extension "encode(RAW)" }
  23
  24  external function dec_PDU_SGsAP(in octetstring stream) return PDU_SGsAP
  25  with { extension "prototype(convert)" extension "decode(RAW)" }
  26
  27  // 9.4.6
  28  type record IMSI_Value
  29  {
  30   BIT3               field1, //'001'B
  31   BIT1               parity,
  32   hexstring          digits,
  33   BIT4               fillerDigit optional
  34  } with {
  35    variant (fillerDigit) "PRESENCE (parity = '0'B)";
  36  }
  37
  38  type record IMSI
  39  {
  40    BIT8                   iEI,
  41    LIN1                   lengthIndicator,
  42    IMSI_Value             iMSI
  43  } with {
  44    variant "PRESENCE (iEI = '00000001'B)";
  45    variant (lengthIndicator) "LENGTHTO (iMSI)"
  46  };
  47
  48
  49  // 9.4.18
  50  type record SGsCause
  51  {
  52    BIT8                   iEI,
  53    LIN1                   lengthIndicator,
  54    SGs_Cause              cause
  55  } with {
  56      variant "PRESENCE (iEI = '00001000'B)";
  57      variant (lengthIndicator) "LENGTHTO (cause)"
  58  };
  59
  60  type enumerated SGs_Cause
  61  {
  62    unspecified_value_14                               (14)
  63  } with { variant "FIELDLENGTH(8)"; }
  64
  65
  66  // 9.4.22
  67  type record VLR_Name
  68  {
  69    BIT8                       iEI,
  70    LIN1                       lengthIndicator,
  71    charstring                 name
  72  } with {
  73      variant "PRESENCE (iEI = '00000010'B)";
  74      variant (lengthIndicator) "LENGTHTO (name)"
  75  };
  76
  77  // 8.13
  78  type record SGsAP_PAGING_REJECT
  79  {
  80   BIT8                         messageType,
  81   IMSI                         iMSI,
  82   SGsCause                     sGsCause
  83  } with {
  84      variant "PRESENCE (messageType = '00000010'B)";
  85  }
  86
  87  // 8.14
  88  type record SGsAP_PAGING_REQUEST
  89  {
  90   BIT8                         messageType,
  91   IMSI                         iMSI,
  92   VLR_Name                     vLR_Name
  93  } with {
  94      variant "PRESENCE (messageType = '00000001'B)";
  95  }
  96
  97  type union PDU_SGsAP
  98  {
  99
 100    SGsAP_PAGING_REJECT                sGsAP_PAGING_REJECT,
 101    SGsAP_PAGING_REQUEST               sGsAP_PAGING_REQUEST
 102  } with { variant ""}
 103
 104 } with { encode "RAW"}