RE: Opening File with STRPCCMD -- MIDRANGE-L

Finally got it to work. Now if there was only a way to keep
all those dos boxes from popping up.

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 Robert Ostrowski
Sent: Tuesday, July 12, 2011 3:01 PM
To: Midrange Systems Technical Discussion
Subject: RE: Opening File with STRPCCMD

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.