cANLOCKC ;LOCK-functie ;%ANLOCK ; [ 01/04/01  11:31 AM ]
 G 1
 ;
T0 ;LOCK-functie ;
T1 ; in gebruik door ; job ;
T2 ; in gebruik;
 ;
T0F ;LOCK-function ;
T1F ; en usage par ; job ;
T2F ; en usage;
 ;
T0E ;LOCK-function ;
T1E ; in use by ; job ;
T2E ; in use;
 ;
 ; Dit programma moet variabele LJOB opbouwen: " in gebruik ..."
 ; indien mogelijk initialen & jobnummer opnemen
 ;
1 S LJOB=$P($T(@("T2"_QT)),U,2)
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84