Re: CL program

[Scott Klement <midrange-l@xxxxxxxxxxxxxxxx>]

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