cA310 ;PROGRAMMA UITVOEREN ;%A310; [ 02/13/01  11:34 AM ]
 ;
T0 ;Voer een programma uit ;
T1 ;Geef de code;
T2 ;X-programma: ;Volgend programma   [] = ok : .;Fout: ;
T3 ;Geef een programma-naam, zoals;
T4 ;Rout of ^rout    om het programma 'rout' te starten;
T5 ;Label^rout       om het programma 'rout' te starten op lijn 'label';
T6 ;U kan ook een van de volgende nummers ingeven:;
T7 ;~1~%GL~Global lister~%G;
T8 ;~2~%A314~Bestanden wijzigen~;
T9 ;~3~%A311~Xecute een lijn~;
T10 ;~4~%GR~Global restore~%GI;
T11 ;~5~%RR~Routine restore~%RI;
T12 ;~6~%ZKR~Kermit-M~0;
T13 ;~7~%QTELEM~Telemaintenance~0;
T14 ;~8~%QTP~Test poorten~0;
T15 ;~9~%QSW~Switchen van uci~%CD;
T16 ;~10~%FN96;;1~Niet-beheerbare parameters Verkoop~;
T17 ;~11~%FN96;1;1~Niet-beheerbare parameters Aankoop~;
T18 ;~12~%PNA902;1~Niet-beheerbare parameters Produkten~;
T19 ;~13~%G~Global lister (quotes)~%G;
T20 ;~14~%AB1~Beheer ^DMx~;
T21 ;~15~%FW999~Op-/Afzetten tb~;
T22 ;~#~Programma~Omschrijving~;
 ;
T0F ;Exécution d'un programme ;
T1F ;Donnez le code;
T2F ;Programme X: ;Programme suivant   [] = ok : .;Erreur: ;
T3F ;Donnez le nom du programme, comme;
T4F ;Rout ou ^rout    pour démarrer le programme 'rout';
T5F ;Label^rout       pour démarrer le programme 'rout' dès la ligne 'label';
T6F ;Vous pouvez aussi introduire un des numéros suivants:;
T7F ;~1~%G~Edition Fichier~%G;
T8F ;~2~%A314~Modification Fichier~;
T9F ;~3~%A311~Xecuter une ligne~;
T10F ;~4~%GR~Global restore~%GI;
T11F ;~5~%RR~Routine restore~%RI;
T12F ;~6~%ZKR~Kermit-M~0;
T13F ;~7~%QTELEM~Telemaintenance~0;
T14F ;~8~%QTP~Test des portes~0;
T15F ;~9~%QSW~Changer d'UCI~%CD;
T16F ;~10~%FN96;;1~Paramètres de vente ingérables~;
T17F ;~11~%FN96;1;1~Paramètres d'achat ingérables~;
T18F ;~12~%PNA902;1~Parametres de produits ingérables~;
T19F ;~13~%G~Afficher fichier (quotes)~%G;
T20F ;~14~%AB1~Gestion ^DMx~;
T21F ;~15~%FW999~Op-/Afzetten tb~;
T22F ;~#~Programme~Description~;
 ;
T0E ;Voer een programma uit ;
T1E ;Geef de code;
T2E ;X-programma: ;Volgend programma   [] = ok : .;Fout: ;
T3E ;Geef een programma-naam, zoals;
T4E ;Rout of ^rout    om het programma 'rout' te starten;
T5E ;Label^rout       om het programma 'rout' te starten op lijn 'label';
T6E ;U kan ook een van de volgende nummers ingeven:;
T7E ;~1~%GL~Global lister~%G;
T8E ;~2~%A314~Bestanden wijzigen~;
T9E ;~3~%A311~Xecute een lijn~;
T10E ;~4~%GR~Global restore~%GI;
T11E ;~5~%RR~Routine restore~%RI;
T12E ;~6~%ZKR~Kermit-M~0;
T13E ;~7~%QTELEM~Telemaintenance~0;
T14E ;~8~%QTP~Test poorten~0;
T15E ;~9~%QSW~Switchen van uci~%CD;
T16E ;~10~%FN96;;1~Niet-beheerbare parameters Verkoop~;
T17E ;~11~%FN96;1;1~Niet-beheerbare parameters Aankoop~;
T18E ;~12~%PNA902;1~Niet-beheerbare parameters Produkten~;
T19E ;~13~%G~Global lister (quotes)~%G;
T20E ;~14~%AB1~Beheer ^DMx~;
T21E ;~15~%FW999~Op-/Afzetten tb~;
T22E ;~#~Programma~Omschrijving~;
 ;
1 N QL,QU D INI^cQ6
11 W @F11,@F1,!?1,@F92,$P($T(@("T1"_QT)),";",2),@F93,@F1,": " B 0 R K:60 W ! I DD_DM_DJ#$H'=K G YZ
12 S $ZT="ER^cA310" U 0 W !?2,$P($T(@("T2"_QT)),";",2) R K:300 G 3:"-^"[K,12:K?.E1C.E
13 I K?1N.N F I=7:1 S J=$T(@("T"_I_QT)),L=$P(J,"~",2) S:L="" K=L Q:L=""  I K=L S K=$$CACHE($P(J,U,2)) K J Q
14 S:K="" K="?" I K="?" D S1 G 12
15 I K'["^" S K="^"_K
16 I K["^cA311" G @K
17 S R=K U 0 W ! B 1 D @$P(R,";") B 0 U 0 W !!?2,$P($T(@("T2"_$G(QT))),";",3),$C(7),$C(8) R K:300
 ;
2 W !! D INI^cQ6 W @F1 G 12
 ;
3 S $ZT="^cA405" B 0 D INI^cQ6
 ;
YZ Q
 ;
INT G 12
 ;
S1 U $P W !!?2,$P($T(@("T3"_QT)),";",2),!?5,$P($T(@("T4"_QT)),";",2),!?5,$P($T(@("T5"_QT)),";",2),!!?2,$P($T(@("T6"_QT)),";",2)
S1A F I=7:1 S K=$T(@("T"_I_QT)) Q:K["~#~"  I $L($$CACHE($P(K,U,2))) W !,$J($P(K,"~",2),5)," -> ",$$CACHE($P(K,U,2)),$J("",10-$L($$CACHE($P(K,U,2))))," = ",$P(K,"~",4)
S1Z W ! Q
 ;
CACHE(R) ; omvormen ^c naar ^c
 I $ZV["MSM" S R=$P(R,"~",3) G CACHEZ
 I $P(R,"~",5)=0 S R="" G CACHEZ
 I $L($P(R,"~",5)) S R=$P(R,"~",5) G CACHEZ
 S R=$P(R,"~",3)
 N I
 I $E(R)="%" S $E(R)="c" G CACHEZ
 F I=1:1 Q:R'["^c"  S R=$P(R,"^c")_"^c"_$P(R,"^c",2,99)
CACHEZ Q R
 ;
ER U 0
 I $ZV["MSM",$ZE["<INTERRUPT>" S $ZT="^cA405" B 0 H 2 S $ZT="ER^cA310" G 2
 I $ZV'["MSM",$ZE["<INTERRUPT>" S $ZT="^cA405" B 0 H 2 S $ZT="ER^cA310" G 2
 ;
ZZ ; 14.02.01 - 14 u 40 * V7.84