cICMPSGP(S) ;VERGELIJKING BESTANDEN ;%ICMSG ; [ 02/22/00  9:36 AM ]
 ; S = schema
 ;
T0 ;VERGELIJKING BESTANDEN ;
T1 ;PLAATS BREED BLANKO PAPIER OP DE PRINTER EN SCHAKEL HEM AAN\"[] = OK   ,[] = HERNEMEN";
T2 ;Blz :;
T3 ;Controle uitgevoerd:;Huidig bestand: ;
T4 ;Command: ;
T5 ;Schema : ;
 ;
T0F ;COMPARAISON DES FICHIERS ;
T1F ;PLACEZ DU PAPIER LARGE SUR L'IMPRIMAMTE ET METTEZ-LA EN MARCHE\"[] = OK   ,[] = REPRENDRE";
T2F ;Page:;
T3F ;Contrôle effectué:;Fichier actuel: ;
T4F ;Command: ;
T5F ;Schema : ;
 ;
1 D INI^cQ6 S CHK=0
 D MASTER^cQ5
 ;
2 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-,""[K\" D R0 I K="-"!(K=",") G YZ
 ;
3 S LOG="^ZZLOG(""COMPARE"",""G"")",NM1=$G(@("^"_Q_"BA(99,1)")),NM2=$G(^(2)),NM3=$G(^(3)),B=130
 S BLZ=1 X F70 W @F80 D HDR,NL
 ;
 F II=1:1:IU D
 . I II>1 D NL,NL
 . S N=0
 . F  S N=$O(@LOG@(S,0,UCS(II),"start",N)) Q:N=""  D  D NL
 .. W $P($T(@("T3"_QT)),U,2) S X=$X
 .. W ?X,$J(N,2),". " S Y=$X W "Job ",$J($P(^(N),D,4),3)," ",$P(^(N),D,2),"  ",$P(^(N),D,3)," -> "
 .. I $D(@LOG@(S,0,UCS(II),"stop",N)) W $P(^(N),D,2),"  ",$P(^(N),D,3),"  ",$J($P(^(N),D,4),3)
 .. I $D(@LOG@(S,0,UCS(II),"start",N,"cmnd")) S K=^("cmnd") D
 ... D NL
 ... W ?Y,$P($T(@("T4"_QT)),U,2) S Z=$X
 ... F  W ?Z,$E(K,1,B-Z) S K=$E(K,B-Z+1,$L(K)) Q:'$L(K)  D NL
 .. I $D(@LOG@(S,0,UCS(II),"error",N)) D NL W ?Y,"Error: ",$P(^(N),D)
 .. ;
 .. D NL
 .. W UCS(II)," -> ",$P($T(@("T3"_QT)),U,3),$G(@LOG@(S,0,UCS(II),"current")),"  ",$G(@LOG@(S,0,UCS(II),"current","at"))
 . S N="   node",G=0
 . D NL
 . F  S G=$O(@LOG@(S,UCS(II),G)) Q:G=""  S VNR=0 D
 .. F  S VNR=$O(@LOG@(S,UCS(II),G,VNR)) Q:VNR=""  S X="" K L D  D NL
 ... F  S X=$O(@LOG@(S,UCS(II),G,VNR,N,X)) Q:X=""  D
 .... B
 .... D NL
 .... W $J(VNR,5),".",@LOG@(S,UCS(II),G,VNR,N,X)
 .... S L=$G(@LOG@(S,UCS(II),G,VNR,X)) I $L(L) D LINE
 ... S X=N F  S X=$O(@LOG@(S,UCS(II),G,VNR,X)) Q:X=""  I '$D(L(X)) S L=^(X) D LINE
 ;
4 W # X F71
 ;
YZ Q
 ;
INT(K) S C=$G(K," ") N G,K,L,LOG,N,P,S,VNR,X,Y,Z G 3
 ;
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
 ;
LINE D NL W ?9,X," = " S E=$X,L(X)="" F  S K=$E(L,1,B-E),L=$E(L,B-E+1,$L(L)) Q:'$L(K)  W K I $L(L) D NL W ?E
 Q
 ;
HDR S K=$P($T(@("T0"_QT)),U,2) W !,NM1,?B-8,$P($T(@("T2"_QT)),U,2),$J(BLZ,3)
 W !,NM2,$C(13) S $X=0 W ?B\2-$L(K),@F82,K,@F83,$C(13) S $X=0 W ?B-8,DT,!,NM3
 W ?B\2-($L($P($T(@("T5"_QT)),U,2))+$L(S)),$P($T(@("T5"_QT)),U,2),S
 W ?B-7,TD,!
 W ?B\2-$L($G(UCIL)),$G(UCIL)
 W:$D(ISO) ?B-$L(ISO),ISO
 S $Y=0
 Q
 ;
NL W ! I $Y-8>LNMAX W # S BLZ=BLZ+1 D HDR W !!
 Q
 ;
ZZ ; 13.03.00 - 17 u 31 * V7.3