RE: OPNQRYF - QRYSLT -- RPG400-L

Enclose the variable in "s via concatenation.

OPNQRYF FILE(pestpr) QRYSLT('WNPDTP1E *EQ "' ||  &FRMDTE |< '")

The || is *CAT & |< is *TCAT if you didn't know.

Regards,
~~~~~~~~~~~~~~~~~~~~~~~~~~~
Jon A. Erickson 
Senior Programmer Analyst
IBM Certified AS/400 RPG Specialist 
Viking Industries, Inc.
 <http://www.vikingindustries.com> http://www.vikingindustries.com
~~~~~~~~~~~~~~~~~~~~~~~~~~~

 <<...>> 

                -----Original Message-----
                From:   Marc Geerkens [mailto:marc_geerkens@hotmail.com]
                Sent:   Wednesday, May 26, 1999 5:48 AM
                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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *