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


  1.  Home
  2. RPG400-L
  3. May 2002

Re: Anyone seen this? Building a QRYSLT statement

Folks:

This belongs in MIDRANGE-L, not RPG400-L.

Please continue the discussion there.

Thanks!

david

At 11:59 AM 5/30/2002, you wrote:
>Has anyone seen this?
>
>
>**************************
>THIS CODE SNIPPET:
>**************************
>
>
>         DCL        VAR(&AND) TYPE(*CHAR) LEN(4) VALUE('*AND') +
>                      /* QRYSLT string connector (*AND) */
>
>    CHGVAR  VAR(&QRYSLT) VALUE('SBCRED *EQ "C" +
>            *AND SBSKU *NE "*" *AND SBSQTY *NE 0 +
>            *AND SBPRIC *NE 0 *AND SBSTAT *NE +
>            "DELETED" *AND SASTAT *EQ "CLOSED"')
>
>    CHGVAR     VAR(&QRYSLT) VALUE(&QRYSLT *BCAT &AND *BCAT +
>                 ('SADATE *EQ %CURDATE '))
>
>    CHGVAR     VAR(&QRYSLT) VALUE(&QRYSLT *BCAT &AND *BCAT +
>                 &SASTOR)
>
>    CHGVAR     VAR(&QRYSLT) VALUE(&QRYSLT *BCAT '"' *CAT +
>                 &WHSE *CAT '"')

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Replies:
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.