|
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
As an Amazon Associate we earn from qualifying purchases.
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.
midrange.com
