|
Your query selection statement is a literal, you need to expand it into another variable first e.g. PGM DCL VAR(&FRMDTE) TYPE(*CHAR) LEN(10) CHGVAR VAR(&FRMDTE) VALUE('01.05.1995') OVRDBF FILE(PESTPR) SHARE(*YES) CHGVAR &QRYSTM ('WNPDTP1E *EQ' *CAT &FRMDTE ''') OPNQRYF FILE(pestpr) QRYSLT(&QRYSTM) CLOF PESTPR DLTOVR *ALL ENDPGM -----Original Message----- From: Marc Geerkens [mailto:marc_geerkens@hotmail.com] Sent: Wednesday, May 26, 1999 1:48 PM To: RPG400-L@midrange.com Subject: OPNQRYF - QRYSLT Hello, What is the difference between the following 2 examples. WNPDTP1E = database field format *DATE (*EUR) Only the first one seems to work. THIS WORKS : PGM OVRDBF file(PESTPR) SHARE(*YES) OPNQRYF file(pestpr) qryslt('WNPDTP1E *EQ "01.05.1999"') CLOF PESTPR DLTOVR *ALL ENDPGM ----------------------------------------------------------- THIS DOESN'T WORK PGM DCL VAR(&FRMDTE) TYPE(*CHAR) LEN(10) CHGVAR VAR(&FRMDTE) VALUE('01.05.1995') OVRDBF FILE(PESTPR) SHARE(*YES) OPNQRYF FILE(pestpr) QRYSLT('WNPDTP1E *EQ &FRMDTE') CLOF PESTPR DLTOVR *ALL ENDPGM -------------------------------------------------------- When you have a string (20051999) as a incoming parameter in an CL program. How can you use this string in an QRYSLT statement when the database field is a field of type *DATE (*EUR) (25.05.1999) The following example doesn't work PGM (&FRMDTE) DCL VAR(FRMDTE) TYPE(*CHAR) LEN(8) OVRDBF FILE(PESTPR) SHARE(*YES) OPNQRYF FILE(PESTPR) QRYSLT('%TIMESTP(WNPDTP1E) *GT + %TIMESTP(&FRMDTE)') CLOF PESTPR DLTOFR *ALL ENDPGM Thanks ______________________________________________________ Get Your Private, Free Email at http://www.hotmail.com * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * This is the RPG/400 Discussion Mailing List! To submit a new * * message, send your mail to "RPG400-L@midrange.com". To unsubscribe * * from this list send email to MAJORDOMO@midrange.com and specify * * 'unsubscribe RPG400-L' in the body of your message. Questions should * * be directed to the list owner / operator: david@midrange.com * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * This is the RPG/400 Discussion Mailing List! To submit a new * * message, send your mail to "RPG400-L@midrange.com". To unsubscribe * * from this list send email to MAJORDOMO@midrange.com and specify * * 'unsubscribe RPG400-L' in the body of your message. 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.