Tagessicherung

src/FSI Funktionen/DB/DbNoByName.scl

@@ -0,0 +1,39 @@
+FUNCTION "DbNoByName" : Int
+{ S7_Optimized_Access := 'FALSE' }
+VERSION : 0.1
+   VAR_INPUT 
+      I_Db : Any;   // DB
+   END_VAR
+
+   VAR_TEMP 
+      buffer : Any;   // DB address ANY pointer - used for accessing DB data
+      pBuffer AT buffer : Struct   // Diassembled ANY pointer structure
+         S7Code : Byte;   // Code for S7 (fixed at 16#10)
+         DataType : Byte;   // Code for data type
+         Length : Int;   // Repetition factor = Send/receive length
+         DBNumber : Int;   // Data block Number
+         MemoryArea : Byte;   // Specified memory area = 0x84 = data block
+         ByteAddressMSB : Byte;   // Byte address most significant bits
+         ByteAddressLSB : Word;   // Byte address least significant bits
+      END_STRUCT;
+   END_VAR
+
+
+BEGIN
+	(*#################################################################################################
+	
+	Copyright (c) Fondium Singen GmbH
+	
+	### Änderungshistorie ###
+	
+	Datum:      Version:    Bearbeiter:         Beschreibung:
+	03.12.2020  0.0         St. Maier           Neuerstellung
+	
+	#################################################################################################*)
+	
+	#buffer := #I_Db;
+	
+	#DbNoByName := #pBuffer.DBNumber;
+	
+END_FUNCTION
+