× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.




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










iGATE is Ranked No. 3 in DQ-IDC best IT employer survey and Ranked No.6
by Business Today-Mercer Human Resource Consulting-TNS in a cross
industry survey of Best Companies to work for in India
----------------------------------------------------------------DISCLAIM
ER---------------------------------------------------------
Information transmitted by this EMAIL is proprietary to iGATE Group of
Companies and is intended for use only by the individual or entity to
whom it is addressed and may contain information that is privileged,
confidential, or exempt from disclosure under applicable law. If you are
not the intended recipient of this EMAIL immediately notify the sender
at iGATE or mailadmin@xxxxxxxxx and delete this EMAIL including any
attachments



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.