Re: CL program

I have to report on selected recs in a file and the file contains the dates of 
them in yyyymmdd format and the only records I want to select are in a range of 
yesterday after 3P to today up until 8A.  
 
Will this code do that?  I thought I'd use query but I'm not sure what would be 
best.  
 
Thanks for any help.   
 
-----Original Message-----
From: Scott Klement <midrange-l@xxxxxxxxxxxxxxxx>
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Sent: Mon, 30 Jan 2006 16:44:07 -0600 (CST)
Subject: Re: CL program



Why use RTVSYSVAL instead of CEELOCT?  Seems like CEELOCT would be shorter 
than RTVSYSVAL followed by CEEDAYS -- plus, the way you're doing it 
assumes that the system value is in MMDDYY format, which it may not be. So 
your code would be shorter and more correct using CEELOCT.

Also, if you supply a feedback code (&FC) you should check it to see if 
the API failed.  If you don't want to do any checking, pass *OMIT so that 
the operating system's default error handling mechanish can kick in.

(I just posted an example very similar to yours, but uses CEELOCT)

> pgm
> DCL &DATE *CHAR 6
> DCL &LILDATE *CHAR 4
> DCL &FC *CHAR 12
> dcl &monthyear *char 7
> /* get system date */
> rtvsysval qdate &date
> /* change to first of month */
> CHGVAR &DATE (%SST(&DATE 1 2) *CAT '01' *CAT %SST(&DATE 5 2))
> /* get "lillian" date number */
> CALLprc CEEDAYS (&DATE 'MMDDYY' &lildate &fc)
> /* subtract 1 day to get last day of previous month */
> CHGVAR (%BIN(&LILDATE)) ((%BIN(&LILDATE) - 1))
> /* get 3-char month name + 4-digit year */
> CALLprc CEEDATE (&lildate  'MMMYYYY'  &monthyear  &fc)
> endpgm