[] Cycle CAPL send a single message

export testfunction SendSingleMsg(long MsgID, long CycleTime, long Special_posi, long Data)
{
  message * Msg;
  long res;
  
  Msg.id=MsgID;
  Msg.dlc=8;
  Msg.byte(Special_posi)=Data;
    
  output(Msg);
  res=testWaitForMessage(MsgID);
  testStep(0,"res = %d",res);
  
  while(res==1)
	  {
	    testWaitForTimeout(CycleTime);
	    output(Msg);
	  }
}