Re: Error while calling QCMDEXC API

Ah Francis - another cool way to get the command string is to press F14
while in the command prompt - I use it all the time - or course, you have to
put some of the pieces together!!

Regards

-------------- Original message --------------
From: "Francis Lapeyre" <flapeyre@xxxxxxxxx>

RUNQRY QRY(YOURQRY) OUTTYPE(*OUTFILE) OUTFILE(OUTLIB/OUTFILE)
On a command line, prompt the RUNQRY command. Once you get the syntax
correct, use F9 to retrieve the last command you ran, copy it, and paste

it

into your command variable in the RPG program.

On Tue, Mar 4, 2008 at 1:50 PM, Srinivas Boggula
wrote:

Now I can able to go wrkqry screen
But I don't want to go to wrkqry screen instead it should run the
File and save it as a name how to do it?

Any input greatly appreciated

Regards,
Srinivas



-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Pat Landrum
Sent: Wednesday, March 05, 2008 1:16 AM
To: Midrange Systems Technical Discussion
Subject: RE: Error while calling QCMDEXC API

Srinivas,

Change the initial value of d$len1 to 6.

Better:

DxpQcmdExc Pr ExtPgm('QCMDEXC')
D Command 2000 Const Options(*VarSize)
D CommandLen 15 5 Const
D Cmds S 2000

/Free

Cmds = 'WrkQry';
xpQcmdExc(Cmds:%Len(Cmds));

/End-Free

Regards,
Pat Landrum
Senior Programmer/Analyst
Hanover County School Board
200 Berkley Street - Ashland, VA. 23005
Phone: 804-365-4658 Email: plandrum@xxxxxxx

Notice: This message or any accompanying documents may contain
confidential or privileged information of Hanover County Public Schools.
If you are not the intended recipient, disclosure, copying or
distribution is strictly prohibited by state and federal law. If you
received this message in error, please notify the sender as soon as
possible.

-----Original Message-----
From: Srinivas Boggula [mailto:Srinivas.Boggula@xxxxxxxxx]
Sent: Tuesday, March 04, 2008 2:10 PM
To: Midrange Systems Technical Discussion
Subject: Error while calling QCMDEXC API


Hi All,

I am trying to CALL QCMDEXC API from RPGIV program the reason why I am
Running is to run WRKQRY command from RPGIV and I want to store the
results With Query Name. But when trying to execute below command I'm
getting error Message.

Code:

d$cmd1 s 256 inz
d$len1 s 15 5 inz(256)

eval $cmd1 = 'WRKQRY'
call 'QCMDEXC'
parm $cmd1
parm $len1


Thanks in advance.

Regards,
Srinivas

--
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.