× 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: running sql from a cl to update
  • From: wawrzaszek@xxxxxxxxxxx (Wawrzaszek)
  • Date: Tue, 29 Dec 1998 15:28:42 -0500

I am trying to delete records from a file using an sql statement that I send
parms to.  I get the following message when I run the CL:
"Type a value for variable "frdte" and press Enter"  
       
The variable should be the parm I am sending in.  I have included my code,
If someone could point me in the right direction I would appreciate it!!!

SQL:
delete from library/file where field1 >= &frdte and field1 <= &todte
field1 is 8,0

CL:
PGM                     
   DCL     VAR(&DATE) TYPE(*CHAR) LEN(6)
   DCL     VAR(&DATE8) TYPE(*CHAR) LEN(8) 
   DCL     VAR(TDTE8) TYPE(*CHAR) LEN(8)
   DCL     VAR(&FRDTE) TYPE(*CHAR) LEN(8)
   DCL     VAR(&TODTE) TYPE(*CHAR) LEN(8)
        
   RTVSYSVAL SYSVAL(QDATE) RTNVAR(&DATE)
   CVTDAT   DATE(&DATE) TOVAR(&DATE8) FROMFMT(*MDY) +
                         TOFMT(*YYMD) TOSEP(*NONE)
   CALL        PGM(DAT8TIME) PARM(&DATE8 ' ' ' ' ' ' &TDTE8 +
                       '000060' 'sd')  /*  PGM WILL SUB #DAYS PASSED IN FROM
                                                       FROM DATE - SUB 60
DAYS) */
   CHGVAR  VAR(&FRDTE) VALUE(&TDTE8)
   CHGVAR  VAR(&TODTE) VALUE(&DATE8)

   STRQMQRY   QMQRY(library/sql)  SETVAR((FRDTE &FRDTE) +
                              (TODTE &TODTE))

ENDPGM

If I look at the joblog, it looks fine:

strqmqry qmqr(library/sql) setvar((frdte '19981024') (todte '19981223'))

If I change strqmqry to alwqrydfn(*only) i get error object sql not found in
library.  However I can do a dspobjd and find this sql query.  I even
recreated it using CRTQMQRY


What am I missing?????
Thanks in advance.
 

+---
| 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
+---


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

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.