FALSE: Errortext in german, TRUE: Errortext in english This name is for identification which SAFEX has an errr TRUE: SAFEX FatalError activ, this information comes from Functionblock SAFEX_Diagnosis_xVxx Alarm: SAFEX-Alarm is activ, this information comes from Functionblock SAFEX_Diagnosis_xVxx SAFEX- Errorcode, this information comes from Functionblock SAFEX_Diagnosis_xVxx Additional Errortext in case of an Time monitored Input error Errortext also available in PLC but is the same for CORE Logbook the following array include the information which errorcode related to which Input/Output. The Index of the array is the errorcode. The following strings includes the errortext in germann and english --------------------------------------------------------------------------------------------------------------------------------------- Short description: This Functionblock get the diagnostic information from FB SAFEX_Diagnosis and send the Errortext to the CORE-Logbook. However, only errors that are related to the inputs and outputs of the ctrlX SAFETY are analyzed and sent to the ctrlX CORE logbook. Version: 1.00 Name: DC-AE/PAG-TES Dirk Asendorf Date: 2024.10.30 Company: Bosch-Rexroth AG --------------------------------------------------------------------------------------------------------------------------------------- Target: ctrlX CORE (EtherCat, Profinet) Needs: SAFEX Firmware > 1.0.1.53 / FPGA 221 ctrlx SAFETY Engineering > 1.8.3.10207 CXAC_Diagnostics library History --------------------------------------------------------------------------------------------------------------------------------------- Dirk Asendorf | 30.10.2024 | Version 1V00 regeneration --------------------------------------------------------------------------------------------------------------------------------------- Functional Description: R_TRIG_Alarm(CLK:= Alarm, Q=> ); R_TRIG_FatalError(CLK:=FatalError , Q=> ); IF R_TRIG_Alarm.Q OR R_TRIG_FatalError.Q THEN IF DE_EN THEN //English str3131_3162:= str3131_3162_EN; str3617_3624:= str3617_3624_EN; str3627_3642:= str3627_3642_EN; str3801_3824:= str3801_3824_EN; str5101_5164:= str5101_5164_EN; str3661_3676:= str3661_3676_EN; str3677_3684:= str3677_3684_EN; str3841_3864:= str3841_3864_EN; str5001_5032:= str5001_5032_EN; str5051_5082:= str5051_5082_EN; str5201_5232:= str5201_5232_EN; str5251_5282:= str5251_5282_EN; ELSE // German str3131_3162:= str3131_3162_DE; str3617_3624:= str3617_3624_DE; str3627_3642:= str3627_3642_DE; str3801_3824:= str3801_3824_DE; str5101_5164:= str5101_5164_DE; str3661_3676:= str3661_3676_DE; str3677_3684:= str3677_3684_DE; str3841_3864:= str3841_3864_DE; str5001_5032:= str5001_5032_DE; str5051_5082:= str5051_5082_DE; str5201_5232:= str5201_5232_DE; str5251_5282:= str5251_5282_DE; END_IF END_IF IF (ErrorCode >=3131 AND ErrorCode <= 5325) OR (ErrorCode >= 6701 AND ErrorCode <= 6828) THEN // just errorcodes between 3131 and 5325 will work IF Alarm THEN IF ErrorCode >= 3131 AND ErrorCode <= 3162 THEN ErrorText:= concat( 'A', concat(UINT_TO_STRING(ErrorCode), concat(': I0.',concat(UINT_TO_STRING( arIO[ErrorCode]),str3131_3162)))); END_IF IF ErrorCode >= 3617 AND ErrorCode <= 3624 THEN ErrorText:= concat( 'A', concat(UINT_TO_STRING(ErrorCode), concat(': LoSide Q0.',concat(UINT_TO_STRING( arIO[ErrorCode]),str3617_3624)))); END_IF IF ErrorCode >= 3627 AND ErrorCode <= 3642 THEN ErrorText:= concat( 'A', concat(UINT_TO_STRING(ErrorCode), concat(': HiSide Q0.',concat(UINT_TO_STRING( arIO[ErrorCode]),str3627_3642)))); END_IF IF ErrorCode >= 3801 AND ErrorCode <= 3824 THEN ErrorText:= concat( 'A', concat(UINT_TO_STRING(ErrorCode), concat(': Q0.',concat(UINT_TO_STRING( arIO[ErrorCode]),str3801_3824)))); END_IF IF ErrorCode >= 5101 AND ErrorCode <= 5164 THEN ErrorText:= concat( 'A', concat(UINT_TO_STRING(ErrorCode), concat(': I0.',concat(UINT_TO_STRING( arIO[ErrorCode]),str5101_5164)))); END_IF // Just in case of an time monitored input error IF ErrorCode >= 6701 AND ErrorCode <= 6828 THEN ErrorText:= AdditionalErrorInfo; END_IF END_IF IF FatalError THEN IF ErrorCode >= 3661 AND ErrorCode <= 3676 THEN ErrorText:= concat( 'F', concat(UINT_TO_STRING(ErrorCode), concat(': Q0.',concat(UINT_TO_STRING( arIO[ErrorCode]),str3661_3676)))); END_IF IF ErrorCode >= 3677 AND ErrorCode <= 3684 THEN ErrorText:= concat( 'F', concat(UINT_TO_STRING(ErrorCode), concat(': Q0.',concat(UINT_TO_STRING( arIO[ErrorCode]),str3677_3684)))); END_IF IF ErrorCode >= 3841 AND ErrorCode <= 3864 THEN ErrorText:= concat( 'F', concat(UINT_TO_STRING(ErrorCode), concat(': Q0.',concat(UINT_TO_STRING( arIO[ErrorCode]),str3841_3864)))); END_IF IF ErrorCode >= 5001 AND ErrorCode <= 5032 THEN ErrorText:= concat( 'F', concat(UINT_TO_STRING(ErrorCode), concat(': I0.',concat(UINT_TO_STRING( arIO[ErrorCode]),str5001_5032)))); END_IF IF ErrorCode >= 5051 AND ErrorCode <= 5082 THEN ErrorText:= concat( 'F', concat(UINT_TO_STRING(ErrorCode), concat(': I0.',concat(UINT_TO_STRING( arIO[ErrorCode]),str5051_5082)))); END_IF IF ErrorCode >= 5201 AND ErrorCode <= 5232 THEN ErrorText:= concat( 'F', concat(UINT_TO_STRING(ErrorCode), concat(': I0.',concat(UINT_TO_STRING( arIO[ErrorCode]),str5201_5232)))); END_IF IF ErrorCode >= 5251 AND ErrorCode <= 5282 THEN ErrorText:= concat( 'F', concat(UINT_TO_STRING(ErrorCode), concat(': I0.',concat(UINT_TO_STRING( arIO[ErrorCode]),str5251_5282)))); END_IF END_IF // send error to CORE Logbook SAFEX_Diagnostics.MainDiagnosticCode := 16#0A0F0115; // Plc iec error SAFEX_Diagnostics.DetailedDiagnosticCode := 0; SAFEX_Diagnostics.DynamicDescription := ErrorText; SAFEX_Diagnostics.Entity := SAFEX_Name; IF R_TRIG_Alarm.Q OR R_TRIG_FatalError.Q THEN SAFEX_SetResult:= SetDiagnostics(IecDiag:=SAFEX_Diagnostics, Reset :=FALSE ); END_IF END_IF F_TRIG_Alarm(CLK:= Alarm, Q=> ); F_TRIG_FatalError(CLK:= FatalError, Q=> ); // are all errors gone reset error at core side IF F_TRIG_Alarm.Q OR F_TRIG_FatalError.Q THEN SAFEX_PendingDiagnostics.MainDiagnosticCode := 16#0A0F0115; // Plc iec error SAFEX_PendingDiagnostics.DetailedDiagnosticCode := 0; SAFEX_PendingDiagnostics.Entity := SAFEX_Name; SAFEX_ResetResult:= ResetDiagnostics(IecDiag:= SAFEX_PendingDiagnostics ); //SAFEX_ClearResult:= ClearDiagnostics(IecDiag:= SAFEX_PendingDiagnostics ); END_IF IF NOT Alarm AND NOT FatalError THEN ErrorText:= ' '; END_IF bf6a70ed-e318-4dd5-911a-2ed39442c2a5