Re: CL program

[vhamberg@xxxxxxxxxxx]

Cuz I was busy and in a hurry - CEELOCT is definitely the better way. I forget 
whether it can get job date or only system date. And date format I figured was 
left to the reader to f igure out.

-------------- Original message -------------- 
From: 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 
> 
> -- 
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list 
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx 
> To subscribe, unsubscribe, or change list options, 
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l 
> or email: MIDRANGE-L-request@xxxxxxxxxxxx 
> Before posting, please take a moment to review the archives 
> at http://archive.midrange.com/midrange-l. 
>