
{
{  The purpose of this procedure is to set a signature lock.
{  The global taskid of the current task is placed in the lock.  If
{  the lock is already set and a wait option has been specified
{  then this routine will CYCLE until the lock is free.  If the
{  lock is being set in the mainframe wired or mainframe paged
{  segment, the system lock count in the current task's XCB is
{  incremented.
{
{    OSP$SET_SIGNATURE_LOCK (LOCK, WAIT, STATUS)
{
{  LOCK: (OUTPUT) This parameter specifies the lock.
{
{  WAIT: (INPUT) This parameter specifies the wait or nowait option.
{
{  STATUS: (OUTPUT) This parameter specifies the error status.
{
