I have used the following with success:

D QCMDEXC PR ExtPgm('QCMDEXC')
D wCommand 32702A const options(*varsize)
D wLength 15P 5 const
D wCmd s 1000 varying

wCmd =
'STRPCCMD PCCMD('
+ '''rundll32 shell32,ShellExec_RunDLL '
+ %trim(SERVERLOC) + %trim(FILENAME)
+ ''') PAUSE(*NO)';
QCmdExc(wCmd: %len(wCmd) );

It does have the limitation of 123 characters, but that is not an issue here as I understand it.

In comparing yours and mine, I see I first built the command into a varying field "wCmd"; that made finding apostrophe errors a whole lot easier.

http://www.martinvt.com/Subfiles/Show_Image/show_image.html



On 1/9/2013 2:33 PM, Smith, Mike wrote:
Due to the length restrictions of the STRPCCMD, I am looking at alternatives to serving URL from my I. I ran across this article from Scott Klement from 2007
http://www.iprodeveloper.com/article/rpg-programming/use-cgi-redirects-to-launch-long-urls-18117

I'm trying to get this working to see if this will work for our needs. However, I really don't know anything about HTTP configuration. It might as well be greek.

That said many years ago I did create a couple of CGIDEV2 programs that work. So I placed the ScriptAlias stuff in the same http instance at the very bottom.
I created the programs associated with this in the same library as my CGIDEV2 programs.

When I run my CGIDEV2 programs from the browser, I call http://rgt:8014/rgcgip/vendprof.pgm

SO in the openurl program I have this
QCMDEXC('STRPCCMD PCCMD(''rundll32 url,FileProtocolHandler '
+ 'http://rgt:8014/rgcgip/redir?' + %char(Key)
+ ''') PAUSE(*NO)' : 200);

When I run the OPENURL command I get page not found, but it doesn't appear to ever call the REDIR program.

I can provide the configuration file if needed. Maybe I need another http instance for this.

This is probably really simple, but I don't know what I'm doing wrong

Ideas?

Thanks

MIke
NOTICE: This message, including any attachment, is intended as a confidential and privileged communication. If you have received this message in error, or are not the named recipient(s), please immediately notify the sender and delete this message.






Return to Archive home page | Return to MIDRANGE.COM home page