Re: Is the drive already mapped? -- MIDRANGE-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

> 
> message: 5
> date: Tue, 23 Aug 2005 13:30:09 -0700
> from: "Graap, Ken" <keg@xxxxxxxxxxxxx>
> subject: RE: Is the drive already mapped?
> 
> Ken - 
> 
> Do you have an example CLP you might want to share?
> 
> 
> 

Ken,
Here is the CL.

PGM                                                                     
/*********************************************************************/ 
/*  START THE CLIENT ACCESS PC ORGINIZER. ONLY ALLOW PROGRAM TO RUN  */ 
/*  ON A PC AND NOT A DUMB TERMINAL.                                 */ 
/*********************************************************************/ 
             STRPCO                                                     
             MONMSG     MSGID(IWS4010)                                  
             MONMSG     MSGID(IWS4032) EXEC(DO)                         
 ERROR:      SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('A drive +  
                          can only be mapped to a Programmable +        
                          Workstation (PC). The program will still +    
                          run, but you will need to map the drive +     
                          yourself.  If you have any questions, +       
                          please feel free to call the I.T. +           
                          department.') TOPGMQ(*EXT) MSGTYPE(*STATUS)   
             DLYJOB     DLY(5)                                          
             GOTO       CMDLBL(ENDCLPGM)  

              ENDDO                                                      
/*********************************************************************/ 
/*  MAP DRIVE TO USERS PC.                                           */ 
/*********************************************************************/ 
             STRPCCMD   PCCMD('net use M: \\xxx.xxx.xxx.xxx\folder') +   
                          PAUSE(*NO)                                    
/*********************************************************************/ 
/*  END PROGRAM.                                                     */ 
/*********************************************************************/ 
ENDCLPGM:                                                               
ENDPGM                                                                   

Thanks,

Terry

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.