The Create Spin Lock routine creates and initializes a simple
    (spin) lock, and returns the lock identifier. You use that lock
    identifier to get and free the lock.

    Format

      PPL$CREATE_SPIN_LOCK  lock-id [,lock-name]