cQ14 ;More Functions ;cQ14; [ 02/12/01  9:40 AM ]
 G YZ
 ;
T0 ;Meer functies ;
 ;
T0F ;Encore de functions ;
 ;
YZ Q
 ;
NS() Q $ZU(110)
 ;
JOB(I) N J S J=$$JOB^cS(I) ;S J=$J
JOBZ Q J
 ;
BGJOB(J) ;Background job ??
 Q 0
 ;
INFO() N X,Y,Z S X=$P($ZU(86),":"),Z=X_":\temp",Y=$ZF(-1,"md "_Z)
 S Z=Z_"\info"_$j
 Q Z
 ;
V(J,A) ; Variables of Job J
 ; A = D (display), G (get into partition), S (Save in ^TEMP($J+01,"VAR",P))
 N %
 S %(1)=$G(J) Q:'%(1)  Q:'$ZU(67,10,%(1))  ; No job type
 S %(2)=$G(A,"D"),%(3)=$ZU(88,0,%(1))
 I %(2)="G" K (%)
 I %(2)="S" K ^TEMP($J+.01,"VAR",%(1)) S %(5)=0
 F  S %(3)=$ZU(88,1,%(1),%(3)) Q:%(3)=""  S %(4)=$ZU(88,2,%(1),%(3)) D
 . I %(2)="D" W !,%(3),?30,%(4)
 . I %(2)="G" S @%(3)=%(4)
 . I %(2)="S" S %(5)=%(5)+1,^TEMP($J+.01,"VAR",%(1),%(5))=%(3),^(%(5)+.01)=%(4)
 Q
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8