--- a
+++ b/branches/h-hermsen/example/Device_1/Plc Logic/Application/PRG_FB_EoN_Node/svnobj
@@ -0,0 +1,6 @@
+Gx_lØ-!0…jüo·#Ê’
+ù	þûSystem.StringL{6f9dac99-8de1-4efc-8465-68ac443b7d08}SpecialFuncL{0db3d7bb-cde0-4416-9a7b-ce49a0124323}NoneImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocument	L{f3878285-8e4f-490b-bb1b-9acbb7eb04db}
+TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}Id
longTagTextScenario();`GenerateDateTimer(IN := NOT GenerateDateTimer.Q,V                  PT := GenerateDataPeriod,Z                  ET => GenerateDataElapsed);6IF GenerateDateTimer.Q THEN,    GenerateEoNData();2    GenerateDeviceData();END_IFRIF NOT StillGettingClientCertificate THENR    EoN(ServerUrl           := ServerUrl,T        ServerPort          := ServerPort,R        KeepAlive           := KeepAlive,X        CleanSession        := CleanSession,P        Username            := Username,P        Password            := Password, L        UseTLS              := UseTLS,!J        hCert               := hCert,"N        GroupId             := GroupId,#P        NodeName            := NodeName,$T        DeviceName          := DeviceName,%Z        publishPeriod       := publishPeriod,&        arSparkplugBoolean  := SparkPlugBSimpleTypes.arSparkplugBoolean,'’        arSparkplugDateTime := SparkPlugBSimpleTypes.arSparkplugDateTime,(Œ        arSparkplugFloat    := SparkPlugBSimpleTypes.arSparkplugFloat,)Ž        arSparkplugDouble   := SparkPlugBSimpleTypes.arSparkplugDouble,*Š        arSparkplugInt8     := SparkPlugBSimpleTypes.arSparkplugInt8,+Œ        arSparkplugInt16    := SparkPlugBSimpleTypes.arSparkplugInt16,,Œ        arSparkplugInt32    := SparkPlugBSimpleTypes.arSparkplugInt32,-Œ        arSparkplugInt64    := SparkPlugBSimpleTypes.arSparkplugInt64,.Œ        arSparkplugUInt8    := SparkPlugBSimpleTypes.arSparkplugUInt8,/Ž        arSparkplugUInt16   := SparkPlugBSimpleTypes.arSparkplugUInt16,0Ž        arSparkplugUInt32   := SparkPlugBSimpleTypes.arSparkplugUInt32,1Ž        arSparkplugUInt64   := SparkPlugBSimpleTypes.arSparkplugUInt64,2Š        arSparkplugUUID     := SparkPlugBSimpleTypes.arSparkplugUUID,3Š        arSparkplugText     := SparkPlugBSimpleTypes.arSparkplugText,4Ž        arSparkplugString   := SparkPlugBSimpleTypes.arSparkplugString,5^        ConnectionState     => ConnectionState,6b        NumberOfDevices     => NumberOfDevices );7ELSE8v    //The below method creates a Client Certificate for you9    //It generates a CSR and sends it to test.mosquitto.org to be signed:    AdditionalStepsToRegisterAClientCertificateWithtest_mosquitto_org();;2MyDevice1( ItfEon := EoN,<        arSparkplugString   := SparkPlugBSimpleTypes.arSparkplugString);=2MyDevice1.CoupledWithEoN;>fDevice1MetricsCount := MyDevice1.NumberOfMetrics();?Interface@L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}A.PROGRAM PRG_FB_EoN_NodeBVARCF    Init            : BOOL := TRUE;Dr    EoN             : SparkplugB.FB_Edge_Of_Network_Node;Ev    ConnectionState : SparkplugB.SparkplugSessionStateType;F8    NumberOfDevices : UDINT;G^    MyDevice1           : SparkplugB.FB_Device;H>    Device1MetricsCount : DINT;I<    TestScenario : USINT := 1;J4    ServerUrl    : STRING;K0    ServerPort   : UINT;L0    KeepAlive    : UINT;Mh    CleanSession : BOOL                    := FALSE;Nb    Username     : WSTRING                 := "";Ob    Password     : WSTRING                 := "";Ph    UseTLS       : BOOL                    := FALSE;Qª    hCert        : SysTypes.RTS_IEC_HANDLE := SysTypes.RTS_INVALID_HANDLE; // Handle to the client certificate (optional) only used if UseTLS is TRUER‚    GroupId      : WSTRING                 := "SparkplugBDevice";S†    NodeName     : WSTRING                 := "EdgeOfNetworkNode1";T~    DeviceName   : WSTRING                 := "EmulatedDevice";U"    publishPeriodVŠ        : UINT := 5000; // equals 5 seconds interval (scantime of this program = 250ms) so 20:1 (update rate = 20 scans to 1 publish)W>    GenerateDataPeriod  : TIME;X>    GenerateDataElapsed : TIME;Y<    GenerateDateTimer   : TON;Z`    Timestamp           : SparkplugB.T_DateTime;[R    Str                 : ChangingString;\Œ    //These are specific for registering certificates at test.mqtt.org]|    getClientCert                  : SparkplugB.GetClientCert;^t    RegisterCSR                    : Web_Client.WebClient;_R    countClientCert                : INT;`f    httpPost                       : WSTRING(2048);aT    StillGettingClientCertificate  : BOOL;bf    wsCSRorClientCertOut           : WSTRING(2048);cr    WaitForTheServerToRegisterCert : TON := (PT := T#1S);dEND_VARe"UniqueIdGeneratorf2112gPOULevelhL{8e575c5b-1d37-49c6-941b-5c0ec7874787}iStandardj ChildObjectGuidsk8System.Collections.ArrayListl,AddAttributeSubsequentmboolÐÐ-ÐÐ	E
+AÐÐ
­ÑÚÐ-ÐÐ
­ÒÚÐ-ÐÐ
­ÓÚÐ-ÐÐ
­ÔÚÐ-ÐÐ
­ÕÚÐ-ÐÐ
­ÖÚÐ-ÐÐ
­×ÚÐ-ÐÐ
­ØÚÐ-ÐÐ
­þÚÐ-ÐÐ
­ÙÚÐ-ÐÐ
­ÚÚÐ-ÐÐ
­ÛÚÐ-ÐÐ
­ÜÚÐ-ÐÐ
­ÝÚÐ-ÐÐ
­ÞÚÐ-ÐÐ
­ßÚÐ-ÐÐ
­àÚÐ-ÐÐ
­áÚÐ-ÐÐ
­âÚÐ- ÐÐ
­ãÚÐ-!ÐÐ
­äÚÐ-"ÐÐ
­åÚÐ-#ÐÐ
­æÚÐ-$ÐÐ
­çÚÐ-%ÐÐ
­èÚÐ-&ÐÐ
­éÚÐ-'ÐÐ
­êÚÐ-(ÐÐ
­ëÚÐ-)ÐÐ
­ìÚÐ-*ÐÐ
­íÚÐ-+ÐÐ
­îÚÐ-,ÐÐ
­ïÚÐ--ÐÐ
­ðÚÐ-.ÐÐ
­ñÚÐ-/ÐÐ
­òÚÐ-0ÐÐ
­óÚÐ-1ÐÐ
­ôÚÐ-2ÐÐ
­õÚÐ-3ÐÐ
­öÚÐ-4ÐÐ
­÷ÚÐ-5ÐÐ
­øÚÐ-6ÐÐ
­úÚÐ-7ÐÐ
­ûÚÐ-8ÐÐ
­üÚÐ-9ÐÐ
­ýÚÐ-:ÐÐ
­–ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-;ÐÐ
­
+ÚÐ-&ÐÐ
­ÚÐ-'ÐÐ
­ÚÐ-(ÐÐ
­
ÚÐ-)ÐÐ
­ÚÐ-*ÐÐ
­ÚÐ-+ÐÐ
­ÚÐ-,ÐÐ
­ÚÐ--ÐÐ
­ÚÐ-.ÐÐ
­ÚÐ-/ÐÐ
­ÚÐ-0ÐÐ
­ÚÐ-1ÐÐ
­ÚÐ-2ÐÐ
­ÚÐ-3ÐÐ
­	ÚÐ-<ÐÐ
­ÚÐ-=ÐÐ
­ÚÐ->Ð?@Ð	E
+'ÐÐ
­ÚÐ-AÐÐ
­ÚÐ-BÐÐ
­ÚÐ-CÐÐ
­ÚÐ-DÐÐ
­ÚÐ-EÐÐ
­ ÚÐ-FÐÐ
­!ÚÐ-ÐÐ
­"ÚÐ-GÐÐ
­#ÚÐ-HÐÐ
­$ÚÐ-ÐÐ
­%ÚÐ-IÐÐ
­&ÚÐ-JÐÐ
­'ÚÐ-KÐÐ
­(ÚÐ-LÐÐ
­)ÚÐ-MÐÐ
­*ÚÐ-NÐÐ
­+ÚÐ-OÐÐ
­,ÚÐ-PÐÐ
­-ÚÐ-QÐÐ
­.ÚÐ-RÐÐ
­/ÚÐ-SÐÐ
­0ÚÐ-TÐÐ
­1ÚÐ-UÐÐ
­2ÚÐ-VÐÐ
­3ÚÐ-WÐÐ
­4ÚÐ-XÐÐ
­5ÚÐ-YÐÐ
­6ÚÐ-ZÐÐ
­7ÚÐ-[ÐÐ
­8ÚÐ-ÐÐ
­9ÚÐ-\ÐÐ
­:ÚÐ-]ÐÐ
­;ÚÐ-^ÐÐ
­<ÚÐ-_ÐÐ
­=ÚÐ-`ÐÐ
­>ÚÐ-aÐÐ
­?ÚÐ-bÐÐ
­@ÚÐ-cÐÐ
­ÚÐ-dÐe-fÐgh-ijkÐlm­
\ No newline at end of file