|
Tyra, "The query ASN943 exists." Is that a *QMQRY or a *QRYDFN object? If it is a *QMQRY object you can use parameters in your SQL statement and use STRQMQRY with the parameter SETVAR ((QMQRYVAR &FRDATE)) If it is a *QRYDFN there is are ways to use pass parameters to query. You may wish to search the archives for parameters and query. But I would search midrange-l archives and NOT the rpg400-l archives since this question is not germane to this list. Rob Berendt ================== A smart person learns from their mistakes, but a wise person learns from OTHER peoples mistakes. Tyra_Brodsky@vfc. com To: RPG400-L@midrange.com Sent by: cc: owner-rpg400-l@mi Subject: Calling CMD from CL drange.com 06/06/01 11:09 AM Please respond to RPG400-L I have a CMD called ASN943 listed below *************** Beginning of data ************************************ 001.00 CMD PROMPT('ASN 943 REPORT') 002.00 PARM KWD(FRDATE) TYPE(*DEC) LEN(8) RSTD(*NO) + 003.00 MIN(1) MAX(1) ALWUNPRT(*YES) ALWVAR(*NO) + 004.00 CHOICE('YYYYMMDD Date') PROMPT('+ 005.00 Date (Year Month Day)' 1) and a CL also called ASN943 listed below *************** Beginning of data ******************************* 001.00 PGM PARM(&FRDT) 002.00 003.00 DCL VAR(&FRDT) TYPE(*DEC) LEN(8) 004.00 005.00 DCL VAR(&FRDATE) TYPE(*CHAR) LEN(8) 006.00 007.00 008.00 CHGVAR VAR(&FRDATE) VALUE(&FRDT) 009.00 NXT02: 010.00 011.00 012.00 STRQMQRY QMQRY(MVXBQRY/ASN943) OUTPUT(*PRINT) + 013.00 QMFORM(*QMQRY) 014.00 015.00 016.00 ENDPGM The query ASN943 exists. How do I link them together????? I need to clone them and I don't know how to make the link..... Thanks +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +---
As an Amazon Associate we earn from qualifying purchases.
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.