IT Answers » QMQRY

CL/QMQRY

Sanashakeel — Tue, 05 Jun 2012 12:16:43 +0000

i hav code

STRQMQRY QMQRY(SQLPROC) OUTPUT(*OUTFILE) + OUTFILE(QTEMP/SQLDT)

In SQLProc txt file i am callin a sql procedure , developed using i series navigator and return data set using cursor. i want this cursor output in qtemp/sqldt file.

in sqlproc if i mentioned SELECT statment , then it will work fine, but i want through procedure

its urgent , plz help

passing variable in CL Program using QMQRY and SQL

Bggas400 — Mon, 13 Sep 2010 14:15:29 +0000

Question Edited by Serena3

Forcing AS/400 query data to respect original data order

AS400 - Ask the Expert — Tue, 16 Feb 2010 21:06:18 +0000

000012   FROM      DISACTDTA1/COGJREP T02,


 000013             DISACTDTA1/COGKREP T01,


 000014             DISACTDTA1/COCXREP T04,


 000015             DISACTDTA1/COGDREP T03,


 000016             SATACTDTA1/FINURED T05


 000017   WHERE    
GJEFZC = GKEFZC


 000018     AND    
GKB8ZC = CXB8ZC


 000019     AND    
T02.GJAN8X = T03.GDAN8X


 000020     AND    
T01.GKB8ZC = T05.NUB8ZC


 000021     AND(   
T02.GJCDZA = '001367'


 000022     AND    
ZONED(GJASZB/100), 5) BETWEEN 10901 AND 10912

This is the result of the IBM conversion tool of *QRYDFN
in *QMQRY. The optimizer change the order of join files and the result data set
is always smaller than the original. There is a mean to force it to respect the
initial order like in ORACLE?

not a valid Query Management variable.

Pmh — Thu, 01 Oct 2009 11:32:23 +0000

Hi, can someone please help me, I am trying to use the QMQRY function to run an update statement. I pass it a variable from the program. Get the following error. is not a valid Query Management variable. Error found on STRQMQRY command. Function check. CPF0001 unmonitored by PGMFCTSEC at statement 3500, instruction X’0021′. Can anyone help? Thanks

Program

0021.00      DCL   VAR(&T01.SCTRAN) TYPE(*CHAR) LEN(10)                                   0022.00 /*        DCL        VAR(&FCT) TYPE(*CHAR) LEN(10) */                           0023.00      DCLF FILE(SECTEMP/UNUSEDOUT)                                                0024.00                                                                                   0025.00      CLRPFM     FILE(SECTEMP/UNUSEDOUT)                                           0026.00                                                                                   0027.00              RUNQRY     QRY(SECTEMP/UNUSEDFCT) /* GENERATE LISTING +              0028.00                           OF UNUSED FUNCTIONS */                                  0029.00                                                                                   0030.00          /* READ IN UNUSEDOUT FILE THAT CONTAINS A LISTING OF UNUSED FUNCTIONS */ 0031.00                                                                                   0032.00   LOOP:   RCVF                                                                    0033.00     MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(EOF))                                  0034.00                                                                                   0035.00              STRQMQRY   QMQRY(SECTEMP/FCTUPDATE) OUTPUT(*OUTFILE) +               0036.00                           OUTFILE(SECTEMP/FCTOUTPUT) +                            0037.00                           SETVAR(‘FCT’ &T01.SCTRAN)                               0038.00                                                                                   0039.00     GOTO CMDLBL LOOP)

0040.00                                                                         0041.00                                                                         0042.00                                                                         0043.00 EOF:                                                                    0044.00              SNDMSG     MSG(‘***** Function Update Completed *****’) + 0045.00                           TOUSR(SVRHUMPHP)                              0046.00 ENDPGM

Update statement called

0001.00 UPDATE SECTEMP/SCP002 SET SCTLVL = ’8′ WHERE SCTRAN = &T01.SCTRAN

Any help would be gratefully appreciated… Thanks

Display “No records found” in a QMQRY

Curly — Wed, 08 Apr 2009 13:38:18 +0000

I have a QMQRY that selects data from several files using left joins. Based on my “where” clause there is a possibility that no records will be selected. In this case, I want to be able to print “NO RECORDS FOUND” on the report. I have not been able to figure out how to get that text to print on the report. Any suggestions?

QMQRY not a valid Query Management variable.

NormFeile — Thu, 19 Feb 2009 07:12:26 +0000

Hi there,
I am trying to pass parameters to QMQRY but get the following error.

CALL PGM(JCCSTREP2) PARM(C165)
‘C165′ is not a valid Query Management variable.
Error found on STRQMQRY command.
CPF0001 received by JCCSTREP2 at 2800. (C D I R)

the CL pgm that call the query is as follows:
PGM PARM(&JOBX)
DCL VAR(&JOBX) TYPE(*CHAR) LEN(4)
DCL VAR(&JOBA) TYPE(*CHAR) LEN(6)
CHGVAR VAR(&JOBA) VALUE(”” *CAT &JOBX *CAT +
””)
OVRPRTF FILE(QPQXPRTF) TOFILE(QGPL/JCCSTREP2) +
PAGESIZE(*N 257)
STRQMQRY QMQRY(JCCSTREP2) OUTPUT(*PRINT) +
QMFORM(*QMQRY) SETVAR((‘JOB’) (&JOBA))
ENDPGM

Can someone help me with the correct syntax…Im goin bananas.Cheers Norm

Problem in CCSID converting

Proturborandza — Mon, 19 Jan 2009 05:09:53 +0000

I have a QM query that forms up a DB file. A physical file. A file that afterwards will be tranferred to the excel worksheet.

All the source DB files (as well as all the records inside) that I use in the QM query are having the CCSID=297 (french). But the data itself stored in these DB files sometimes written in russian. So, to have no complaints from users I do the DDS of physical file where I set all the needed records to CCSID value 1025 (russian). Then I just copy the data from the 297-encoded file to the 1025-encoded. That’s the way IBM recomend to do it.

Almost everything is right after the copying except one little thing. Not all the letters are correctly mapped.

I’ve tried to make it the different way – make a interactive query (WRKQRY). The interactive query doesn’t specify the restricted CCSID. So I’ve managed to use CHGPF command to change the CCSID to 1025 value.

But using the interactive query is not a right way, isn’t it?

So I think that possibly there’s a mistake in the locale char mapping.

Finally, the question: how I can operate and/or change (if it’ll be needed) a locale file?

Technicals: iSeries v5r3 as/400 server, 5250 terminal, iSeries Access for windows v5r4.

qmqry error – Help!

Lnspgm — Fri, 22 Feb 2008 16:20:03 +0000

Can anyone help?
I have a clp application that calls a qmqry which reads a large sales transaction file and selects and creats a small summary file of certain transactions for a certain typpe of part and date range. This sales transaction file is journaled and the file it creates becomes journaled? This part works fine.
The second part of the clp takes this summary workfile and joins to our actual payment records and creates another workfile of any items in the workfile that are not paid and ages how deliquient they are. We put these records in a workfile in qtemp and e-mail the user.
This part is not working anymore. It gets a error on select-omit record 0.
I can run this qmqry manually with output on screen so it is not the actually qmqry(I believe) Would the journalling have anything to do with it? Or does anybody have any idea which area I should explore?

qmqry outfile

Lnspgm — Tue, 19 Feb 2008 17:35:47 +0000

I have a qmqry that we have had running in production for awhile with no problem. It is called from a cl. We create one workfile and then the second works with this file and joins to another creating a outfile in qtemp which we e-mail to user.

This is the type of error we are getting now.
> STRQMQRY QMQRY(CONNIE/PRJ8917) OUTPUT(*OUTFILE) OUTFILE(QTEMP/PRJ8917)
Select or omit error on field �� member PRJ8917.
Select or omit error on field *N member PRJ8917.
Select/omit error on member PRJ8917.
Data conversion or data mapping error.
RUN QUERY command failed with SQLCODE -802.
RUN QUERY command ended due to error.
STRQMQRY command failed.
> However if I run the same qmqry with output(*) it works?*
> STRQMQRY QMQRY(CONNIE/PRJ8917) OUTPUT(*)

Any ideas what I might try to correct?