40 lines
1.2 KiB
Plaintext
40 lines
1.2 KiB
Plaintext
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
|
|
|