× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: Re: Calling CMD from CL
  • From: rob@xxxxxxxxx
  • Date: Wed, 6 Jun 2001 12:01:15 -0500


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


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.