cQBGJB ;Beheer Background Jobs ;cQBGJB; [ 02/11/02 10:33 AM ] G 1 ; date ;date N %H,%J,%R S %H=1+$H,%J=%H\1461,%R=%H#1461,DJ=%J*4+1841+(%R\365),DD=%R#365,DM=1 I %R=1460 S DD=365,DJ=DJ-1 F %J=31,(%R>1154)+28,31,30,31,30,31,31,30,31,30 Q:%J'
N")'=$ZSTRIP(CS,">N") K SYS(K) . I $ZSTRIP(K,">N")=$ZSTRIP(CS,">N") S NMSPT=NMSPT_$P(K,$ZSTRIP(CS,">N"),2)_" " S:$E(NMSPT,$L(NMSPT))=" " $E(NMSPT,$L(NMSPT))="" S MCS=CS,ZT=$ZT ; 2 S I4=0 ; 3 S XP=703,I4S=I4 K A D TIME F S I4=$O(^|MCS|cLOG(CS,"CTK0","AUTO",I4)) Q:I4=""!(XP>1900) D . I $D(^(I4))=10 K ^(I4) Q . S L=^(I4),(K,P)=$P(L,D) D PARSE^cQCTK1 S NMSPS=$P(L,D,10) . S NMSPC="" S:'$L(NMSPS) NMSPS=$ZU(5) S:NMSPS="*" NMSPS=NMSPT . F i=1:1:$L(NMSPS," ") S NMSPX=$P(NMSPS," ",i),NMSPC=NMSPC_$S($L(NMSPC):" ",1:"")_$S(NMSPX?1.N:$TR($ZU(5),"0123457890"),1:"")_NMSPX . I $L(B) S K=$$TL^cQ13(B,$P(NMSPC," "),P) . S (FP,XP)=XP+100,A(I4)=XP W @F,$J(I4,3) S FP=XP+5 W @F,$E(K,1,36) . S FP=XP+42 S K=$P(L,D,17) W @F,$S(K=1:"*",1:"") . S RF=$P(L,D,2),FP=XP+43 W @F,$$FREQ(RF) S K=$P(L,D,3) D .. I RF=7!(RF=14) I $L(K) W ", ",$$DAG(K) .. I RF=30 W ", ",$S(K=99:$P($T(@("T3"_QT)),U,5),1:$P($T(@("T3"_QT)),U,3)_K_$P($T(@("T3"_QT)),U,4)) . S FP=XP+69 W @F,$P(L,D,4) S FP=XP+75 W @F,$P($T(@("T13"_QT)),U,$P(L,D,5)+2) . S (FP,XP)=XP+100 S FP=XP+5 W @F,$E(NMSPS,1,36) . S FP=XP+17 I P["(" W @F,$E($P($P($P(P,":("),"(",2,$L(P,")")),")",1,$L(P,")")-1),1,24) . S RL="",X=$O(^cLOG(CS,"CTK0","AUTO",I4,$ZCVT($ZU(110),"U"),""),-1) I X S X=$O(^cLOG(CS,"CTK0","AUTO",I4,$ZCVT($ZU(110),"U"),X,""),-1) I X S RL=^(X) . S FP=XP+43 I $L(RL) W @F,$E($P(RL,D,2)_" "_$P(RL,D,3),1,25) . I '$L(RL),$L($P(L,D,7)) W @F,$P(L,D,7)," ",$P(L,D,8) . S FP=XP+71 W @F,$J(+$P(L,D,11),3) . S FP=XP+75 W @F,$P(L,D,12) . S (FP,XP)=XP+100,FP=XP+5 W @F,$E($P(L,D,13),1,36) . S FP=XP+43 S K=+$P(L,D,14) W @F,$S(K=-1:"low",K=1:"High",1:"Normal") . S FP=XP+55 S K=$P(L,D,16) W @F,K . S FP=XP+69 S K=$P(L,D,15) W @F,$S(K="":"EA",1:K) . S FP=XP+75 S K=$P(L,D,18) W @F,$S(K=1:"Y",1:"") S VV=0 I I4'="" S VV=1,I4=$O(^|MCS|cLOG(CS,"CTK0","AUTO",I4),-1) ; 4 L D TIME S R="KEU\21\3\"_$P($T(@("T6"_QT)),U,2)_"\SC0\1\\""WAVLC.-""[K\\\1" D S0 G YZ:KEU="-",W:KEU="W",AAN:KEU="A",VERW:KEU="V",LOG:KEU="L",RUN:KEU="C" I KEU="" D CLS G 3 D CLS G 1 41 D STERN G 4 ; LOG D S1 G 4:K="-",LOG:K="," D STERJ S FP=2103,J=0,(RD,RT)="" W @F,@F1 F S RD=$O(^|MCS|cLOG(CS,"CTK0","AUTO",LINE,$ZCVT($ZU(110),"U"),RD),-1) Q:RD="" D . F S RT=$O(^|MCS|cLOG(CS,"CTK0","AUTO",LINE,$ZCVT($ZU(110),"U"),RD,RT),-1) Q:RT="" D .. W @F S FP=FP+100,J=J+1 .. S K=^|MCS|cLOG(CS,"CTK0","AUTO",LINE,$ZCVT($ZU(110),"U"),RD,RT) W:$P(K,D)="no" @F92,*8 .. W $J($P(K,D),5)," ",$J($P(K,D,2),8)," ",$J($TR($P(K,D,3)," "),5) .. W $J("->",3)," ",$J($P(K,D,6),8)," ",$J($TR($P(K,D,7)," "),5) .. W:$P(K,D)="no" @F93,*8 W:FP#100<40 "|" .. S:FP>2479 FP=2142 I J=8 S FP=2103,J=0 W @F R *K W @F,@F1 I J'=0 S FP=2103 W @F R *K D STERN S FP=2101 W @F,@F1 L -^|MCS|cLOG(CS,"CTK0","AUTO",LINE) LOGZ G 4 ; W D S1 G 4:K="-",W:K="," D STERJ S L=^|MCS|cLOG(CS,"CTK0","AUTO",LINE) W1 S B=$P(L,D,1),R="B\21\3\"_$P($T(@("T2"_QT)),U,3)_"\\140\\$L(K)!(""-,""[K)\\\\\1" D S0 G 41:K="-",41:K="," S $P(L,D,1)=K W2 S B=$P(L,D,2),R="B\22\3\"_$P($T(@("T2"_QT)),U,4)_"\SC1\5\CS1\\22\16\1\\1" D S0 G W1:K="-",41:K="," S $P(L,D,2)=+K W @F,@F2,$$FREQ(K),@F1 S K="" I $P(L,D,2)>30 G W4:$P(L,D,2)>57600 S $P(L,D,3)="",$P(L,D,4)="" G W5 W21 I $P(L,D,2)=7!($P(L,D,2)=14) S B=$P(L,D,3),R="B\22\36\"_$P($T(@("T4"_QT)),U,3)_"\SC2\1\CS2\\22\43\\\1" D S0 G W2:K="-",41:K="," W @F,@F2,$$DAG(+K) W22 I $P(L,D,2)=30 S B=$P(L,D,3),R="B\22\36\"_$P($T(@("T4"_QT)),U,3)_"\SC3\2\CS3\\\\\\1" D S0 G W2:K="-",41:K="," W3 S $P(L,D,3)=+K W4 S B=$P(L,D,4),R="B\22\54\"_$P($T(@("T2"_QT)),U,5)_"\SC5\5\TCTR\\\\\\1" D S0 G 41:K="," I K="-" S K=$P(L,D,2) G W22:K=30,W21:K=7!(K=14),W2 S $P(L,D,4)=K W5 S B=$P(L,D,5),R="B\22\69\"_$P($T(@("T12"_QT)),U,2)_"\1\\""01-,""[K&$L(K)\\\\\1" D S0 G W2:K="-",41:K="," S $P(L,D,5)=K W10 S B=$P(L,D,10),R="B\23\3\"_$P($T(@("T14"_QT)),U,2)_"\SC4\48\CS4\\\\1\\1" D S0 G W5:K="-",41:K="," I K'="*" D . K R F I=1:1:$L(K," ") I $L($P(K," ",I)) S R($P(K," ",I))="" . S K="",I="" F S I=$O(R(I)) Q:I="" S K=K_I_" " . S K=$E(K,1,$L(K)-1) I '$L(K) G W10 S $P(L,D,10)=K W11 S B=$P(L,D,11),R="B\23\23\"_$P($T(@("T19"_QT)),U,2)_"\5\\""-,""[K!(K?.N)\\\1\\1" D S0 G W10:K="-",41:K="," S $P(L,D,11)=K W12 S B=$P(L,D,12),K="" I master'=slave S R="B\23\43\"_$P($T(@("T17"_QT)),U,2)_"\1\\""MS-,""[K\\\1\\1" D S0 G W11:K="-",41:K="," S $P(L,D,12)=K W13 S B=$P(L,D,13) I '$L(K) S K=$ZCVT($ZU(110),"U") S R="B\23\3\"_$P($T(@("T20"_QT)),U,2)_"\SC6\56\CS6\\\\1\\1" D S0 G W12:K="-",41:K="," S:K="." K=$ZCVT($ZU(110),"U") S $P(L,D,13)=K W14 S B=+$P(L,D,14) I B=-1 S B="1-" S R="B\23\43\"_$P($T(@("T21"_QT)),U,2)_"\2\\""-10""[K!(K=""1-"")\\\1\\1" D S0 G W13:K="-",41:K="," S:K="1-" K=-1 S $P(L,D,14)=K W15 S B=$P(L,D,15) S R="B\23\69\"_$P($T(@("T22"_QT)),U,2)_"\3\\K?.U!(""-""[K)\\\1\\1" D S0 G W14:K="-",41:K="," S:K="" K="EA" S $P(L,D,15)=K W16 S B=$P(L,D,16) S R="B\24\3\"_$P($T(@("T23"_QT)),U,2)_"\\11\TTCTR\\\\1\\1" D S0 G W15:K="-",41:K="," S $P(L,D,16)=K W18 S B=$P(L,D,18) S R="B\24\3\"_$P($T(@("T24"_QT)),U,2)_"\\1\\""-1""[K\\\1\\1" D S0 G W16:K="-",41:K="," S $P(L,D,18)=K S ^|MCS|cLOG(CS,"CTK0","AUTO",LINE)=L I '$D(A(LINE)) S A(LINE)=$G(A(+$O(A(LINE),-1)))+200 D STERN,CLS S I4=I4S L -^|MCS|cLOG(CS,"CTK0","AUTO",LINE) G 3 ; AAN S LINE=$O(^|MCS|cLOG(CS,"CTK0","AUTO",""),-1)+1,L="" L +^|MCS|cLOG(CS,"CTK0","AUTO",LINE):1 E G AAN G W1 ; VERW D S1 G 4:K="-",VERW:K="," D STERJ VERW1 S R="K\22\3\"_$P($T(@("T9"_QT)),U,2)_"\1\\""-,V""[K&$L(K)\\\1" D S0 I "-,"[K D STERN G VERW:K="-",4:K="," S R="K\22\3\"_$P($T(@("T10"_QT)),U,2)_"\1\\""-,V""[K&$L(K)\\\1" D S0 G VERW1:K="-" I K="," G 41 K ^|MCS|cLOG(CS,"CTK0","AUTO",LINE) L -^|MCS|cLOG(CS,"CTK0","AUTO",LINE) D STERN,CLS S I4=I4S G 3 ; RUN D S1 G 4:K="-",RUN:K="," S R="K\22\3\"_$P($T(@("T18"_QT)),U,2)_"\1\\""-,1""[K&$L(K)\\\1" D S0 I "-,"[K L -^|MCS|cLOG(CS,"CTK0","AUTO",LINE) G RUN:K="-",41:K="," D STERJ S $P(^|MCS|cLOG(CS,"CTK0","AUTO",LINE),D,17)=1 D STERN,CLS S I4=I4S L -^|MCS|cLOG(CS,"CTK0","AUTO",LINE) G 3 ; YZ Q ; S0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0) S0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0 S0Z K R0,R1 D ^cQ1000 Q ; S1 S R="K\21\3\"_$P($T(@("T7"_QT)),U,2)_"\3\\K?1.3N&K!(K=""-"")\\\" D S0 G S1Z:K="-" I '$D(A(+K)) S R=$P($T(@("T8"_QT)),U,2) D MS S K="," G S1Z S LINE=+K I KEU'="L" D . L +^|MCS|cLOG(CS,"CTK0","AUTO",LINE):1 E D .. S K=$O(^|MCS|cLOG(CS,"CTK0","AUTO",LINE,$ZCVT($ZU(110),"U"),""),-1) .. I K S K=$O(^|MCS|cLOG(CS,"CTK0","AUTO",LINE,$ZCVT($ZU(110),"U"),K,""),-1) I K S K=$P(^(K),"\",1) .. S R=$P($T(@("T1"_QT)),";",2)_$S($L(K):" job "_K,1:"") D MS S K="," S1Z Q ; STERJ S FP=$G(A(LINE),702)-2 W @F,"*" Q ; STERN S FP=$G(A(LINE),702)-2 W @F," " Q ; SC0 W !?2,$P($T(@("T6"_QT)),U,3),!?2,$P($T(@("T6"_QT)),U,4) SC0Z Q ; SC1 W !?1 F I=1,2,7,+$H,14,30,3600 W:I=14 ! W " ",I,"[]= ",$$FREQ(I) SC1Z Q ; CS1 ;"-,"[K&$L(K)!(";1;2;7;14;30;"[(U_(+K)_U))!(K>59&(K<86401)) ; SC2 W ! F I=0:1:6 W:I=5 ! W " ",I,"[] = ",$$DAG(I) SC2Z Q ; CS2 ;"-,0123456"[K&$L(K) ; SC3 W !?2,@F1,$P($T(@("T11"_QT)),U,2) SC3Z Q ; CS3 ;"-,"[K&$L(K)!(K?1.2N&K&(K<32))!(K=99) ; SC4 N I S I="" W !?2,$P($T(@("T14"_QT)),U,3)," " F S I=$O(SYS(I)) Q:I="" W ?2,$P(I,$ZSTRIP(CS,">N"),2)," " Q ; CS4 ;"-,*"[K&$L(K)!(K?1.2N.(.1" ".N))!(K="%SYS")!$L(K) ; SC5 W !?2,@F1,$P($T(@("T16"_QT)),U,2) SC5Z Q ; SC6 W !?2,"[] = ",B," .[] = ",$ZCVT($ZU(110),"U") Q ; CS6 ;("-."[K)!(K?.ANP) ; TCTR ;K?2N1":"2N&($E(K,1,2)<24)&($E(K,4,5)<60)!("-,"[K&$L(K)) ; TTCTR ;(K?2N1":"2N1"-"2N1":"2N)&(($E(K,1,2)<25)&($E(K,4,5)<60)&($E(K,7,8)<25)&($E(10,11)<60))!("-,"[K) ; FREQ(K) N I,L S K=+K S L=$P($T(@("T4"_QT)),U,$S(K=1:3,K=2:4,K=7:5,K=14:6,K=30:7,1:2)) I K>57600 D Q L . S %DN=K D 200^%DO S I=$P(%DX,"/",2),L=$E("0"_I,$L(I),3)_"." . S I=$P(%DX,"/"),I=$E("0"_I,$L(I),3),L=L_I_"."_$P(%DX,"/",3) FREQZ Q $P($T(@("T3"_QT)),U,2)_$S(K>30:K\3600,1:"")_L_$S(K>30:K#3600\60_$P($T(@("T4"_QT)),U,8),1:"") ; DAG(K) Q $P($T(@("T5"_QT)),U,K+2) ; CLS F XP=800:100:1900 S FP=XP+3 W @F,$J("",3) S FP=FP+4 W @F,$J("",37) S FP=FP+38 W @F,$J("",26) S FP=FP+27 W @F,$J("",5) S FP=FP+6 W @F," " Q ; TRAP I $ZE["" S R=$P($T(@("T14"_QT)),U,2)_" "_CS_$P($T(@("T14"_QT)),U,4) D MS G 11 W !!,$ze,!! Q TRAPZ S $ZT="TRAP" ZQ ; MS U $P S FP=2403 W @F,@F4,R," [] = ok ",@F5,@F2,@F0 R K MSZ Q ; TIME D date,time S K=DT_" "_TD_" - "_CS,FP=279-$L(K) W @F,@F92,K,@F93 TIMEZ Q ; P D QQM^cQ6,B^cA612,1,E^cA612 Q ; ZZ ; 17.01.2012 - 15:58 * Cache-r6.4.9