PGM                                                                 
            DCL        VAR(&PCCMD) TYPE(*CHAR) LEN(123)                         
                                                                                
            CHGVAR     VAR(&PCCMD) VALUE('C:\LOGFILE.TXT  ')                    
            STRPCO     PCTA(*NO)                                                
            MONMSG     MSGID(IWS4010)                                           
             STRPCCMD   PCCMD(&PCCMD) PAUSE(*YES)                               
            ENDPGM