cA608 ;STOPPEN GEJOBDE PRINTERS ;%A603 ;do uit %A603 ;
 ;
T0 ;Stoppen gejobde printers ;
 ;
T0F ;Arreter des imprimantes ;
 ;
T0E ;Stoppen gejobde printers ;
 G YZ
 ;
 ;aanduiden gejobde printers
1 K OP S R="",R1=0
11 S R=$O(JD(R)) G YZ:R="" S R1=R1+1 I '$D(^HULP("OP",R)) G 11
13 I ^(R)'=+JD(R) K ^(R) G 11
15 S OP(R)=^(R),FP=R1*100+501 W /CUP(FP\100,FP#100),"->" G 11
 ;
 ;aanduiden gekozen job
2 S R="",R1=0
21 S R=$O(JD(R)) G YZ:R="" S R1=R1+1 I R'=JO S FP=R1*100+501 W /CUP(FP\100,FP#100),"  "
23 G 21
 ;
YZ K R,R1 Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84