2016/3/14Insight Job10:33AMPanel PPCL ReportField Panels:DDC-1F7070Programs:Line Range:1-32767Panel Name:DDC-1F7070Program Name:1号冷冻系统水阀远程错误判定Priority for Writing:16ET10C PUMP ERRORET20WAIT (300,"BH-LQCK2-6-1-V1KGKZ",$LOC1,11)ET30WAIT (300,"BH-LQCK2-6-1-V2KGKZ",$LOC2,11)ET40WAIT (300,"BH-LDCK2-6-1-V3KGKZ",$LOC3,11)ET50WAIT (300,"BH-LDCK2-6-1-V4KGKZ",$LOC4,11)ET60WAIT(300,"LSJZ-LDCK2-1-1-V5KGKZ",$LOC5,11)ET70WAIT(300,"LSJZ-LDCK2-1-1-V6KGKZ",$LOC6,11)80WAIT(300,"LSJZ-LQCK2-1-1-V7KGKZ",$LOC7,11)ET90WAIT(300,"LQT-K2-2-1-V8KGKZ”,$L0C8,11)100IF ("BH-LQCK2-6-1-V1KGKZ"EQ.OFF)THEN OFF ($LOC1)ET110IF ("BH-LQCK2-6-1-V2KGKZ".EQ.OFF)THEN OFF ($LOC2)120IF ("BH-LDCK2-6-1-V3KGKZ".EQ.OFF)THEN OFF($LOC3)ET130IF("BH-LDCK2-6-1-V4KGKZ"EQ.OFF)THEN OFF ($LOC4)ET140IF ("LSJZ-LDCK2-1-1-V5KGKZ".EQ.OFF)THEN OFF($LOC5)ET150IF("LSJZ-LDCK2-1-1-V6KGKZ"EQ.OFF)THEN OFF ($LOC6)ET160IF ("LSJZ-LQCK2-1-1-V7KGKZ"EQ.OFF)THEN OFF ($LOC7)ET170IF("LQT-K2-2-1-V8KGKZ".EQ.OFF)THEN OFF($LOC8)ET180C chwpET190IF ($LOC1 EQ.ON AND."BH-LQCK2-6-1-V10S"EQ.OFF)THEN ON("BH-LQCK2-6-1-V1-error")ELSE OFF("BH-LQCK2-6-1-V1-error")ET200IF ($LOC2 EQ.ON AND."BH-LQCK2-6-1-V20S"EQ.OFF)THEN ON("BH-LQCK2-6-1-V2-error")ELSE OFF (BH-LQCK2-6-1-V2-error)ET210IF($LOC3 EQ.ON AND."BH-LDCK2-6-1-V30SEQ.OFF)THEN ON("BH-LDCK2-6-1-V3-error")ELSE OFF("BH-LDCK2-6-1-V3-error")ET220IF($LOC4 EQ.ON AND."BH-LDCK2-6-1-V40S"EQ.OFF)THEN ON ("BH-LDCK2-6-1-V4-error")ELSE OFF("BH-LDCK2-6-1-V4-error")ET230IF ($LOC5 EQ.ON AND."LSJZ-LDCK2-1-1-V50S"EQ.OFF)THEN ON ("LSJZ-LDCK2-1-1-V5-error")ELSE OFF (LSJZ-LDCK2-1-1-V5-error")ET240IF ($LOC6 EQ.ON AND."LSJZ-LDCK2-1-1-V60S"EQ.OFF)THEN ON("LSJZ-LDCK2-1-1-V6-error")ELSE OFF("LSJZ-LDCK2-1-1-V6-error")ET250IF($LOC7 EQ.ON AND."LSJZ-LQCK2-1-1-V70S"EQ.OFF)THEN ON ("LSJZ-LQCK2-1-1-V7-error")ELSE OFF (LSJZ-LQCK2-1-1-V7-error")et260IF ($LOC8 EQ.ON AND."LQT-K2-2-1-V80S".EQ.OFF)THEN ON (LQT-K2-2-1-V8-error")ELSE OFF ("LQT-K2-2-1-V8-error")Panel Name:DDC-1F7070Program Name:1号冷却塔变频控制Priority for Writing:16ET10IF("LQT-K2-2-1-COMMAND"EQ.OFF)THEN GOTO 20 ELSE GOTO 80ET20OFF ($LOC1)ET30SET (0,"LQT-K2-2-1-BPKZ)ET70G0T0350ET80IF ("LQT-K2-2-1-COMMAND"EQ.ON AND.$LOC1 EQ.OFF)THEN GOTO 90 ELSEG0T0120ET90"LQT-K2-2-1-BPKZ"=30ET100ET110G0T0120ET120SAMPLE(10)GOTO 140ET130G0T0350ET140IF ("LQT-K2-2-1-GSWD"GT."LQT-K2-2-1-GSWDSD"1.AND."LQT-K2-2-1-BPKZ"LT.45)THEN "LQT-K2-2-1-BPKZ"=LQT-K2-2-1-BPKZ”+1ET150IF ("LQT-K2-2-1-GSWD"LT."LQT-K2-2-1-GSWDSD"1 AND.LQT-K2-2-1-BPKZ".GT.25)THEN "LQT-K2-2-1-BPKZ"=LQT-K2-2-1-BPKZ”-1ET160G0T0350ET350IF ("LQT-K2-2-1-1-QTKZ".EQ.ON)THEN "LQT-K2-2-1-1-BPKZ"="LQT-K2-2-1-BPKZ*ELSE "LQT-K2-2-1-1-BPKZ"=0ET360IF("LQT-K2-2-1-2-QTKZ".EQ.ON)THEN "LQT-K2-2-1-2-BPKZ"=LQT-K2-2-1-BPKZ ELSE LQT-K2-2-1-2-BPKZ"=0ET370IF ("LQT-K2-2-1-3-QTKZ".EQ.ON)THEN "LQT-K2-2-1-3-BPKZ"=LQT-K2-2-1-BPKZ ELSE LQT-K2-2-1-3-BPKZ=0380IF ("LQT-K2-2-1-4-QTKZ".EQ.ON)THEN "LQT-K2-2-1-4-BPKZ"=LQT-K2-2-1-BPKZ*ELSE "LQT-K2-2-1-4-BPKZ"=0ET390IF ("LQT-K2-2-1-5-QTKZ".EQ.ON)THEN "LQT-K2-2-1-5-BPKZ"="LQT-K2-2-1-BPKZ"ELSE "LQT-K2-2-1-5-BPKZ"=0ET400IF ("LQT-K2-2-1-6-QTKZ"EQ.ON)THEN "LQT-K2-2-1-6-BPKZ"=LQT-K2-2-1-BPKZ ELSE LQT-K2-2-1-6-BPKZ"=0ET410IF(“LQT-K2-2-1-7-QTKZ”.EQ.ON)THEN"LQT-K2-2-1-7-BPKZ”="LQT-K2-2-1-BPKZ ELSE LQT-K2-2-1-7-BPKZ"=0ET420IF ("LQT-K2-2-1-8-QTKZ"EQ.ON)THEN "LQT-K2-2-1-8-BPKZ"=LQT-K2-2-1-BPKZ"ELSE "LQT-K2-2-1-8-BPKZ"=0ET430G0T010Panel Name:DDC-1F_7070Program Name:1号冷却塔排序Priority for Writing:16ET10IF ("LQT-K2-2-1-SEQUENCE".EQ.ON)THEN GOTO 20 ELSE GOTO 110ET20SET (1,"LQT-K2-2-1-1.SEQUENCE")ET30SET(2,"LQT-K2-2-1-2.SEQUENCE)ET40SET(3,"LQT-K2-2-1-3.SEQUENCE")ET50SET (4,"LQT-K2-2-1-4.SEQUENCE")60SET(5,"LQT-K2-2-1-5.SEQUENCE)ET70SET(6,"LQT-K2-2-1-6.SEQUENCE")ET80SET (7,"LQT-K2-2-1-7.SEQUENCE")ET90SET(8,"LQT-K2-2-1-8.SEQUENCE)ET100G0T010ET110IF ("LSJZ-K2-1-0-COMMAND"EQ.ON OR."LSJZ-K2-1-1-COMMAND".EQ.ON)THENGOTO 120 ELSE GOTO 150ET120ON ($LOC2)ET130ET140G0T010ET150 IF ("LSJZ-K2-1-0-COMMAND"EQ.OFF AND."LSJZ-K2-1-1-COMMAND".EQ.OFF AND.$LOC2 EQ.ON)THEN GOTO 160 ELSE GOTO 190ET160ON ($LOC1)ET170ET180G0T0220ET190OFF ($LOC1)ET200ET210G0T0220ET220IF("LSJZ-K2-1-0-COMMAND"EQ.OFF AND."LSJZ-K2-1-1-COMMAND".EQ.OFF AND.$LOC1 EQ.ON)THEN GOTO 230 ELSE GOTO 310ET230IF ("LQT-K2-2-1-1.SEQUENCE"LT.8)THENLQT-K2-2-1-1.SEQUENCE""LQT-K2-2-1-1.SEQUENCE"1 ELSELQT-K2-2-1-1.SEQUENCE"1ET240IF ("LQT-K2-2-1-2.SEQUENCE"LT.8)THENLQT-K2-2-1-2.SEQUENCE”=LQT-K2-2-1-2.SEQUENCE”+1ELSE”LQT-K2-2-1-2.SEQUENCE"1250IF(“LQT-K2-2-1-3.SEQUENCE”.LT.8)THEN"LQT-K2-2-1-3.SEQUENCE”="LQT-K2-2-1-3.SEQUENCE”+1ELSE”LQT-K2-2-1-3.SEQUENCE"1ET260IF("LQT-K2-2-1-4.SEQUENCE”.LT.8)THEN”LQT-K2-2-1-4.SEQUENCE""LQT-K2-2-1-4.SEQUENCE"1 ELSELQT-K2-2-1-4.SEQUENCE=1ET270IF("LQT-K2-2-1-5.SEQUENCE".LT.8)THENLQT-K2-2-1-5.SEQUENCE "LQT-K2-2-1-5.SEQUENCE"1 ELSELQT-K2-2-1-5.SEQUENCE"1280IF ("LQT-K2-2-1-6.SEQUENCE"LT.8)THENLQT-K2-2-1-6.SEQUENCE "LQT-K2-2-1-6.SEQUENCE 1 ELSELQT-K2-2-1-6.SEQUENCE"1ET290IF ("LQT-K2-2-1-7.SEQUENCE"LT.8)THENLQT-K2-2-1-7.SEQUENCE”="LQT-K2-2-1-7.SEQUENCE"”+1ELSE”LQT-K2-2-1-7.SEQUENCE 1ET300IF("LQT-K2-2-1-8.SEQUENCE".LT.8)THENLQT-K2-2-1-8.SEQUENCE""LQT-K2-2-1-8.SEQUENCE"1 ELSELQT-K2-2-1-8.SEQUENCE"=1310G0T010Panel Name:DDC-1F7070Program Name:1号冷却塔远程错误判定Priority for Writing:16ET10C LENG QUE TA ERRORET20WAIT(300,"LQT-K2-2-1-1-QTKZ”,$L0C1,11)ET30WAIT(300,"LQT-K2-2-1-2QTKZ”,$L0C2,11)ET40WAIT(300,"LQT-K2-2-1-3-QTKZ",$L0C3,11)ET50WAIT(300,"LQT-K2-2-1-4-QTKZ",$L0C4,11)ET60WAIT(300,"LQT-K2-2-1-5-QTKZ”,$L0C5,11)ET70WAIT(300,"LQT-K2-2-1-6-QTKZ",$L0C6,11)ET80WAIT(300,"LQT-K2-2-1-7-QTKZ",$L0C7,11)ET90WAIT(300,"LQT-K2-2-1-8QTKZ”,$L0C8,11)ET100IF("LQT-K2-2-1-1-QTKZ".EQ.OFF)THEN OFF ($LOC1)ET110IF("LQT-K2-2-1-2-QTKZ".EQ.OFF)THEN OFF ($LOC2)ET120IF ("LQT-K2-2-1-3-QTKZ".EQ.OFF)THEN OFF ($LOC3)ET130IF ("LQT-K2-2-1-4-QTKZ".EQ.OFF)THEN OFF ($LOC4)ET140IF ("LQT-K2-2-1-5-QTKZ".EQ.OFF)THEN OFF ($LOC5)ET150IF ("LQT-K2-2-1-6-QTKZ".EQ.OFF)THEN OFF ($LOC6)T160IF("LQT-K2-2-1-7-QTKZ".EQ.OFF)THEN OFF ($LOC7)ET170IF ("LQT-K2-2-1-8-QTKZ".EQ.OFF)THEN OFF ($LOC8)ET180C chwpET190IF ($LOC1 EQ.ON AND."LQT-K2-2-1-1-YXZT"EQ.OFF OR.LQT-K2-2-1-1-GZBJ".EQ.ON)THEN ON ("LQT-K2-2-1-1-error"ELSE OFF ("LQT-K2-2-1-1-error")ET200IF ($LOC2 EQ.ON AND."LQT-K2-2-1-2-YXZT".EQ.OFF OR."LQT-K2-2-1-2-GZBJ".EQ.ON)THEN ON ("LQT-K2-2-1-2-error"ELSE OFF ("LQT-K2-2-1-2-error")ET210IF ($LOC3 EQ.ON AND."LQT-K2-2-1-3-YXZT"EQ.OFF.OR.LQT-K2-2-1-3-GZBJ".EQ.ON)THEN ON ("LQT-K2-2-1-3-error"ELSE OFF ("LQT-K2-2-1-3-error")ET220IF ($LOC4 EQ.ON AND."LQT-K2-2-1-4-YXZT".EQ.OFF OR.LQT-K2-2-1-4-GZBJ".EQ.ON)THEN ON ("LQT-K2-2-1-4-error"ELSE OFF ("LQT-K2-2-1-4-error")ET230IF ($LOC5 EQ.ON AND."LQT-K2-2-1-5-YXZT"EQ.OFF OR."LQT-K2-2-1-5-GZBJ".EQ.ON)THEN ON ("LQT-K2-2-1-5-error"ELSE OFF("LQT-K2-2-1-5-error")ET240IF ($LOC6 EQ.ON AND."LQT-K2-2-1-6-YXZT".EQ.OFF.OR.LQT-K2-2-1-6-GZBJ".EQ.ON)THEN ON ("LQT-K2-2-1-6-error"ELSE OFF ("LQT-K2-2-1-6-error")ET250IF ($LOC7 EQ.ON AND."LQT-K2-2-1-7-YXZT".EQ.OFF OR.LQT-K2-2-1-7-GZBJ".EQ.ON)THEN ON ("LQT-K2-2-1-7-error"ELSE OFF ("LQT-K2-2-1-7-error")260IF ($LOC8 EQ.ON AND."LQT-K2-2-1-8-YXZT"EQ.OFF OR.LQT-K2-2-1-8-GZBJ".EQ.ON)THEN ON ("LQT-K2-2-1-8-error"ELSE OFF ("LQT-K2-2-1-8-error")Panel Name:DDC-1F7070Program Name:1号冷却塔组启动控制Priority for Writing:1610LQT-K2-2-1-ZALMNUM="LQT-K2-2-1-1-ZALM+*LQT-K2-2-1-2-ZALM"+LQT-K2-2-1-3-ZALM+LQT-K2-2-1-4-ZALM"+"LQT-K2-2-1-5-ZALM”+"LQT-K2-2-1-6-ZALM”+"LQT-K2-2-1-7-ZALM”+"LQT-K2-2-1-8-ZALM"ET20IF ("LQT-K2-2-1-COMMAND".EQ.OFF)THEN GOTO 30 ELSE GOTO 12030ET40OFF("LQT-K2-2-1-1-ZALM)ET50OFF("LQT-K2-2-1-2-ZALM)ET60OFF("LQT-K2-2-1-3-ZALM)ET70OFF("LQT-K2-2-1-4-ZALM)ET80OFF("LQT-K2-2-1-5-ZALM)ET90OFF(LQT-K2-2-1-6-ZALM)ET100OFF("LQT-K2-2-1-7-ZALM)ET110OFF("LQT-K2-2-1-8-ZALM)ET120GOSUB 4000 "LQT-K2-2-1-1.SEQUENCE","LQT-K2-2-1-1-error",LQT-K2-2-1-YXSL,"LQT-K2-2-1-NEEDNUM",LQT-K2-2-1-1-ZALM"ET121GOSUB 4000 "LQT-K2-2-1-2.SEQUENCE","LQT-K2-2-1-2-error",LQT-K2-2-1-YXSL,LQT-K2-2-1-NEEDNUM,LQT-K2-2-1-2-ZALM"ET122G0SUB4000“LQT-K2-2-1-3.SEQUENCE”,"LQT-K2-2-1-3-error”,"LQT-K2-2-1-YXSL,LQT-K2-2-1-NEEDNUM,LQT-K2-2-1-3-ZALM"ET123GOSUB 4000 "LQT-K2-2-1-4.SEQUENCE","LQT-K2-2-1-4-error","LQT-K2-2-1-YXSL,LQT-K2-2-1-NEEDNUM,LQT-K2-2-1-4-ZALM"ET124GOSUB 4000 "LQT-K2-2-1-5.SEQUENCE","LQT-K2-2-1-5-error",LQT-K2-2-1-YXSL,LQT-K2-2-1-NEEDNUM,LQT-K2-2-1-5-ZALM"ET125GOSUB 4000 "LQT-K2-2-1-6.SEQUENCE","LQT-K2-2-1-6-error","LQT-K2-2-1-YXSL,LQT-K2-2-1-NEEDNUM,LQT-K2-2-1-6-ZALM"ET126G0SUB4000“LQT-K2-2-1-7.SEQUENCE”,"LQT-K2-2-1-7-error”,"LQT-K2-2-1-YXSL,LQT-K2-2-1-NEEDNUM,LQT-K2-2-1-7-ZALM"ET127GOSUB 4000 "LQT-K2-2-1-8.SEQUENCE","LQT-K2-2-1-8-error",LQT-K2-2-1-YXSL,"LQT-K2-2-1-NEEDNUM,LQT-K2-2-1-8-ZALM"130ET140GOSUB 5000 "LQT-K2-2-1-1.SEQUENCE","LQT-K2-2-1-1-error","LQT-K2-2-1-YXSL,"LQT-K2-2-1-NEEDNUM,"LQT-K2-2-1-ZALMNUM","LQT-K2-2-1-1-QTKZET141GOSUB 5000 "LQT-K2-2-1-2.SEQUENCE","LQT-K2-2-1-2-error",LQT-K2-2-1-YXSL,"LQT-K2-2-1-NEEDNUM","LQT-K2-2-1-ZALMNUM",*LQT-K2-2-1-2-QTKZ"ET142GOSUB 5000 "LQT-K2-2-1-3.SEQUENCE","LQT-K2-2-1-3-error","LQT-K2-2-1-YXSL,LQT-K2-2-1-NEEDNUM,"LQT-K2-2-1-ZALMNUM",LQT-K2-2-1-3-QTKZ"ET143GOSUB 5000 "LQT-K2-2-1-4.SEQUENCE","LQT-K2-2-1-4-error",LQT-K2-2-1-YXSL "LQT-K2-2-1-NEEDNUM,"LQT-K2-2-1-ZALMNUM"*LQT-K2-2-1-4-QTKZ"ET144GOSUB 5000 "LQT-K2-2-1-5.SEQUENCE","LQT-K2-2-1-5-error","LQT-K2-2-1-YXSL,"LQT-K2-2-1-NEEDNUM,"LQT-K2-2-1-ZALMNUM",LQT-K2-2-1-5-QTKZET145G0SUB5000"LQT-K2-2-1-6.SEQUENCE”,"LQT-K2-2-1-6-error”,”LQT-K2-2-1-YXSL "LQT-K2-2-1-NEEDNUM,"LQT-K2-2-1-ZALMNUM,LQT-K2-2-1-6-QTKZ"ET146GOSUB 5000 "LQT-K2-2-1-7.SEQUENCE","LQT-K2-2-1-7-error",LQT-K2-2-1-YXSL,"LQT-K2-2-1-NEEDNUM,"LQT-K2-2-1-ZALMNUM",LQT-K2-2-1-7-QTKZ"ET147G0SUB5000"LQT-K2-2-1-8.SEQUENCE”,"LQT-K2-2-1-8-error'”,”LQT-K2-2-1-YXSL”,"LQT-K2-2-1-NEEDNUM”,"LQT-K2-2-1-ZALMNUM”,LQT-K2-2-1-8-QTKZET150ET160G0T010170180E190E200E210ET4000IF($ARG1 LE.$ARG4.AND.$ARG2.EQ.ON)THEN GOTO 4010 ELSE GOTO 4030E4010ON (SARG5)4020G0T04060ET4030IF(SARG1 GT.$ARG4)THEN GOTO 4040 ELSE GOTO 4060ET4040OFF (SARG5)ET4050G0T04060ET4060RETURNE4070CE4080C4090ET5000IF (SARG1 LE.$ARG4 $ARG5)THEN GOTO 5010 ELSE GOTO 5060ET5010IF ($ARG2 EQ.OFF)THEN GOTO 5020 ELSE GOTO 5040ET5020ON (SARG6)ET5030G0T050905040OFF($ARG6)E5050G0T05090ET5060IF (SARG3 GT.$ARG4)THEN GOTO 5070 ELSE GOTO 5090ET5070OFF($ARG6)ET5080G0T05090