× 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. MIDRANGE-L
  3. October 2004

Date Variables in CL

Hi,

A newbie here...messing with CL...please let me know if I'm in the wrong
list.

I want to select all records from file VINLOG where IJDATE is 6 months ago
or later and IJTYPE is 1D, then insert them into QTEMP/CSDS. IJDATE format
is ccyymmdd (ex. 20041028)

Would I ??

RTVSYSVAL  SYSVAL(QDATE) RTNVAR(&QDATE)


Then the part I need help with I think, for below I need &CYMD to be
20040428, April 28th??? How can I do that?

OVRDBF     FILE(VINLOG) SHARE(*YES)
OPNQRYF    FILE((VINLOG)) QRYSLT(' IJDATE *GE ' || +
             &CYMD || ' *AND IJTYPE *EQ ''1D'' ')

CPYFRMQRYF FROMOPNID(VINLOG) TOFILE(QTEMP/CSDS) +
MBROPT(*ADD) CRTFILE(*YES)

Or would it be easier with SQL? An example of that would be appreciated as
well...

Thanks,
Tim

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.