USING Siemens.Simatic.S71500.CommunicationsProcessor.PointToPoint;
PROGRAM ReceiveP2PProgram
VAR
receiveData : MyReceiveP2PData;
conditions : Receive_Conditions;
receiveP2P : ReceiveP2P;
ReceiveBuffer : ARRAY[0..31] OF BYTE;
END_VAR
// set receiveData
receiveData.PORT := WORD#16#115;
// ...
receiveP2P( PORT := WORD#16#115,
BUFFER := ReceiveBuffer,
newDataReceived => receiveData.NDR,
LENGTH => receiveData.LENGTH,
ERROR => receiveData.ERROR,
STATUS => receiveData.STATUS);
END_PROGRAM
TYPE
MyReceiveP2PData : STRUCT
PORT : WORD := WORD#16#0;
UNIVERSAL : BOOL;
NDR : BOOL;
LENGTH : UINT := UINT#16#0000;
ERROR : BOOL;
STATUS : WORD := WORD#16#7000;
END_STRUCT;
END_TYPE