RE: Error while calling QCMDEXC API

[Michael_Schutte@xxxxxxxxxxxx]

You'd want to use RUNQRY instead of WRKQRY.  But to get it to name the
results????


Michael Schutte
Admin Professional



midrange-l-bounces@xxxxxxxxxxxx wrote on 03/04/2008 02:50:03 PM:

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