RE: Query

Parms with method 1 - Converting Query/400 into QM/400.
CRTSRCPF yourlib/QQMQRYSRC
RTVQMQRY QMQRY(qrylib/yourqry)       
         SRCFILE(yourlib/QQMQRYSRC)
         ALWQRYDFN(*YES)
Use SEU to edit member.  For example change
SELECT                     
  ALL       IPROD, IDESC   
  FROM      GPIDIVF/IIM T01
  WHERE     ICLAS <> 'xx'  
  ORDER BY  IPROD ASC      
to
SELECT                     
  ALL       IPROD, IDESC   
  FROM      GPIDIVF/IIM T01
  WHERE     ICLAS <> &class
  ORDER BY  IPROD ASC      
Compile with command CRTQMQRY.  Run with command STRQMQRY.
PGM (                                                                + 
      &CLPCLASS        /* Item class                              */ + 
    )                                                                  
    DCL  &APOS        *CHAR   1  /* Apostrophe                       */
    DCL  &CLPCLASS    *CHAR   2  /* Item Class                       */
    DCL  &PARM        *CHAR   4  /* Item Class                       */
             CHGVAR     VAR(&APOS) VALUE(X'7D')                        
             CHGVAR  &PARM (&APOS *TCAT &CLPCLASS *TCAT &APOS)         
             STRQMQRY   QMQRY(ROB/IIM) SETVAR((CLASS &PARM))           
END:                                                                   
             ENDPGM                                                    


Parms with method 2 - store parameters in a separate file.
CRTSRCPF yourlib/QDDSSRC
Add a member with the following
                            REF(IIM)     
R PARMSR                                 
  CLASS     R               REFFLD(ICLAS)
Compile it using CRTPF.
Insert a value, perhaps using a prompting program (or UPDDTA to test).  Then 
make this
file your primary file, and join it to your other file, in Query/400.


You can add additional parms using either method.





LDiRosa@GIBRALTAR1.COM on 06/01/99 03:02:37 PM
Please respond to MIDRANGE-L@midrange.com@Internet
To:     MIDRANGE-L@midrange.com@Internet
cc:      
Fax to: 
Subject:        RE: Query

I would love some details on this.  I need to pass parms, but have not had
time to convert from Query/400 to DB2 Query .....

> -----Original Message-----
> From: Rob Berendt [SMTP:rob@dekko.com]
> Sent: Tuesday, June 01, 1999 2:13 PM
> To:   MIDRANGE-L@midrange.com
> Subject:      RE: Query
> 
> There are some steps you can do to pass parms to Query/400.
> 
> Method 1:
> Convert the Query/400 query into QM/400 and modify it.
> 
> Method 2:
> Set up your parameters in a separate file and join with this file.
> Details available upon request.
> 
> 
> 
> 
> 
> LDiRosa@GIBRALTAR1.COM on 06/01/99 01:04:11 PM
> Please respond to MIDRANGE-L@midrange.com@Internet
> To:   MIDRANGE-L@midrange.com@Internet
> cc:    
> Fax to:       
> Subject:      RE: Query
> 
> DB2 Query Manager for the AS/400 would be an excellent choice if you want
> to
> control user queries to only run in BATCH mode.  Another nice feature is
> that you can pass parameters to a query written in this app.  One downfall
> of AS/400 wrkqry, another potential choice for you, is that it cannot
> receive parms.  They both function very similar and can both take
> advantage
> of the predictive query govenor that comes with most AS/400's past V3R1.
> This query govenor can monitor a query and not allow it to take all the
> AS/400 resources.  Hope this helps.
> 
> Thanks,
> Lynn P. DiRosa
> Gibraltar Steel, Corporate 
> Information Services
> 
> 
> > -----Original Message-----
> > From:       Paul A Troup IV [SMTP:ptroup@gulftel.com]
> > Sent:       Tuesday, June 01, 1999 12:52 PM
> > To: MIDRANGE-L@midrange.com
> > Subject:    Query
> > 
> > I'm looking for a query program to run onÿthe 400.ÿ Does anyone have any
> > recommendations?ÿ 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.comm
> +---
> 
> 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.comm
+---


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---