cA601	;GEJOBD PRINTPROGRAMMA ;%A602 ;job uit %A602 ; [ 02/07/02  10:10 AM ]
	;
T0	;Gejobd printprogramma ;
	;
T0F	;Imprimer par job ;
	;
T0E	;Gejobd printprogramma ;
	;
1	S $ZT="^cA407" D S1
11	S Q=^(0) X $P(^(1)," ",1,4) D ^cA600,MASTER^cQ5
12	D S1 S K=^(4),UCI="MGR",UCI2=$ZU($ZV'["MSM"*5) D UCI
	S $P(^cLOG(boot,"DEV",$I),D)=$P(^cLOG(boot,"DEV",K),D),UCI=UCI2
	D UCI,^cA600,^cA105,^cA106
13	D S1 S F70=^(1),F71=^(2),R=^(3),K=^(4) D  K ^HULP(boot,"JOB")
	. I $L($G(^(5))) S ISO=^(5)
15	S QP=1,QD=$S($D(@("^"_Q_"BA(34)")):+^(34),1:0),%Q1="^TEMP(""%1"",$J)"
17	S F70="C "_K_" "_F70_" S ^HULP(boot,""OP"",$J)=$I I $D(^cLOG(boot,""TERMINAL"",$I)),$L(^($I)) X ^($I)",F71=$P(F71," ",3,99)_" K ^HULP(boot,""OP"",$J)"
19	O K U K D @$P(R,U) X F71
	;
YZ	H
	;
S1	I '$D(^HULP(boot,"JOB",0)) H
S1Z	Q
	;
UCI	I $ZV["MSM" D INT^cQMSMSW
	Q
	;
ZZ	; 15.04.03 -  9 u 31 * V7.94