Commit e20dcdbd authored by schmitting's avatar schmitting
Browse files

Basic call finished

parent f05caefb
Loading
Loading
Loading
Loading
+6 −0
Original line number Diff line number Diff line
@@ -64,6 +64,9 @@ const Bit1 c_BCI_isdnUpInd_used := '1'B;
/* Value '#16 Normal call clearing' of element 'Cause indicator' in IE 'Cause'. */
const integer c_CAU_CauseVal_16 := 16;

/* Value '#28 Invalid number format (address incomplete)' of element 'Cause indicator' in IE 'Cause'. */
const integer c_CAU_CauseVal_28 := 28;

/* Value '#31 Normal, unspecified' of element 'Cause indicator' in IE 'Cause'. */
const integer c_CAU_CauseVal_31 := 31;

@@ -73,6 +76,9 @@ const integer c_CAU_CauseVal_41 := 41;
/* Value '#47 Resource unavailable, unspecified' of element 'Cause indicator' in IE 'Cause'. */
const integer c_CAU_CauseVal_47 := 47;

/* Value '#127 Interworking' of element 'Cause indicator' in IE 'Cause'. */
const integer c_CAU_CauseVal_127 := 127;

/* Value 'CCBS possible' of element 'Diagnostics' in IE 'Cause'. */
const octetstring c_CAU_cDiagn_CCBSposs := '01'O;

+2 −16
Original line number Diff line number Diff line
@@ -385,25 +385,11 @@ octetstring PX_ISUP_IAM_UUI_userInfo_S2 := '0449534B524154454C'O;
*/
octetstring		PX_ISUP_IAM_UUI_userInfo_S3 := '0449534B524154454C'O;

/*  @desc	'Cause' value (decimal) received in the 'Cause' parameter in the REL message, when the IW-U has received a BYE message from SIP.
/*  @desc	'Location' value sent in the 'Cause indicators' parameter.
** @remark	PICS/PIXIT Reference: TISPAN DTS 06014-3, Table A5, item 5.10.1
*/
integer		PX_ISUP_REL_CAU_cVal_bye := 16;
Bit4		PX_ISUP_CAU_location := '0000'B;

/*  @desc	'Cause' value (decimal) received in the 'Cause' parameter in the REL message, when the IW-U has received a CANCEL message from SIP.
** @remark	PICS/PIXIT Reference: TISPAN DTS 06014-3, Table A5, item 5.10.2
*/
integer		PX_ISUP_REL_CAU_cVal_cancel := 16;

/*  @desc	'Cause' value (decimal) received in the 'Cause' parameter in the REL message, when the IWU-O has autonomously released the call.
** @remark	PICS/PIXIT Reference: TISPAN DTS 06014-3, Table A5, item 5.10.3
*/
integer		PX_ISUP_REL_CAU_cVal_autonomous := 31;

/*  @desc	'Cause value' value sent in the 'Cause' parameter in the REL message, when the diagnostics field indicates 'CCBS possible'.
** @remark	PICS/PIXIT Reference: TISPAN DTS 06014-3, Table A5, item 5.10.4
*/
integer		PX_ISUP_REL_CAU_CCBSposs := 17;

/*  @desc	SIP/ISUP interworking, after SUT send IAM message there exist possibility to await COT message
 * true - await COT message
+1 −1
Original line number Diff line number Diff line
@@ -520,7 +520,7 @@ template FRJ_MSG mw_FRJ_CAU(integer p_cauVal) :=
 facilityIndicator := ?,                                 /* Facility indicator, F, len=1 */
 pCAUI := '00000010'B,                                   /* Pointer to parameter 'Cause indicators'. */
 pOptional := ?,                                         /* Pointer to optional parameters. */
 causeIndicators := mw_CAU(p_cauVal,?,*),                /* Cause indicators, V, len=3-? */
 causeIndicators := mw_CAU(p_cauVal,?),                  /* Cause indicators, V, len=3-? */
 optionalParameters := mw_FRJ_OPTIONAL_PARAMS_any,       /* SET: optional parameters of Facility reject message (FRJ) */
 endOfOptionalParameters := '00000000'B ifpresent        /* End of optional parameters, O, len=1 */
}
+9 −11
Original line number Diff line number Diff line
@@ -859,7 +859,7 @@ template CAUI_PAR_lv m_CAU(integer p_cauVal) :=
/* Default TX template for Cause indicators parameter (CAUI); Mandatory Variable (V) format. */
{
 paramLen := '00000010'B,                       /* Parameter Length field */
 location := '0000'B,                           /* location */
 location := PX_ISUP_CAU_location,              /* location */
 spare := '0'B,                                 /* spare */
 codingStandard := '00'B,                       /* codingStandard */
 ext1 := '1'B,                                  /* Extension */
@@ -895,9 +895,7 @@ template CAUI_PAR_tlv mw_CAUI_PAR_tlv_any :=
 diagnostics := *          /* Diagnostic(s) (if any) */
}

template CAUI_PAR_lv mw_CAU(template integer p_cauVal,
							template Bit4 p_location,
							template octetstring p_diagnostics) :=
template CAUI_PAR_lv mw_CAU(template integer p_cauVal, template Bit4 p_location) :=
/* TX template for Cause indicators parameter (CAUI); Mandatory Variable (V) format, with cause value parameterized and diagnostics = '2A'O. */
{
 paramLen := '00000011'B,                     /* Parameter Length field */
@@ -907,7 +905,7 @@ template CAUI_PAR_lv mw_CAU(template integer p_cauVal,
 ext1 := ?,                                   /* Extension */
 causeValue := int2bit(valueof(p_cauVal), 7), /* Cause value */
 ext2 := ?,                                   /* Extension */
 diagnostics := p_diagnostics        /* Diagnostic(s) */
 diagnostics := *                             /* Diagnostic(s) */
}
} /* end group CAU */

+0 −90
Original line number Diff line number Diff line
@@ -376,28 +376,6 @@ group SipIsup_ISUP_Receive_Msgs
	  }
	}
  
	function f_awaiting_CGBA2(template CGBA_MSG p_CGBA) runs on IsupBiccComponent
	{
	  v_Default := activate (a_IsupBicc_Def_Generic());
      
	  TWait.start;
	  alt
	  {
		[PX_ISUP_Isup] IsupBiccP.receive 
		   (mw_ISUP_MSG_ind(v_CircuitIdentityCode2, { cGBA_MSG := p_CGBA}, v_SLS2))
		   {
			 setverdict(pass);
			TWait.stop;
		   };
		[not PX_ISUP_Isup] IsupBiccP.receive 
		   (mw_BICC_MSG_ind(v_CallInstanceCode2, { cGBA_MSG := p_CGBA}))
		   {
			 setverdict(pass);
			TWait.stop;
		   };
	  }
	}
  
	function f_awaiting_CON(template CON_MSG p_CON) runs on IsupBiccComponent
	{
	  v_Default := activate (a_IsupBicc_Def_Generic());
@@ -530,28 +508,6 @@ group SipIsup_ISUP_Receive_Msgs
	  }
	}
  
	function f_awaiting_GRA2(template GRA_MSG p_GRA) runs on IsupBiccComponent
	{
	  v_Default := activate (a_IsupBicc_Def_Generic());
      
	  TWait.start;
	  alt
	  {
		[PX_ISUP_Isup] IsupBiccP.receive 
		   (mw_ISUP_MSG_ind(v_CircuitIdentityCode2, { gRA_MSG := p_GRA}, v_SLS2))
		   {
			 setverdict(pass);
			TAck.stop;
		   };
		[not PX_ISUP_Isup] IsupBiccP.receive 
		   (mw_BICC_MSG_ind(v_CallInstanceCode2, { gRA_MSG := p_GRA}))
		   {
			 setverdict(pass);
			TAck.stop;
		   };
	  }
	}
  
	function f_awaiting_IAM(template IAM_MSG p_IAM) runs on IsupBiccComponent
	{
	  v_Default := activate (a_IsupBicc_Def_Generic());
@@ -909,29 +865,6 @@ group SipIsup_ISUP_Transmit_Msgs
	  }
	}

	function f_send_CGB2(template CGB_MSG p_CGB, boolean p_delay) runs on IsupBiccComponent
	{
	  v_Default := activate (a_IsupBicc_Def_Generic());
      
	  if (p_delay == true)
	  {
		TDelay_CGB.start;
		alt
		{
		   [] TDelay_CGB.timeout{};
		}
	  }
	  if (PX_ISUP_Isup == true)
	  {
		 IsupBiccP.send (m_ISUP_MSG_req(v_CircuitIdentityCode2, { cGB_MSG := p_CGB}, v_SLS2));
	  }
	  else
	  {
		 IsupBiccP.send (m_BICC_MSG_req(v_CallInstanceCode2, { cGB_MSG := p_CGB}));
		 v_ISUP_BearerState2 := 0;
	  }
	}

	function f_send_CON(template CON_MSG p_CON, boolean p_delay) runs on IsupBiccComponent
	{
	  v_Default := activate (a_IsupBicc_Def_Generic());
@@ -1087,29 +1020,6 @@ group SipIsup_ISUP_Transmit_Msgs
	  }
	}

	function f_send_GRS2(template GRS_MSG p_GRS, boolean p_delay) runs on IsupBiccComponent
	{
	  v_Default := activate (a_IsupBicc_Def_Generic());
      
	  if (p_delay == true)
	  {
		TDelay_GRS.start;
		alt
		{
		   [] TDelay_GRS.timeout{};
		}
	  }
	  if (PX_ISUP_Isup == true)
	  {
		 IsupBiccP.send (m_ISUP_MSG_req(v_CircuitIdentityCode2, { gRS_MSG := p_GRS}, v_SLS2));
	  }
	  else
	  {
		 IsupBiccP.send (m_BICC_MSG_req(v_CallInstanceCode2, { gRS_MSG := p_GRS}));
		 v_ISUP_BearerState2 := 0;
	  }
	}

	function f_send_IAM(template IAM_MSG p_IAM) runs on IsupBiccComponent
	{
	  v_Default := activate (a_IsupBicc_Def_Generic());
Loading