Re: Is the drive already mapped?

[as400tech@xxxxxxxxxxx]

> 
> 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