cA602 ;JOB PRINTPROGRAMMA ;%A602; do uit %A501 ; [ 12/08/97  10:20 AM ]
 ;
T0 ;Job printprogramma ;
T1 ;Deze printer is niet toegelaten ;
 ;
T0F ;Imprimer par job ;
T1F ;Cet imprimante n'est pas permise ;
 ;
T0E ;Job printprogramma ;
T1E ;Deze printer is niet toegelaten ;
 ;
1 S K=$P($T(@("T0"_QT)),U,2)_QN_" " W /CUP(1,1),/WCMD,/CUP(2,2),/SGR(7)," ",K,/SGR(27)
11 S PROG=R K ^HULP(boot,"JOB",$J)
13 I '$P($G(^cLOG(boot,"DAM",2)),D) S %S3="S ^HULP(boot,""JOB"",$J)=F70" D ^cA322 G YZ:"-"[K S F70=^HULP(boot,"JOB",$J)
 I $P($G(^cLOG(boot,"DAM",2)),D) D ^cAN322("",1) G YZ:"-"[K D
 . F J="D B^cAN322(3)","D BE^cAN322","D E^cAN322" S:F70[J F70=$P(F70,J,1)_$P(F70,J,2,99) S:F71[J F71=$P(F71,J,1)_$P(F71,J,2,99)
15 I F70'[" O " S K=$P($T(@("T1"_QT)),U,2) D F1 G 13
17 F J="D W^cA612","D X^cA612" I F70[J S F70=$P(F70,J,1)_$P(F70,J,2,99)
19 F J="D W^cA612","D X^cA612" I F71[J S F71=$P(F71,J,1)_$P(F71,J,2,99)
 ;
2 S F70="S $ZT=""^cA407"" U $P W !!,""Exit"",! C "_$P_" "_F70_" S HULP(boot,""OP"",$J)=$I"
21 S F71="K ^HULP(boot,""OP"",$J) "_F71_" H"
23 S R=PROG G @$P(R,U)
 ;
YZ Q
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84