FUNCTION_BLOCK FB3093
VAR_OUTPUT
Status1 {S7_m_c:='true'; S7_visible:='false' } : DWORD:=0; // Status dword 1(Wincc)
bStatus1 AT Status1: ARRAY [0..3] OF BYTE;
Status2 {S7_m_c:='true'; S7_visible:='false' } : DWORD:=0; // Status dword 1(Wincc)
bStatus2 AT Status2: ARRAY [0..3] OF BYTE;
Status3 {S7_m_c:='true'; S7_visible:='false' } : DWORD:=0; // Status dword 1(Wincc)
bStatus3 AT Status3: ARRAY [0..3] OF BYTE;
INTF:STRUCT
On:BOOL;
Blink05:BOOL;
BLink2:BOOL;
END_STRUCT;
EXTF:STRUCT
On:BOOL;
Blink05:BOOL;
BLink2:BOOL;
END_STRUCT;
RUN:STRUCT
On:BOOL;
Blink05:BOOL;
BLink2:BOOL;
END_STRUCT;
STOP:STRUCT
On:BOOL;
Blink05:BOOL;
BLink2:BOOL;
END_STRUCT;
FRCE:STRUCT
On:BOOL;
Blink05:BOOL;
BLink2:BOOL;
END_STRUCT;
BUS1F:STRUCT
On:BOOL;
Blink05:BOOL;
BLink2:BOOL;
END_STRUCT;
BUS2F:STRUCT
On:BOOL;
Blink05:BOOL;
BLink2:BOOL;
END_STRUCT;
REDF:STRUCT
On:BOOL;
Blink05:BOOL;
BLink2:BOOL;
END_STRUCT;
MSTR:STRUCT
On:BOOL;
Blink05:BOOL;
BLink2:BOOL;
END_STRUCT;
RACK0:STRUCT
On:BOOL;
Blink05:BOOL;
BLink2:BOOL;
END_STRUCT;
RACK1:STRUCT
On:BOOL;
Blink05:BOOL;
BLink2:BOOL;
END_STRUCT;
IFM1F:STRUCT
On:BOOL;
Blink05:BOOL;
BLink2:BOOL;
END_STRUCT;
IFM2F:STRUCT
On:BOOL;
Blink05:BOOL;
BLink2:BOOL;
END_STRUCT;
MAINT:STRUCT
On:BOOL;
Blink05:BOOL;
BLink2:BOOL;
END_STRUCT;
BUS5F:STRUCT
On:BOOL;
Blink05:BOOL;
BLink2:BOOL;
END_STRUCT;
END_VAR
VAR
dwStatus1PLC : DWORD := 16#0;
bStatus1PLC AT dwStatus1PLC : ARRAY [0..3] OF BYTE;
xStatus1PLC AT dwStatus1PLC : ARRAY [0..31] OF BOOL;
dwStatus2PLC : DWORD := 16#0;
bStatus2PLC AT dwStatus2PLC : ARRAY [0..3] OF BYTE;
xStatus2PLC AT dwStatus2PLC : ARRAY [0..31] OF BOOL;
dwStatus3PLC : DWORD := 16#0;
bStatus3PLC AT dwStatus3PLC : ARRAY [0..3] OF BYTE;
xStatus3PLC AT dwStatus3PLC : ARRAY [0..31] OF BOOL;
iErrCode : INT ; //RET_VAL parameter caintains anerror code
xBusy : BOOL ; //Reading no yet done
iRunUpCyc : INT := 10; //Counter for Run upcyclic
xReq :BOOL;