Re: question on "run interactive application" andRSESVR...

Wow.

Took a while wondering what you were going on about, but that's the most impressive titbit ( or tidbit as you say ) that I've come across to date.


-----Message d'origine-----
De : wdsci-l-bounces@xxxxxxxxxxxx [mailto:wdsci-l-bounces@xxxxxxxxxxxx] De la part de Joe Pluta
Envoyé : vendredi 9 novembre 2007 14:46
À : 'Websphere Development Studio Client for iSeries'
Objet : Re: [WDSCI-L] question on "run interactive application" andRSESVR...

From: Joe Pluta

In fact, the more I think about this, the more there is a need in
everybody's toolkit for a simple ILE program that accepts a command as
its only parameter and executes it via QCMDEXC.

Here we go. Use at your own risk. Your mileage may vary.

Command (ILEEXC):

ILEEXC: CMD PROMPT('Execute Command in ILE')
PARM KWD(CMD) TYPE(*CMDSTR) LEN(512) MIN(1) +
PROMPT('Command')

Command Processing Program (ILEEXCR):

d QcmdExc pr EXTPGM('QCMDEXC')
d Cmd 512
d CmdLen 15P 5 CONST

d ILEEXCR pr EXTPGM('ILEEXCR')
d Command 512

d ILEEXCR pi
d Command 512

/free
QCmdExc( Command: %len(%trimr(Command)));
*inlr = *on;
/end-free

It won't solve everything, but it will give you an SEP starting point for a lot of your OPM programming needs.

Joe

--
This is the Websphere Development Studio Client for iSeries (WDSCI-L) mailing list To post a message email: WDSCI-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/wdsci-l
or email: WDSCI-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at http://archive.midrange.com/wdsci-l.