RE: Opening File with STRPCCMD

["Robert Ostrowski" <Bob.Ostrowski@xxxxxxxxxxxxxxxx>]

I will check the MYDOC.  The Start is from an example I received.
The small file path is for testing.  I am going to need to open
files with some pretty long paths.  You will probably run across
those posts.  I am passing in 11 60 character (660 character path)
fields as parms to the CL program and building the command string 
from those.







Bob Ostrowski | Senior Programmer/Analyst
TRAINOR GLASS COMPANY | National - IT
11901 S. Austin Ave. | Alsip, IL 60803
T 708.293.4218 | F 708.293.6218 | C 708.560.5813
bob.ostrowski@xxxxxxxxxxxxxxxx | www.trainorglass.com






-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Booth Martin
Sent: Tuesday, July 12, 2011 2:36 PM
To: Midrange Systems Technical Discussion
Subject: Re: Opening File with STRPCCMD

Here's what I do:
            SERVERLOC = 'C:\'
            FILENAME = 'AR_REGISTER.XLS'
            wCmd =
                'STRPCCMD PCCMD('
                + '''rundll32 shell32,ShellExec_RunDLL '
                + %trim(SERVERLOC) + %trim(FILENAME)
                + ''') PAUSE(*NO)';
            QCmdExc(wCmd: %len(wCmd) );

It's RPG, but that should be fairly clear.

I am wondering if there is a missing space in your MYDOC so that it 
actually looks like this:

"MYDOC=rundll32.exe url.dll,FileProtocolHandlerC:\AR_REGISTER.XLS"

I also wonder if you need the "start" or if that is left over from when 
you weren't using rundll32.exe?



On 7/12/2011 1:31 PM, Robert Ostrowski wrote:
> Well, for one, I overlooked the \DATA in the path for the .bat file.
> I took it out since I don't have that folder.  Now, I have the
following
> in MYFILE.bat but the spreadsheet still won't open.
>
> SET MYDOC=rundll32.exe url.dll,FileProtocolHandler
> SET MYDOC=%MYDOC%C:\AR_REGISTER.XLS
> start %MYDOC%
>
>
>
>
>
>
>
> Bob Ostrowski | Senior Programmer/Analyst
> TRAINOR GLASS COMPANY | National - IT
> 11901 S. Austin Ave. | Alsip, IL 60803
> T 708.293.4218 | F 708.293.6218 | C 708.560.5813
> bob.ostrowski@xxxxxxxxxxxxxxxx | www.trainorglass.com
>
>
>
>
>
>
> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Charles Wilt
> Sent: Monday, July 11, 2011 2:54 PM
> To: Midrange Systems Technical Discussion
> Subject: Re: Opening File with STRPCCMD
>
> Looks like you're missing the redirection symbols, or '>''>>'
>
> take another look at the example I pointed you too
>
>
> STRPCCMD PCCMD('cmd /c ECHO SET MYDOC=c:\documents and settings>
> C:\DATA\MYFILE.BAT')
> STRPCCMD PCCMD('cmd /c ECHO SET MYDOC=%MYDOC%\alexander.acctdom\my
documents>>
> C:\DATA\MYFILE.BAT')
> STRPCCMD PCCMD('cmd /c ECHO SET MYDOC=%MYDOC%\weekly\credit memos\acme
inc>>
> C:\DATA\MYFILE.BAT')
> STRPCCMD PCCMD('cmd /c ECHO SET MYDOC=%MYDOC%\memo84612.doc>>
> C:\DATA\MYFILE.BAT')
> STRPCCMD PCCMD('cmd /c ECHO start %MYDOC%>>  C:\DATA\MYFILE.BAT')
> STRPCCMD PCCMD('C:\DATA\MYFILE.BAT')
>
>
> ECHO start %MYDOC%
>
> simply echo's the contents of the %MYDOC% environment variable to the
screen
> > > C:\DATA\MYFILE.BAT
>
> redirects the echo to a file, in append mode.  Note: '>' is replace.
>
> HTH,
> Charles
>
>
> On Mon, Jul 11, 2011 at 2:26 PM, Robert Ostrowski
> <Bob.Ostrowski@xxxxxxxxxxxxxxxx>  wrote:
> > I get the error message in a DOS box "The system cannot find the path
> > specified"
> > When trying to open a file with STRPCCMD.  Using the example from the
> > archives,
> > My code looks like the following below.  Did I remove something I
> > shouldn't have?
> >
> >    PGM
> > */
> >
> >
> >    DCL  VAR(&CMD)   TYPE(*CHAR) LEN(300)
> >
> >    DCL  VAR(&PATH1)  TYPE(*CHAR) LEN(100)
> >    DCL  VAR(&PATH2)  TYPE(*CHAR) LEN(100)
> >
> >
> > /*
> > */
> >    CHGVAR     VAR(&CMD) VALUE('rundll32.exe +
> >              url.dll,FileProtocolHandler ' *TCAT ' ')
> >
> >    CHGVAR     VAR(&PATH1) VALUE('C:\AR_REGISTER.XLS')
> >    CHGVAR     VAR(&PATH2) VALUE('    ')
> >
> >    STRPCO     PCTA(*NO)
> >    MONMSG     MSGID(IWS4010)
> >
> >
> >    STRPCCMD PCCMD('cmd /c ECHO SET MYDOC=' *TCAT&CMD +
> >                 *BCAT 'C:\DATA\MYFILE.BAT')
> >
> >   STRPCCMD PCCMD('cmd /c ECHO SET MYDOC=%MYDOC%' *TCAT&PATH1 *BCAT +
> >                 'C:\DATA\MYFILE.BAT')
> >
> >
> > /*&PATH2 */
> >    IF COND(&PATH2 *NE '    ') THEN(DO)
> >    STRPCCMD PCCMD('cmd /c ECHO SET MYDOC=%MYDOC%' *TCAT&PATH2 *BCAT +
> >                 'C:\DATA\MYFILE.BAT')
> >    ENDDO
> >
> >
> > STRPCCMD PCCMD('cmd /c ECHO start %MYDOC% C:\DATA\MYFILE.BAT')
> > STRPCCMD PCCMD('C:\DATA\MYFILE.BAT')
> >
> >
> >
> >
> >
> >
> > ENDPGM
> >
> >
> >
> >
> >
> >
> >
> > Bob Ostrowski | Senior Programmer/Analyst
> > TRAINOR GLASS COMPANY | National - IT
> > 11901 S. Austin Ave. | Alsip, IL 60803
> > T 708.293.4218 | F 708.293.6218 | C 708.560.5813
> > bob.ostrowski@xxxxxxxxxxxxxxxx<mailto:bob.ostrowski@xxxxxxxxxxxxxxxx>
> > | www.trainorglass.com<http://www.trainorglass.com>
> >
> >
> >
> >
> >
> > --
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L)
mailing list
> > To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> > or email: MIDRANGE-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/midrange-l.