CODE
reconnect_timepout(IN := (iState = 32767) , PT:=T#1M);

IF  ModemFb.xError  THEN
    err_modem :=TRUE;
ELSE
    err_modem :=FALSE;
END_IF

//init
IF NOT xInit THEN
xInit := TRUE; (* This values should be device specific adapted *)
comParam.iPortNumber         := 4; (* used com port number 1 *) 
comParam.ComParity           := SMS.COM_PARITY.NONE; (* No Parity *)
comParam.ComStopBit          := SMS.COM_STOPBIT.ONE; (* One stopbit *)  
comParam.dwBaudrate          := 9600; (* Baudrate of 9600 *)
comParam.byByteSize          := 8; (* Byte size is 8 *)
    (* No hardware handshake is used. When the device needs hardware handshake and it is set to false, it can result in data loss.*)
comParam.byHardwareHandshake := FALSE; 
comParam.bySoftwareHandshake := FALSE; (* No software handshake is used. *)
comConnect.COMParameter      := comParam; (* set the parameter to the instance of the function block *)
ModemFb.itfConnectionType    := comConnect; (* set the connection instance to the modem, that it can connect to the physical device.*)
    //SendSmsFb.smsInfo.sServiceCenterNr := ''; 
    err_modem :=FALSE;


END_IF


CASE iState OF

    0: 
        ModemFb(xExecute := TRUE, sPin := scPin, udiTimeOut := 120000000);
        IF ModemFb.xDone THEN
            iState := 1;
        ELSIF ModemFb.xError THEN
            iState := 32767;
        END_IF

    1:  
        ReceiveSmsFb(xExecute:=TRUE, ModemFB := ModemFb, udiTimeOut := 10000000);
        IF ReceiveSmsFb.xDone OR ReceiveSmsFb.xError THEN smsrec := ReceiveSmsFb.smsRecv;

        ReceiveSmsFb(xExecute := FALSE, ModemFB := ModemFb);
        iState :=20;
         END_IF


20:     

        IF Send_Message THEN
           iState := 200;

        ELSE IF smsrec.sText <> '' THEN       
            pt:=ADR(smsrec.sText); // Get the Address of the text variable 
            FOR i:=0 TO  LEN(smsrec.sText)  DO
                char[i]:=pt^; // Assign the value of the pointer to a Character
                pt:=pt+1; // Advance to the next pointer
            END_FOR
iState :=21;
        ELSE 
iState:=1;
        END_IF;
        END_IF;



21:   
            IF smsrec.sNumber = 'XXXXXXXXX' THEN 
                iState :=22;
             ELSE
                iState :=100;
        END_IF;


22: 
       timestamp_hist_hi := time_sys.udiLocal_DateAndTime + timestamp_hist;
       timestamp_hist_lo := time_sys.udiLocal_DateAndTime - timestamp_hist;
       IF (DT_TO_UDINT(smsrec.dtSend) < timestamp_hist_lo) OR (DT_TO_UDINT(smsrec.dtSend) > timestamp_hist_hi) THEN
               iState :=100;
       ELSE
               iState :=23;
       END_IF



23: IF smsrec.sText = 'ON1' THEN
        bool_out_sms:= 1;
        iState :=100;
    ELSE IF smsrec.sText = 'OFF1' THEN
             bool_out_sms:= 0;
             iState :=100;
    ELSE
         iState :=100;
    END_IF;
    END_IF;


100:

DeleteSmsFb(xExecute:=TRUE, ModemFB := ModemFb, sms := sms_sys.ReceiveSmsFb.smsRecv, udiTimeOut := 10000000);
         IF DeleteSmsFb.xDone OR DeleteSmsFb.xError THEN
            (* This will reset the function block and release the modem lock.*)
DeleteSmsFb(xExecute := FALSE, ModemFB := sms_sys.ModemFb, sms := smsrec);
            //xExecute_Delete_trig:=FALSE;
iState :=1;
         END_IF; 


200:    

SMS_to_send.sNumber := 'XXXXXXXXX';
                Send_Message:=FALSE;
SendSmsFb(xExecute:=TRUE, ModemFb := ModemFb, udiTimeOut := 10000000, smsInfo:= SMS_to_send);
                IF SendSmsFb.xDone OR SendSmsFb.xError THEN
                    (* This will reset the function block and release the modem lock.*)
SendSmsFb( xExecute := FALSE, ModemFb := ModemFb);
iState:=1;
                    err_send := SendSmsFb.eError; 
                END_IF  

32767: (* error *) ;

        IF reconnect_timepout.Q THEN    
xInit := FALSE;
iState :=0;
        END_IF

END_CASE



RTRIG_LICZs1_SMS(CLK:= (time_sys.todNow = TOD#22:00:00 ) OR (time_sys.todNow = TOD#21:54:10 ));
IF RTRIG_LICZs1_SMS.Q THEN


zm_temp := CONCAT('With SMS ', 'everything' );
zm_temp := CONCAT(zm_temp,' OK :)');
SMS_to_send.sText :=  zm_temp;
    Send_Message :=TRUE;

END_IF