Specifies the type of record locking. 
               
            
 
            	 
            
               Syntax:
 
               		 
               		>>-.---.--LOCKTYPE--"integer"--------------><
   +-/-+
 
               	   
            	 
            
               Parameters:
 
               		 
               		
                
                  		   
                  			 
                  -  
                     				integer 
                     			 
                  
  
                  			 
                  - The type of locking. 
                     				
                     
                         
                           					  
                           					  
                           					 
                            
                              						
                               
                                 						  
                                 | 0 
                                    						  
                                  |  
                                 						  
                                 Programs can read locked records, but not access them in other ways. This is the standard method with this COBOL system. 
                                    						  
                                  |  
                                 						
                              
 
                              						
                               
                                 						  
                                 | 1 
                                    						  
                                  |  
                                 						  
                                 Programs cannot access locked records at all. This is as in languages other than COBOL. 
                                    						  
                                  |  
                                 						
                              
 
                              						
                               
                                 						  
                                 | 2 
                                    						  
                                  |  
                                 						  
                                 Creates a new file with the same basename as the file being opened but with a 
                                    							 .lck extension. Any record locks are recorded in this file. This enables the File Handler to read and write to files up to 4 gigabytes
                                    in size regardless of whether the file is shared or locked. You cannot set this value for striped files. 
                                    						  
                                  |  
                                 						
                              
 
                              					 
                            
                           				  
                        
                      
                     			 
                    
                  		   
                  		
               
 
               	 
              
            	 
            
               Properties:
 
               		 
               		
                
                  		
                  
                      
                        			  
                        			  
                        			 
                         
                           				
                            
                              				  
                              | Default: 
                                 				  
                               |  
                              				  
                              LOCKTYPE"0" 
                                 				  
                               |  
                              				
                           
 
                           				
                            
                              				  
                              | Phase: 
                                 				  
                               |  
                              				  
                              Syntax check 
                                 				  
                               |  
                              				
                           
 
                           				
                            
                              				  
                              | $SET: 
                                 				  
                               |  
                              				  
                              Initial 
                                 				  
                               |  
                              				
                           
 
                           			 
                         
                        		  
                     
                    
                  		
                 
               	 
              
            	 
             
            
           
         
         
Comments:
This directive only has an effect if the CALLFH directive is used.