NAMESPACE v0_0 
FUNCTION_BLOCK ReceiveSMS_fbd

	VAR
		trigger : R_TRIG;
		readPulse : bool := 0;
	END_VAR
	VAR_INPUT
		readSMS : bool := 0;
	END_VAR
	VAR_OUTPUT
		result : int := 31;
		
		sms_channel : string := "";
		sender : string := "";
		message : string := "";
		receive_time : dt := dt#0001-01-01-00:00:00;
	END_VAR

	trigger(CLK:=readSMS,Q=>readPulse);
	
	IF readPulse THEN
		result := MESSAGING.RECEIVESMS(
			CHANNEL => sms_channel,
			SENDER => sender,
			MESSAGE => message,
			RECEIVETIME => receive_time
		);
	END_IF;

END_FUNCTION_BLOCK
END_NAMESPACE