With CBL_THREAD_PROG_LOCK, provides a single pre-initialized synchronization object per calling COBOL program 
    
 
  
 
    Syntax:
 
       
      call "CBL_THREAD_PROG_UNLOCK"
 
    Example:
 
       
       
        Example 
      
 
      These functions must be called either directly or indirectly from a COBOL program. The calling COBOL program is the one with which the lock is associated. 
      
 
    
Comments:
This function, in conjunction with CBL_THREAD_PROG_LOCK, provides a single pre-initialized synchronization object per calling COBOL program. This makes it especially useful for initializing any program local data items or synchronization objects.