cQBGJBP ;Logboek achtergrond jobs ;cQBGJBP; [ 02/20/01  2:30 PM ]
 ;
T0 ;Logboek achtergrond jobs ;
T1 ;Afdrukken\"[] = scherm   .[] = printer";
T2 ;Blz :;
T3 ;Nr;Actief;Niet ;
T4 ;Elke ;de ;-de;laatste dag;
T5 ;Namespaces: ;Wachttijd: ;
T6 ;Systemen: ;
 ;
T0F ;Journal jobs non-interactives ;
T1F ;Afficher\"[] = écran   .[] = imprimante";
T2F ;Page:;
T3F ;No;Actif;Pas ;
T4F ;Chaque ;le ;-ieme;dernier jour;
T5F ;Namespaces: ;Delai: ;
T6F ;Systèmes: ;
 ;
1 D INI^cQ6,MASTER^cQ5 N %Q
11 S K=$P($T(@("T0"_QT)),";",2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 ;
2 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-.""[K\\\1" D R0 G YZ:K="-",3:K=""
 S R=0_D_1 D ^cA345 I K="-"!(K=",") G 2
 S NM1=QN,NM2=$G(@("^"_Q_"BA(99,2)")),NM3=$G(^(3))
 S B=78,C=80,BLZ=0,PR=1 X F70 W @F80 S $Y=999 D DISP
 W $$FF^cA334 X F71 G 11
 ;
3 S FP=402 W @F,@F1
 ;
4 S X=4,Y=4,PR=0 D DISP G 11
 ;
YZ Q
 ;
DISP S LOG="^cLOG(cs,""CTK0"",""AUTO"")",(LINE,RD,RT)=""
 F  S LINE=$O(@LOG@(LINE)) Q:LINE=""  D:$D(^(LINE))#10  Q:K="-"
 . S L=^(LINE)
 . I 'PR S FP=X*100+Y W @F,@F1
 . I PR D NL
 . W $P($T(@("T3"_QT)),U,2),$J(LINE,3),": ",$P(L,D)
 . I 'PR S FP=FP+64 W @F
 . I PR W ?64
 . W $S('$P(L,D,5):$P($T(@("T3"_QT)),U,4),1:""),$P($T(@("T3"_QT)),U,3)
 . I 'PR S FP=FP\100+1*100+11 W @F
 . I PR D NL W ?7
 . S RF=$P(L,D,2) W $$FREQ^cQBGJB(RF) S K=$P(L,D,3)
 . I RF=7!(RF=14) I $L(K) W ", ",$$DAG^cQBGJB(K)
 . I RF=30 W ", ",$S(K=99:$P($T(@("T4"_QT)),U,5),1:$P($T(@("T4"_QT)),U,3)_K_$P($T(@("T4"_QT)),U,4))
 . W "  ",$P(L,D,4),"  ",$P($T(@("T5"_QT)),U,2),$P(L,D,10)
 . W "  ",$P($T(@("T5"_QT)),U,3),$P(L,D,11)
 . I 'PR S FP=FP\100+1*100+9 W @F
 . I PR D NL W ?9
 . W "  ",$P($T(@("T6"_QT)),U,2),$P(L,D,13)
 . I 'PR S X=8 S FP=X*100+Y W @F
 . I PR D NL
 . S (RD,RT)="",Z=0
 . F  S RD=$O(@LOG@(LINE,boot,RD),-1) Q:RD=""  D  Q:Z=20
 .. F  S RT=$O(@LOG@(LINE,boot,RD,RT),-1) Q:RT=""  D  Q:Z=20
 ... S K=$G(@LOG@(LINE,boot,RD,RT)),Z=Z+1 I PR,Z#2 D NL W @F30," "
 ... W $$LL(K) W:'PR&($G(Y)<11) " |" W:PR " ",@F30," "
 ... I 'PR S:'(Z#2) X=X+1,Y=4 S:Z#2 Y=43 S FP=X*100+Y W @F
 . I 'PR S X=4,Y=4,FP=2303 W @F,"[] = ok : .",@F2,*8 R K
 . I PR W:(Z#2) $$LL("")," ",@F30 D NL,LN
DISPZ Q
 ;
LL(A) Q $J($P(A,D),4)_" "_$J($P(A,D,2),8)_" "_$J($TR($P(A,D,3)," "),5)_$J("->",3)_" "_$J($P(A,D,6),8)_" "_$J($TR($P(A,D,7)," "),5)
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A 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
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
HDR S K=$P($T(@("T0"_QT)),U,2) W !,NM1,?B-8,$P($T(@("T2"_QT)),U,2),$J(BLZ,3)
 W !,NM2,$$CR^cA334,?B-$L(K)\2,@F85,K,@F83,$$CR^cA334,?B-8,DT,!,NM3,?B-7,TD,! W:$D(ISO) ?B-$L(ISO),ISO S $Y=4
 D LN
 Q
 ;
LN S K="",$P(K,"-",C)="-" W K D NL S K=""
 Q
 ;
NL W:BLZ ! I $Y-8>LNMAX W:BLZ $$FF^cA334 S BLZ=BLZ+1 D HDR
 Q
 ;
MS U 0 S FP=2403 W @F,@F4,R,"  [] = ok ",@F5,@F2,@F0 R *K
MSZ Q
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8