Who is using the Document Library Objects?

The WRKDLOLCK command has following components:

 
WRKDLOLCK   *CMD 
WRKDLOLCK   *PGM  CL program

Following is the source code:

/*********************************************************************/
/*                    COMMAND : WRKDLOLCK                            */
/*                                                                   */
/*    THIS COMMAND IS USED TO CHECK LOCK ON DOCUMENTS IN QDLS        */
/*                                                                   */
/*                                                                   */
/*    AUTHOR : MOHAMMAD HANIF                                        */
/*********************************************************************/
                                                              
             CMD        PROMPT(WRKDLOLCK)                     
                                                              
             PARM       KWD(DOC) TYPE(*CHAR) LEN(12) MIN(1) + 
                          PROMPT('Document Name')             
                                                              
             PARM       KWD(FLR) TYPE(*CHAR) LEN(20) MIN(1) + 
                          PROMPT('Folder Name')               


/*********************************************************************/
/*                 CL PROGRAM : WRKDLOLCK                            */
/*                                                                   */
/*    THIS PROGRAM IS USED TO CHECK LOCK ON DOCUMENTS IN QDLS        */
/*                                                                   */
/*                                                                   */
/*    AUTHOR : MOHAMMAD HANIF                                        */
/*********************************************************************/
                                                                       
             PGM        PARM(&DOC &FLR)                                
                                                                       
             DCL        VAR(&DOC) TYPE(*CHAR) LEN(12)                  
             DCL        VAR(&FLR) TYPE(*CHAR) LEN(20)                  
             DCL        VAR(&SYSNAME) TYPE(*CHAR) LEN(10)              
                                                                       
/* RETRIEVE DOCUMENT SYSTEM NAME.....................................*/
                                                                       
             RTVDLONAM  DLO(&DOC) FLR(&FLR) RTNOBJNAM(&SYSNAME)        
                                                                       
             MONMSG     MSGID(CPF8A77) EXEC(DO)                        
             SNDPGMMSG  MSG('Folder name incorrect')                   
             GOTO ENDJOB                                               
             ENDDO
             
             MONMSG     MSGID(CPF8A82) EXEC(DO)                        
             SNDPGMMSG  MSG('Document name incorrect')                 
             GOTO ENDJOB                                               
             ENDDO                                                     
                                                                       
/* CHECKING LOCK ON THE DOCUMENT.....................................*/
                                                                       
             WRKOBJLCK  OBJ(QDOC/&SYSNAME) OBJTYPE(*DOC)               
                                                                       
 ENDJOB:     ENDPGM                                                     

  
  


						
						
				
						

							

						
								



 



 

















 
















	
	







	 


	   
	



	

		

			Rate this Tip
		
	
	

		
		

		
		 To rate tips, you must be a member of Search400.com.
Register now 
			to start rating these tips. Log in if you are already a member.
		
	
	
	
		
		 

		

		


			Submit a Tip  
		
	
		 

 

									
									




	 
	 
	
		   

 



 

   
	  
	
	  
	
		
		
	
			
		 

			

				
			
		
	
	 
	
		 
		 
		         

Digg This!
		   
      
		  StumbleUpon
		 
     

 Del.icio.us

       
			
	 
	 
	 

  
	 
	
		

		
	 
	
	
	

	

	  
	 
	  
	
	
		

	
	    	
	 
	  
			        
				  
				    
			        
				  
				  
					    
	
	
	
		
		
			
			
				
					
		

			

				

				

				

		
				

				
RELATED CONTENT

				
				
				 
				 
					
					
					
						
							
							        
						
							  
								

	
										  
										

											

											
iSeries administrator tips
										
										 
									
									
										       
											 
													

														

														
Translating Linux for IBM i admins: Using GUI to make it easy
														
													
												  
									
										       
											 
													

														

														
Translating Linux for IBM i admins: Working with jobs and networking
														
													
												  
									
										       
											 
													

														

														
OpenOffice: What to know before making the transition from Microsoft Office
														
													
												  
									
										       
											 
													

														

														
OpenOffice: An enterprise open source solution
														
													
												  
									
										     	
											   
											 
													

														

														
Database performance comparisons on IBM i
														
													
												  
									
										     	
											   
											 
													

														

														
Translating Linux for IBM i admins: User profile commands
														
													
												  
									
										     	
											   
											 
													

														

														
Modern System i reports using Client Access
														
													
												  
									
										     	
											   
											 
													

														

														
Tips for installing Lotus Domino server on a System i partition
														
													
												  
									
										     	
											   
											 
													

														

														
The iSeries Blog has a new home on IT Knowledge Exchange
														
													
												  
									
										     	
											   
											 
													

														

														
Virtualization for IBM i: Backups
														
													
												    				
								 
								 
								   
					
						
							
							        
						
							 
 
								

	
										  
										

											

											
iSeries programming commands
										
										 
									
									
										       
											 
													

														

														
Taking advantage of CL advancements, starting with V5R3
														
													
												  
									
										     	
											   
											 
													

														

														
TAATOOL: Useful tools for programmers on IBM i
														
													
												  
									
										     	
											   
											 
													

														

														
Date calculation commands for AS/400
														
													
												  
									
										     	
											   
											 
													

														

														
Monitoring escape messages and using RCVMSG for diagnostic messages
														
													
												  
									
										     	
											   
											 
													

														

														
iSeries application display subfiles with other program windows
														
													
												  
									
										       
											 
													

														

														
Creating a user profile from a file
														
													
												  
									
										       
											 
													

														

														
DSPPGMREF (Display Program Reference)
														
													
												  
									
										       
											 
													

														

														
DSPPGM (Display Program)
														
													
												  
									
										       
											 
													

														

														
DSPFD (Display File Description)
														
													
												  
									
										       
											 
													

														

														
DSPPTF (Display PTF)
														
													
												   
										

											

											
iSeries programming commands Research
										
									 				
								 
								 
								    
			
		
		   
			
			
				
					


		

			

				

				


				

		
				

				
RELATED GLOSSARY TERMS

					

						
Terms from Whatis.com − the technology online dictionary
					
						
					
					
					
					     
					 
					 
						     
						  

							

							
Quiz: iSeries (AS/400) Commands
								
									 (Search400.com)
								  
						
					 
					
									 
				
			
		
		
    
		
		
		
			
 

		

			

				

				

				

		
				

				
RELATED RESOURCES


						

						
2020software.com, trial software downloads for 
						accounting software, ERP software, CRM software and business software systems
						
					
						
Search Bitpipe.com for 
						the latest white papers and 
						business webcasts

						

						Whatis.com, the online computer dictionary
					
				
			
		
 
		    
									

									DISCLAIMER: Our Tips Exchange is a forum for you to share technical advice and expertise with your peers and to learn from other enterprise IT professionals. TechTarget provides the infrastructure to facilitate this sharing of information. However, we cannot guarantee the accuracy or validity of the material submitted. You agree that your use of the Ask The Expert services and your reliance on any questions, answers, information or other materials received through this Web site is at your own risk.