**************************************************************************************************** ** LNG product : ELISA source **************************************************************************************************** ** Type: Test Sequence ** ** Description: Test sequence used to put SWA into BURST mode. ** ** Input Arguments: sModeTrans : Define the transition mode to be executed ** sUnit : select EAS1 or EAS2 ** ** Output Values: None ** ** CSW Version: Version 2.1.3 ** ** FOPs used (name & version): N/A ** ** TM Packets Used: N/A ** ** Test Spec & Reference: SO-SWA-MSSL-TP-061 Issue 1 ** ** Restrictions and Limitations: N/A ** **************************************************************************************************** ** History **-------------------------------------------------------------------------------------------------- ** Version Date Author Comment **-------------------------------------------------------------------------------------------------- ** 1.1 27/01/2019 J Silverthorn Initial creation. ** 1.2 12/02/2019 Add proto for Burst Duration ** 1.3 14/02/2019 Add proto for $TM ** 1.4 04/03/2109 Burst command only sent if current minute is odd. ** 1.5 05/03/2019 Debug of timing script ** 1.7 13/03/2019 D Cowan Modified timing script ** 1.8 Added operator prompt after burst mode is complete ** 1.9 20/03/2019 J Silverthorn Printout of command time ** 1.10 29/03/2019 Removal of time synchronised commanding ** Command ZIA58873 added 5mins 20seconds after burst command - email G. Lewis 29/3/19 ** 1.11 01/04/2019 Romoval of user prompt at end ** 1.12 17/04/2019 New mode transition to recover SWA densors from Thruster firing flag event ** 1.13 02/05/2019 Updated in line with latest SWA procedure SO-SWA-MSSL-TP-061_SWA BM Issue 4 ** RECOVER mode removed as not needed ** 1.14 Capture of YIA58982 only possible when TM = YES **************************************************************************************************** sequence TISS_SWA_MOD_MNG -- Define entry arguments PROTO string $sModeTrans ["NORMAL2BURST"] -- Choose which mode transition shall be performed int $iBurst_duration := 2400 -- x8 per second. 2400 = 5 minutes, 14400 = 30 minutes string $TM := "YES" ["YES", "NO"] END PROTO -- Define variables VAR date $dCurDate string $s_Trace := "TRACE" int $i_reportFlowID(22) int $i int $i_RptRefNb string $sTimeNow string $sMinNow int $iMin int $iMinNew int $iSecs string $s_Answer(2) -- Main sequence MAIN WINDOW @su_seqstart("Start TISS_SWA_MOD_MNG", *$dCurDate, $s_Trace) SWITCH $sModeTrans Case "NORMAL2BURST" TA_PRINT "Put SWA into Burst mode for 5 minutes" $i_reportflowID(0) := startreportflow("AB.TM.YIA58726") $i_reportflowID(1) := startreportflow("AB.TM.YIA58886") $i_reportflowID(2) := startreportflow("AB.TM.YIA58887") $i_reportflowID(3) := startreportflow("AB.TM.YIA58888") $i_reportflowID(4) := startreportflow("AB.TM.YIA58602") $i_reportflowID(5) := startreportflow("AB.TM.YIA58806") $i_reportflowID(6) := startreportflow("AB.TM.YIA58805") $i_reportflowID(7) := startreportflow("AB.TM.YIA58801") $i_reportflowID(8) := startreportflow("AB.TM.YIA58811") $i_reportflowID(9) := startreportflow("AB.TM.YIA58729") $i_reportflowID(10) := startreportflow("AB.TM.YIA58700") $i_reportflowID(11) := startreportflow("AB.TM.YIA58705") $i_reportflowID(12) := startreportflow("AB.TM.YIA58982") $i_reportflowID(13) := startreportflow("AB.TM.YIA58992") $i_reportflowID(14) := startreportflow("AB.TM.YIA58727") $i_reportflowID(15) := startreportflow("AB.TM.YIA58703") $i_reportflowID(16) := startreportflow("AB.TM.YIA58704") $i_reportflowID(17) := startreportflow("AB.TM.YIA58713") $i_reportflowID(18) := startreportflow("AB.TM.YIA58701") $i_reportflowID(19) := startreportflow("AB.TM.YIA58702") $i_reportflowID(20) := startreportflow("AB.TM.YIA58711") $i_reportflowID(21) := startreportflow("AB.TM.YIA58982") @su_send({ AB.TC.ZIA58913 , \ SHF:OBV := 0 , \ SID:OBV := 120 , \ PIA60001_ := 5 }, $s_Trace) @su_wait(60) if ($TM = "YES") @RPZA_CATCHTMPCKT($i_reportFlowID(21), "AB.TM.YIA58982", *$i_RptRefNb,10) endif @su_send({ AB.TC.ZIA58726 , \ SHF:OBV := 0 , \ SID:OBV := 120 , \ PIA60157_ := $iBurst_duration , \ PIA60158_ := 0 , \ PIA60159_ := $iBurst_duration , \ PIA60160_ := 0 , \ PIA60163_ := 2400 , \ -- PAS limited to 5 minutes Burst only PIA60164_ := 0 , \ PIA60170_ := "DYNAMIC" , \ PIA60161_ := $iBurst_duration , \ PIA60162_ := 0 }, $s_Trace) @su_wait(320) @su_send({ AB.TC.ZIA58873 , \ SHF:OBV := 0 , \ SID:OBV := 120 , \ PIA60347_ := 0xFF }, $s_Trace) -- Reception of -- TM,YIA58726 ; (21,6) SSID=4 SWA_TM_SCI_EAS_CBURST_COMPR_DATA -- TM,YIA58726 ; (21,3) SSID=211 SWA_TM_SCI_PAS_TRIGG_CBURST_RAW_START -- TM,YIA58726 ; (21,3) SSID=212 SWA_TM_SCI_PAS_TRIGG_CBURST_RAW_FIRST -- TM,YIA58726 ; (21,6) SSID=213 SWA_TM_SCI_PAS_TRIGG_CBURST_RAW_DATA -- TM,YIA58602 ; (5,1) SID=43802 SWA_E_HIS_MODE_CHANGE -- TM,YIA58806 ; (21,6) SSID=130 SWA_TM_HIS_SCI_VDF_BURST -- TM,YIA58805 ; (21,6) SSID=131 SWA_TM_HIS_SCI_SENS_PRIO_BURST -- TM,YIA58801 ; (21,3) SSID=128 SWA_TM_HIS_SCI_CONF_BURST -- TM,YIA58811 ; (21,6) SSID=133 SWA_TM_HIS_SCI_LOW_LATENCY_BURST @su_wait(($iBurst_duration / 8) - 320) -- in seconds if ($TM = "YES") ta_print "Checking expected packets arrived during the expected Burst mode" -- Needs VCID3 @RPZA_CATCHTMPCKT($i_reportFlowID(0), "AB.TM.YIA58726", *$i_RptRefNb,10) @RPZA_CATCHTMPCKT($i_reportFlowID(1), "AB.TM.YIA58886", *$i_RptRefNb,10) @RPZA_CATCHTMPCKT($i_reportFlowID(2), "AB.TM.YIA58887", *$i_RptRefNb,10) @RPZA_CATCHTMPCKT($i_reportFlowID(3), "AB.TM.YIA58888", *$i_RptRefNb,10) -- No need for VCID3 @RPZA_CATCHTMPCKT($i_reportFlowID(4), "AB.TM.YIA58602", *$i_RptRefNb,10) -- Needs VCID3 @RPZA_CATCHTMPCKT($i_reportFlowID(5), "AB.TM.YIA58806", *$i_RptRefNb,10) @RPZA_CATCHTMPCKT($i_reportFlowID(6), "AB.TM.YIA58805", *$i_RptRefNb,10) @RPZA_CATCHTMPCKT($i_reportFlowID(7), "AB.TM.YIA58801", *$i_RptRefNb,10) @RPZA_CATCHTMPCKT($i_reportFlowID(8), "AB.TM.YIA58811", *$i_RptRefNb,10) TA_PRINT "After 5 minutes SWA returns to Normal mode" -- Needs VCID3 @RPZA_CATCHTMPCKT($i_reportFlowID(9), "AB.TM.YIA58729", *$i_RptRefNb) @RPZA_CATCHTMPCKT($i_reportFlowID(10), "AB.TM.YIA58700", *$i_RptRefNb) @RPZA_CATCHTMPCKT($i_reportFlowID(11), "AB.TM.YIA58705", *$i_RptRefNb) @RPZA_CATCHTMPCKT($i_reportFlowID(12), "AB.TM.YIA58982", *$i_RptRefNb) @RPZA_CATCHTMPCKT($i_reportFlowID(13), "AB.TM.YIA58992", *$i_RptRefNb) @RPZA_CATCHTMPCKT($i_reportFlowID(14), "AB.TM.YIA58727", *$i_RptRefNb) @RPZA_CATCHTMPCKT($i_reportFlowID(15), "AB.TM.YIA58703", *$i_RptRefNb) @RPZA_CATCHTMPCKT($i_reportFlowID(16), "AB.TM.YIA58704", *$i_RptRefNb) @RPZA_CATCHTMPCKT($i_reportFlowID(17), "AB.TM.YIA58713", *$i_RptRefNb) @RPZA_CATCHTMPCKT($i_reportFlowID(18), "AB.TM.YIA58701", *$i_RptRefNb) @RPZA_CATCHTMPCKT($i_reportFlowID(19), "AB.TM.YIA58702", *$i_RptRefNb) @RPZA_CATCHTMPCKT($i_reportFlowID(20), "AB.TM.YIA58711", *$i_RptRefNb) -- No need for VCID3 @RPZA_CATCHTMPCKT($i_reportFlowID(4), "AB.TM.YIA58602", *$i_RptRefNb) endif for $i := 0 to 20 stopreportflow $i_reportflowID($i) endfor ta_print "SWA Burst mode is complete" default ENDSWITCH @SU_SEQEND("END OF SEQUENCE TISS_SWA_MOD_MNG", $dCurDate) END SEQUENCE ****************************************** **************ROUTINES ******************************************