false
Initial call of this OB
=True, if remanent data are available
Optimized
OB1
1
FBD
ProgramCycle
false
cs-CZ
de-DE
en-US
true
FALSE
Wird in OB121 auf TRUE gesetzt
SCL
cs-CZ
de-DE
en-US
cs-CZ
de-DE
Zykluszeit genau ermitteln START
en-US
true
0
"DB_Error".sErrorText.....Reaktion, Meldung etc.
true
Quittieren
true
0
true
0
true
0
true
0
true
0
true
0
true
0
true
0
true
0
true
''
true
FALSE
SCL
cs-CZ
de-DE
OB 121 zeigt bei Programmierfehler in DB_Error die Infos an. Infos können hier gelöscht werden.
en-US
cs-CZ
de-DE
Programmierfehler Handling
en-US
true
true
SCL
cs-CZ
de-DE
Aufrufe aller Sensoren
en-US
cs-CZ
de-DE
Call Sensors
en-US
true
true
SCL
cs-CZ
de-DE
Aufruf PreMain (StateMain, Überwachungen...)
en-US
cs-CZ
de-DE
PreMain
en-US
true
true
SCL
cs-CZ
de-DE
Aufruf Main (TRO)
en-US
cs-CZ
de-DE
Main
en-US
true
SCL
cs-CZ
de-DE
Vorfahrtsregelungen (MFR), Zusammenarbeit Automated Intelligence
en-US
cs-CZ
de-DE
Priority Logic
en-US
true
true
true
true
true
true
true
true
true
SCL
cs-CZ
de-DE
Schnittstelle Fortna WCS/WES, TCP Logging
en-US
cs-CZ
de-DE
Communications
en-US
true
SCL
cs-CZ
de-DE
F2H Management (MFR), Zusammenarbeit Automated Intelligence
en-US
cs-CZ
de-DE
F2H Management
en-US
SCL
cs-CZ
de-DE
Jam Status und Statistiken ermitteln
en-US
cs-CZ
de-DE
Jam Status & Statistik
en-US
true
true
SCL
cs-CZ
de-DE
Visu
en-US
cs-CZ
de-DE
Visu
en-US
true
1000.0
in Millisekunden anzeigen
SCL
cs-CZ
de-DE
en-US
cs-CZ
de-DE
Zykluszeit genau ermitteln ENDE
en-US
Senden
true
true
"IO_Device_UH05_TO_UH01".stCARRIER_INFO[1] := "DB_Test".stCarrExpect; //Test
SCL
cs-CZ
de-DE
en-US
cs-CZ
de-DE
IO Device Datenübergabe
en-US
"MA0060" := "IBN".MA0060;
"MA0061" := "IBN".MA0061;
"MA0062" := "IBN".MA0062;
"MA0063" := "IBN".MA0063;
"MA0064" := "IBN".MA0064;
"MA0065" := "IBN".MA0065;
"MA0066" := "IBN".MA0066;
"MA0067" := "IBN".MA0067;
"MA0070" := "IBN".MA0070;
"MB3240" := "IBN".MB3240;
"MB3242" := "IBN".MB3242;
"MB3243" := "IBN".MB3243;
"MB3245" := "IBN".MB3245;
"MB3251" := "IBN".MB3251;
"MB3253" := "IBN".MB3253;
"MB3257" := "IBN".MB3257;
"MB3301" := "IBN".MB3301;
"MB3304" := "IBN".MB3304;
"MB3306" := "IBN".MB3306;
"MB3307" := "IBN".MB3307;
"MB3312" := "IBN".MB3312;
"MB3313" := "IBN".MB3313;
"MB3314" := "IBN".MB3314;
"MB3316" := "IBN".MB3316;
"MB3322" := "IBN".MB3322;
"MB3330" := "IBN".MB3330;
"MB3333" := "IBN".MB3333;
"MB3360" := "IBN".MB3360;
"MB3361" := "IBN".MB3361;
"MB3362" := "IBN".MB3362;
"MB3364" := "IBN".MB3364;
"MB3370" := "IBN".MB3370;
"MB3372" := "IBN".MB3372;
"MB3373" := "IBN".MB3373;
"MB3374" := "IBN".MB3374;
"MB3376" := "IBN".MB3376;
"MB3382" := "IBN".MB3382;
"MB3420" := "IBN".MB3420;
"MB3421" := "IBN".MB3421;
"MB3422" := "IBN".MB3422;
"MB3424" := "IBN".MB3424;
"MB3430" := "IBN".MB3430;
"MB3432" := "IBN".MB3432;
"MB3433" := "IBN".MB3433;
"MB3436" := "IBN".MB3436;
*****************************
FÜR PERFORMANCE MESSUNG:
20.01.
1 - 502.1
2 - 500.1
3 - 501.1
4 - 503.1
5 - 527.1
6 - 527.1
true
Sep-Nr. für Auflistung der Messungen
true
2600
true
ReleasedEdge des jeweiligen Seps
T#86400s
398
gewünschte Messzeit
true
Sep-Nr. für Auflistung der Messungen
true
2500
true
ReleasedEdge des jeweiligen Seps
T#86400s
398
gewünschte Messzeit
true
Sep-Nr. für Auflistung der Messungen
true
2600
true
ReleasedEdge des jeweiligen Seps
T#86400s
398
gewünschte Messzeit
true
Sep-Nr. für Auflistung der Messungen
true
2500
true
ReleasedEdge des jeweiligen Seps
T#86400s
398
gewünschte Messzeit
true
Sep-Nr. für Auflistung der Messungen
true
2500
true
ReleasedEdge des jeweiligen Seps
T#86400s
398
gewünschte Messzeit
true
Sep-Nr. für Auflistung der Messungen
true
2600
true
ReleasedEdge des jeweiligen Seps
T#86400s
398
gewünschte Messzeit
true
Sep-Nr. für Auflistung der Messungen
true
2600
true
ReleasedEdge des jeweiligen Seps
T#86400s
398
gewünschte Messzeit
true
Sep-Nr. für Auflistung der Messungen
true
2600
true
ReleasedEdge des jeweiligen Seps
T#86400s
398
gewünschte Messzeit
SCL
cs-CZ
de-DE
en-US
cs-CZ
de-DE
IBN
en-US
REGION Jam füllen
IF "DB_Test".xFillJam THEN
REGION HyperJam
FOR #nIdxHyper := 1 TO "cHyperJam" -1 DO
"DB_HyperJam".stHyperJam.arCarrier[#nIdxHyper].nBarcode := 20000015;
"DB_HyperJam".stHyperJam.arCarrier[#nIdxHyper].bStatus.%X0 := true;
END_FOR;
END_REGION
REGION Conveyor
FOR #nIdx2 := 1 TO "cJamConv1_1" -1 DO
"DB_JamAreaConv1".stJamConv1_1.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamAreaConv1".stJamConv1_1.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJamConv1_2" -1 DO
"DB_JamAreaConv1".stJamConv1_2.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamAreaConv1".stJamConv1_2.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJamConv1_3" -1 DO
"DB_JamAreaConv1".stJamConv1_3.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamAreaConv1".stJamConv1_3.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJamConv1_4" -1 DO
"DB_JamAreaConv1".stJamConv1_4.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamAreaConv1".stJamConv1_4.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJamConv2" -1 DO
"DB_JamAreaConv2".stJamConv2.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamAreaConv2".stJamConv2.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
END_REGION
REGION Block 1
FOR #nIdx2 := 1 TO "cJam1101_1" -1 DO
"DB_JamArea5003".stJam5003_1.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea5003".stJam5003_1.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1101_2" -1 DO
"DB_JamArea5003".stJam5003_2.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea5003".stJam5003_2.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1102_1" -1 DO
"DB_JamArea5004".stJam5004_1.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea5004".stJam5004_1.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1102_2" -1 DO
"DB_JamArea5004".stJam5004_2.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea5004".stJam5004_2.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1102_3" -1 DO
"DB_JamArea5004".stJam1102_3.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea5004".stJam1102_3.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1102_4" -1 DO
"DB_JamArea5004".stJam1102_4.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea5004".stJam1102_4.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1102_5" -1 DO
"DB_JamArea5004".stJam1102_5.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea5004".stJam1102_5.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1103_1" -1 DO
"DB_JamArea5006".stJam5006_1.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea5006".stJam5006_1.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1103_2" -1 DO
"DB_JamArea5006".stJam5006_2.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea5006".stJam5006_2.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1104_1" -1 DO
"DB_JamArea5007".stJam5007_1.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea5007".stJam5007_1.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1104_2" -1 DO
"DB_JamArea5007".stJam5007_2.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea5007".stJam5007_2.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1104_3" -1 DO
"DB_JamArea5007".stJam500_3.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea5007".stJam500_3.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1104_4" -1 DO
"DB_JamArea5007".stJam1104_4.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea5007".stJam1104_4.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1105_1" - 1 DO
"DB_JamArea5008".stJam5008_1.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea5008".stJam5008_1.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1105_2" -1 DO
"DB_JamArea5008".stJam5008_2.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea5008".stJam5008_2.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1106_1" - 1 DO
"DB_JamArea2111".stJam2111_1.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea2111".stJam2111_1.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1106_2" -1 DO
"DB_JamArea2111".stJam1106_2.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea2111".stJam1106_2.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1107_1" - 1 DO
"DB_JamArea5000".stJam5000_1.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea5000".stJam5000_1.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1107_2" -1 DO
"DB_JamArea5000".stJam5000_2.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea5000".stJam5000_2.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1108_1" - 1 DO
"DB_JamArea5005".stJam5005_1.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea5005".stJam5005_1.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1108_2" -1 DO
"DB_JamArea5005".stJam5005_2.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea5005".stJam5005_2.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJamB1Entry_1" -1 DO
"DB_JamAreaB1Entry".stJamB1Entry_1.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamAreaB1Entry".stJamB1Entry_1.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
// FOR #nIdx2 := 1 TO "cJamB1ExitLeave" -1 DO
// "DB_JamAreaB1ExitLeave".stJamB1ExitLeave.arCarrier[#nIdx2].nBarcode := 20000015;
// "DB_JamAreaB1ExitLeave".stJamB1ExitLeave.arCarrier[#nIdx2].bStatus.%X0 := true;
// END_FOR;
END_REGION
END_IF;
"DB_Test".xFillJam := FALSE;
END_REGION
Jam leeren
true
HyperJam
1
1000
true
0
true
0
true
0
REGION Conveyor
FOR #nIdx2 := 1 TO "cJamConv1_1" DO
"DB_JamAreaConv1".stJamConv1_1.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamAreaConv1".stJamConv1_1.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJamConv1_2" DO
"DB_JamAreaConv1".stJamConv1_2.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamAreaConv1".stJamConv1_2.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJamConv1_3" DO
"DB_JamAreaConv1".stJamConv1_3.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamAreaConv1".stJamConv1_3.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJamConv1_4" DO
"DB_JamAreaConv1".stJamConv1_4.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamAreaConv1".stJamConv1_4.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJamConv2" DO
"DB_JamAreaConv2".stJamConv2.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamAreaConv2".stJamConv2.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
END_REGION
REGION Block 1
FOR #nIdx2 := 1 TO 135 DO
"DB_JamArea5000".stJam5000_2.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea5000".stJam5000_2.arCarrier[#nIdx2].nDestination := 0;
"DB_JamArea5000".stJam5000_2.arCarrier[#nIdx2].bStatus := 0;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1101_2" DO
"DB_JamArea5003".stJam5003_2.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea5003".stJam5003_2.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1102_1" DO
"DB_JamArea5004".stJam5004_1.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea5004".stJam5004_1.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1102_2" DO
"DB_JamArea5004".stJam5004_2.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea5004".stJam5004_2.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1102_3" DO
"DB_JamArea5004".stJam1102_3.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea5004".stJam1102_3.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1102_4" DO
"DB_JamArea5004".stJam1102_4.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea5004".stJam1102_4.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1102_5" DO
"DB_JamArea5004".stJam1102_5.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea5004".stJam1102_5.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1103_1" DO
"DB_JamArea5006".stJam5006_1.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea5006".stJam5006_1.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1103_2" DO
"DB_JamArea5006".stJam5006_2.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea5006".stJam5006_2.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1104_1" DO
"DB_JamArea5007".stJam5007_1.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea5007".stJam5007_1.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1104_2" DO
"DB_JamArea5007".stJam5007_2.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea5007".stJam5007_2.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1104_3" DO
"DB_JamArea5007".stJam500_3.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea5007".stJam500_3.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1104_4" DO
"DB_JamArea5007".stJam1104_4.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea5007".stJam1104_4.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1105_1" DO
"DB_JamArea5008".stJam5008_1.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea5008".stJam5008_1.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1105_2" DO
"DB_JamArea5008".stJam5008_2.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea5008".stJam5008_2.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1106_1" DO
"DB_JamArea2111".stJam2111_1.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea2111".stJam2111_1.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1106_2" DO
"DB_JamArea2111".stJam1106_2.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea2111".stJam1106_2.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1107_1" DO
"DB_JamArea5000".stJam5000_1.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea5000".stJam5000_1.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1107_2" DO
"DB_JamArea5000".stJam5000_2.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea5000".stJam5000_2.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1108_1" DO
"DB_JamArea5005".stJam5005_1.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea5005".stJam5005_1.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1108_2" DO
"DB_JamArea5005".stJam5005_2.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea5005".stJam5005_2.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJamB1Entry_1" DO
"DB_JamAreaB1Entry".stJamB1Entry_1.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamAreaB1Entry".stJamB1Entry_1.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
// FOR #nIdx2 := 1 TO "cJamB1ExitLeave" DO
// "DB_JamAreaB1ExitLeave".stJamB1ExitLeave.arCarrier[#nIdx2].nBarcode := 0;
// "DB_JamAreaB1ExitLeave".stJamB1ExitLeave.arCarrier[#nIdx2].bStatus.%X0 := false;
// END_FOR;
END_REGION
END_IF;
true
FALSE
SCL
cs-CZ
de-DE
en-US
cs-CZ
de-DE
TEST-SCHLEIFEN
en-US
cs-CZ
de-DE
"Main Program Sweep (Cycle)"
en-US