TYPE
     jmt$lock_functions = (lock_ajl,lock_kjl,unlock_ajl,unlock_kjl,lock_both,
                         unlock_both);
