/*********************************************************************/
/*       Execute DOS command on PC using incoming parameter          */
/*       to build command string                           Logiforce */
/*                                                                   */
/*       You can only run the STRPCO and STRPCCMD commands           */
/*       interactive or by calling a program interactive.            */
/*                                                                   */
/*       Therefore this program can not be used in batch mode.       */
/*                                                                   */
/*       Example PARM(&IN): rename C:\TEST\TEST01.xls TEST99.xls     */
/*                                                                   */
/*********************************************************************/
 C$DOSCMD:   PGM        PARM(&IN)                                      
                                                                       
             DCL        VAR(&IN)          TYPE(*CHAR) LEN(99)          
             DCL        VAR(&CMD)         TYPE(*CHAR) LEN(123)         
                                                                       
             MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))        
                                                                       
   /*  -------------------------------------------------- */           
   /*   Start Client Access/400 Organiser                 */           
   /*  -------------------------------------------------- */           
             STRPCO     PCTA(*NO)                                      
             MONMSG     MSGID(IWS4010) EXEC(RCVMSG MSGTYPE(*LAST) +    
                          RMV(*YES)) /* Client Access/400 Organizer +  
                          already active */                            
             CHGVAR     VAR(&CMD) VALUE('CMD /C ' *BCAT &IN)         
   /*  -------------------------------------------------- */
   /*   Start DOS cmd on PC                               */
   /*  -------------------------------------------------- */
             STRPCCMD   PCCMD(&CMD) PAUSE(*NO)              
                                                           
             RETURN                                         
 ERROR:      SNDPGMMSG  MSGID(CPF0001) MSGF(QCPFMSG) +      
                         MSGDTA(C$DOSCMD) MSGTYPE(*ESCAPE) 
 END:        ENDPGM