Re: Dumb question about STRQMQRY passing parms

["Jim Essinger" <dilbernator@xxxxxxxxx>]

Shari,

First this question has little to do with RPG, so would be best on the
Midrange-L list.

There have been many threads there on how to pass parms to QMQRY.  One
that I was involved can be found at;

http://archive.midrange.com/midrange-l/200712/msg00938.html

All parms are passed as character, the numbers just don't have single
quotes around them. I would eliminate any problems with quotes by
adding a variable to your QMQRY like &Q.  Then set the variable like

  dcl &Q       *char      1  ''''

Then you can pass 3 parms to your QMQRY.  &fromdate &todate and &Q.

Your select could look like

select *
from filename
where mydate between (&Q&FROMDATE&Q &QTODATE&Q)

QMQRY puts the quotes around the fields for you.

HTH

Jim




On Fri, Jan 9, 2009 at 11:11 AM, Rowe, Sheri <srowe@xxxxxxxxx> wrote:
> Hi List,
>
>
>
> I have converted a QUERY/400 query to QM, so that I can pass 2 parms to it.  The QM is fine and I can run it on-line successfully, it prompts for the fields I want and I enter them successfully.   My problem is I am trying to run it in batch, so that is can be run through our job scheduler, and it fails.  I have fiddled with changing the parms to be numeric but it still didn't work.  After a day and ½ of testing I am exasperated, as I know the solution must be very simple.
>
>
>
>
>
> Here is my CL
>
>
>
>               PGM        PARM(&from &to)
>
>
>
>               DCL        VAR(&from  )  TYPE(*CHAR)  LEN(6)
>
>               DCL        VAR(&QryFrom) TYPE(*CHAR) LEN(8)
>
>               DCL        VAR(&to   )   TYPE(*CHAR) LEN(6)
>
>               DCL        VAR(&QryTo) TYPE(*CHAR) LEN(8)
>
>
>
>             ChgVar     Var(&QryFrom)  +
>
>                          Value('''' *cat &from *Cat '''')
>
>             ChgVar     Var(&QryTo)  +
>
>                          Value('''' *cat &to *Cat '''')
>
>
>
>            STRQMQRY   QMQRY(ZROYIRON) QMFORM(ZROYIRON) +
>
>                         DATETIME(*NO) PAGNBR(*NO) ALWQRYDFN(*yes) +
>
>                         SETVAR((FROMDATE &QRYFROM) (TODATE &QRYTO))
>
>
>
>            EndPgm
>
>
>
> Here is my submit statement:
>
>  SBMJOB CMD(CALL PGM(RUNZROYIRN) PARM('080101' '081231'))
>
>
>
> Here is the error log I get.
>
>  Message . . . . :  -CALL PGM(RUNZROYIRN) PARM('080101' '081231')
>
>   01/09/09  12:36:04.266408  QCADRV       QSYS        03AE     RUNZROYIRN  SROWE
>
> Message . . . . :     2700 - STRQMQRY QMQRY(ZROYIRON) QMFORM(ZROYIRON)
>
>  DATETIME(*NO) PAGNBR(*NO) ALWQRYDFN(*YES) SETVAR((FROMDATE '''080101''')
>
>  (TODATE '''081231'''))
>
>
>
> 20   01/09/09  12:36:04.369792  QQXSRV01     QSYS        *STMT    QQXSRV01    QSYS
>
>  From module . . . . . . . . :   QQXCPIMESS
>
>  From procedure  . . . . . . :   QQxCPIMessage__SendMessage
>
>  Statement . . . . . . . . . :   16
>
>  To module . . . . . . . . . :   QQXCPISTRI
>
>  To procedure  . . . . . . . :   QQxCPIString__ResolveSingleVar
>
>  Statement . . . . . . . . . :   37
>
>  Message . . . . :   Global variable prompting is not allowed in batch mode.
>
>  Cause . . . . . :   You tried to use the variable
>
>    "fromdate                      " before it was set.  Prompting for variables
>
>    cannot be done in batch mode. Recovery  . . . :   If you are using the
>
>    STRQMQRY command you can set variable "fromdate                      " by
>
>    using the SETVAR keyword.  If variable "fromdate                      " is
>
>    being used in a Query Management procedure, put a SET GLOBAL query command
>
>    in the procedure to give the variable a value. If variable
>
>    "fromdate                      " is being used through the Query Management
>
>    callable programming interface your program should be changed to use the SET
>
>    GLOBAL query command. After you set the variable, try the request again.
>
>
>
>
>
> Thanks for any assistance.
>
>
>
> Sheri
>
>
>
>
>
>
>
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.